Mit Access Excel bearbeiten

  • Access

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Mit Access Excel bearbeiten

    Hallo Miteinander,

    Ich habe ein kleines Problem, ich öffne zurzeit mit:

    Visual Basic-Quellcode

    1. Dim xlApp As Object ' Excel.Application
    2. Dim xlBook As Object 'Excel.Workbook
    3. Dim xlSheet As Object 'Excel.Worksheet
    4. Dim objcell As Object
    6. On Error Resume Next
    7. Set xlApp = GetObject(, "Excel.Application")
    8. If xlApp Is Nothing Then
    9. Set xlApp = CreateObject("Excel.Application")
    10. End If
    11. On Error GoTo 0
    12. xlApp.Visible = True ' Testphase
    13. Set xlBook = xlApp.Workbooks.Open("C:\Users\" & Environ("Username") & "\Desktop\adressen.xls")
    14. Set xlSheet = xlBook.Worksheets(1)
    15. With xlSheet
    16. ' hier beliebige Excelfunktionen einbauen
    18. End With
    19. xlBook.Save ' Testphase
    20. xlApp.Application.Quit ' Testphase
    21. Set xlApp = Nothing
    22. Set xlBook = Nothing

    ein Excel fiel aus Acces heraus, nun würde ich gerne in dem Excel file via makro in der ACCESS DB die ersten 5 zeilen löschen.


    kann mir da jemand helfen?

Facebook
Telefonspende