Erstellen einer Excel-Tabelle in Access können Sie Zeit sparen , wenn Sie Daten in eine Excel- Tabelle exportieren müssen . Visual Basic für Applikationen ( VBA) kann ein mächtiges Werkzeug , um Prozesse in Microsoft Office-Anwendungen zu automatisieren . Mit VBA können Sie die Microsoft Excel -Application-Objekt , um eine Excel-Tabelle aus Access erstellen. Die Excel- Application-Objekt ist der Einstiegspunkt für den Rest des Objektmodells . Exportieren von Daten nach Excel schneller durch das Speichern von Daten direkt in eine Excel- Tabelle. Anleitung
1

Starten Sie Microsoft Office Access , klicken Sie auf " Leere Datenbank " und klicken Sie auf die Schaltfläche "Erstellen" , um eine leere Datenbank zu erstellen. Klicken Sie auf " Database Tools " und klicken Sie auf " Visual Basic ", um den Microsoft Visual Basic -Fenster zu öffnen. Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" , um einen neuen Code-Modul einzufügen.
2

Klicken Sie auf das Menü "Extras" und dann auf " Referenzen . " Blättern Sie nach unten und aktivieren Sie das Kontrollkästchen neben " Microsoft Excel Object Library . " Klicken Sie auf " OK".
3

starten nach Art der folgende VBA-Code , um eine neue Sub-Prozedur zu erstellen :

Private Sub createSpreadSheet ()
4

indem Sie den folgenden Code, um drei neue Variable Objekte, die verwendet werden, um die Excel-Tabelle erstellen wird erstellen Weiter:

Dim newExcelApp Wie Excel.Application

Dim newWbk Wie Excel.Workbook

Dim newWkSheet Wie Excel.Worksheet
5

Fügen Sie den folgenden Code, um Excel zu starten und anzuzeigen :

Set newExcelApp = Excel.Application

newExcelApp.Visible = True
6

Geben Sie den folgenden um eine neue Arbeitsmappe und Arbeitsblatt hinzufügen :

Set newWbk = newExcelApp.Workbooks.Add

Set newWkSheet = newWbk.Worksheets (1)
7

hinzufügen von Daten zu Ihrer neuen Tabelle , indem Sie die folgenden Schritte aus: .

newWkSheet.Cells (1, 1 ) Value = " neues Arbeitsblatt ... "
8

Speichern Sie die neue Arbeitsmappe , indem Sie den folgenden Code erstellt:

newWkSheet.SaveAs ( " C: \\ myworksheet.xlsx " )
9

bearbeiten Sie den Pfad auf dem vorherigen Schritt und geben Sie den Pfad und den Dateinamen Ihrer Wahl
10

Geben Sie die folgende Prozedur , um das Untermenü zu beenden : .

End Sub