So exportieren Sie alle Tabellen aus einer Access-Datenbank in Excel - Ein Blatt für jede Tabelle

Ich habe eine Access-Datenbank mit ~30 Tabellen.

Wie kann ich den export von allen 30 Tabellen in separate Tabellenblätter in einer Excel-Arbeitsmappe?

Ich bin der Hoffnung zu finden, einige VBA/VBS code kann ich in Access um diese Aufgabe zu erfüllen.

Irgendwelche Ideen?

  • haben Sie versucht, noch nichts?
InformationsquelleAutor Albert | 2010-10-27
  1. 14

    Sollten Sie in der Lage sein, so etwas zu tun:

    Dim tbl as Tabledef
For Each tbl in Currentdb.TableDefs
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, tbl.name, "PathName.xls", True, tbl.name
Next

    Zweiten tbl.name ist die Arbeitsblatt-Namen.

    InformationsquelleAutor BenV
  2. 11

    Hier ist das komplette Modul I verwendet.

    Sub expotT()
 Dim td As DAO.TableDef, db As DAO.Database
 Set db = CurrentDb()
 For Each td In db.TableDefs
    If Left(td.Name, 4) <> "msys" Then
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
    td.Name, "C:\xExcelTables.xls", True, td.Name
    End If 
Next
End Sub
    • Dies war sehr hilfreich für mich. Ich war immer ein Fehler mit dem Antwort-code sagt mir, dass ein "Msys*" Tisch fehlte. Ich Schätze Ihre Arbeit um!
    InformationsquelleAutor Albert
  3. 4

    Hier ist formatiert und Feste version der obige code.
    Wir brauchen nicht MSys-Tabellen in excel-Datei, und " dbo " - Präfix im Blatt-Namen.
    Export kann auch gemacht werden, die relativ zu MS Access db oder Feste.

    Hier ist der code:

    Sub exportTables2XLS()
Dim td As DAO.TableDef, db As DAO.Database
Dim out_file As String

out_file = CurrentProject.path & "\excel_out.xls" 

Set db = CurrentDb()
   For Each td In db.TableDefs
     If Left(td.Name, 4) = "MSys" Then
     '//do nothing -- skip
   Else
     DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
     td.Name, out_file, True, Replace(td.Name, "dbo_", "")
   End If 
   Next
End Sub
    InformationsquelleAutor corysus
Schreibe einen Kommentar