Tabelle von Access nach Excel übertragen

  • Access

    Tabelle von Access nach Excel übertragen

    Hallo zusammen,

    Ich bin gerade dabei die Datenfelder einer Tabelle aus einer Access Datenbank nach Excel zu exportieren. Das funktioniert auch aber nur einmal. Ich habe glaube ich ein Problem mit dem Datensatzzeiger das der am Ende stehen bleibt.

    Bei der Tabelle handelt es sich um Nachname, Vorname, Strasse und Hausnummer. Mein Code sieht bisher so aus:

    Visual Basic-Quellcode

    1. ​Dim excel2010 As Object
    2. Dim workbook As Excel.workbook
    3. Dim zeile1 As Long
    4. Dim spalte As Long
    6. Set excel2010 = CreateObject("Excel.Application")
    8. With excel2010
    10. .Visible = True
    11. .Application.WindowState = xlMaximized
    13. Set workbook = .Workbooks.Add
    15. End With
    17. Dim ADOCnn As New ADODB.Connection
    18. Dim ADOTab As New ADODB.Recordset
    19. Dim ADOField As ADODB.field
    20. Dim zeile As Long
    22. ADOCnn.Provider = "Microsoft.ACE.OLEDB.12.0"
    23. ADOCnn.Open (ActiveWorkbook.Path & "\adressen.accdb")
    24. ADOTab.Open "tbl_Namen", ADOCnn, adOpenDynamic, adLockOptimistic
    25. zeile = ActiveSheet.UsedRange.Rows.Count + 1
    27. While Not ADOTab.EOF
    29. Cells(zeile, 1) = ADOTab!Nachname
    30. Cells(zeile, 2) = ADOTab!Vorname
    31. Cells(zeile, 3) = ADOTab!Strasse
    32. Cells(zeile, 4) = ADOTab!Hausnummer
    34. zeile = zeile + 1
    36. For zeile1 = 2 To ActiveSheet.UsedRange.Rows.Count Step 2
    37. For spalte = 1 To ActiveSheet.UsedRange.Columns.Count
    38. Cells(zeile1, spalte).Interior.Color = RGB(220, 220, 220)
    39. Next
    40. Next
    42. ADOTab.MoveNext
    43. Wend
    45. ADOCnn.Close
    47. Set ADOCnn = Nothing
    48. Set excel2010 = Nothing


    Also wenn Access gerade gestartet ist und ich auf den Button zum Auslösen des Codes drück funktioniert das. Schliesse ich dann das Excel Fenster und drücke erneut auf den Button dann passiert nix ausser das Excel nochmal geöffnet wird. Aber es werden keine Daten mehr übertragen. Erst wenn ich Access wieder neu starte gehts.

    Kann mir bitte jemand helfen ??

    Schönen Gruß,
    Thomas

Facebook
Telefonspende