Speichern Sie Daten mit VBA in einer Excel-Tabelle.
Das Erstellen einer Excel-Tabelle in Access kann Ihnen Zeit sparen, wenn Sie Daten in eine Excel-Tabelle exportieren müssen. Visual Basic for Applications (VBA) kann ein leistungsstarkes Werkzeug sein, um Prozesse in Microsoft Office-Anwendungen zu automatisieren. Mit VBA können Sie das Microsoft Excel-Anwendungsobjekt verwenden, um eine Excel-Tabelle aus Access zu erstellen. Das Excel-Anwendungsobjekt ist der Einstiegspunkt zum Rest des Objektmodells. Exportieren Sie Daten schneller nach Excel, indem Sie Daten direkt in einer Excel-Tabelle speichern.
Schritt 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 die Registerkarte "Datenbanktools" und klicken Sie auf "Visual Basic", um das Microsoft Visual Basic-Fenster zu öffnen. Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Modul", um ein neues Codemodul einzufügen.
Video des Tages
Schritt 2
Klicken Sie auf das Menü "Extras" und klicken Sie auf "Referenzen". Scrollen Sie nach unten und aktivieren Sie das Kontrollkästchen neben "Microsoft Excel
Schritt 3
Geben Sie zunächst den folgenden VBA-Code ein, um eine neue Unterprozedur zu erstellen:
Privates Sub createSpreadSheet()
Schritt 4
Fahren Sie fort, indem Sie den folgenden Code eingeben, um drei neue variable Objekte zu erstellen, die zum Erstellen der Excel-Tabelle verwendet werden:
Dim newExcelApp Als Excel. Anwendung. Dim newWbk als Excel. Arbeitsmappe. Dim newWkSheet als Excel. Arbeitsblatt
Schritt 5
Fügen Sie den folgenden Code hinzu, um Excel zu starten und anzuzeigen:
Legen Sie newExcelApp = Excel fest. Anwendung
neueExcelApp. Sichtbar = Wahr
Schritt 6
Geben Sie Folgendes ein, um eine neue Arbeitsmappe und ein Arbeitsblatt hinzuzufügen:
Setze newWbk = newExcelApp. Arbeitsbücher. Hinzufügen
Setze newWkSheet = newWbk. Arbeitsblätter (1)
Schritt 7
Fügen Sie Ihrer neuen Tabelle Daten hinzu, indem Sie Folgendes eingeben:
newWkSheet. Zellen (1, 1).Value = "Neues Arbeitsblatt..."
Schritt 8
Speichern Sie die neu erstellte Arbeitsmappe, indem Sie den folgenden Code eingeben:
newWkSheet. SaveAs ("C:\myworksheet.xlsx")Schritt 9
Bearbeiten Sie den Pfad im vorherigen Schritt und geben Sie den Pfad und den Dateinamen Ihrer Wahl ein.
Schritt 10
Geben Sie Folgendes ein, um die Unterprozedur zu beenden:
End Sub
Schritt 11
Drücken Sie "F5", um Ihre Prozedur auszuführen und eine neue Excel-Tabelle zu erstellen.
