Hallo Miteinander,
Ich habe ein kleines Problem, ich öffne zurzeit mit:
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?
Ich habe ein kleines Problem, ich öffne zurzeit mit:
Visual Basic-Quellcode
- Dim xlApp As Object ' Excel.Application
- Dim xlBook As Object 'Excel.Workbook
- Dim xlSheet As Object 'Excel.Worksheet
- Dim objcell As Object
- On Error Resume Next
- Set xlApp = GetObject(, "Excel.Application")
- If xlApp Is Nothing Then
- Set xlApp = CreateObject("Excel.Application")
- End If
- On Error GoTo 0
- xlApp.Visible = True ' Testphase
- Set xlBook = xlApp.Workbooks.Open("C:\Users\" & Environ("Username") & "\Desktop\adressen.xls")
- Set xlSheet = xlBook.Worksheets(1)
- With xlSheet
- ' hier beliebige Excelfunktionen einbauen
- End With
- xlBook.Save ' Testphase
- xlApp.Application.Quit ' Testphase
- Set xlApp = Nothing
- 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?