So erstellen Sie eine Kalkulationstabelle in Excel mit VBA

Inhalt

• Anweisungen
• Anweisungen

Durch das Erstellen eines Excel-Arbeitsblatts in Access können Sie Zeit sparen, wenn Sie Daten in ein Excel-Arbeitsblatt exportieren müssen. Visual Basic für Applikationen (VBA) kann ein leistungsfähiges Werkzeug zum Automatisieren von Prozessen in Microsoft Office-Anwendungen sein. Mit VBA können Sie das Microsoft Excel-Anwendungsobjekt verwenden, um eine Excel-Kalkulationstabelle aus Access zu erstellen. Das Excel-Objekt ist der Ausgangspunkt für den Rest des Objektmodells. Exportieren Sie Daten schneller in Excel, indem Sie die Daten direkt in einem Excel-Arbeitsblatt speichern.

Anweisungen

Speichern Sie Daten in einem Excel-Arbeitsblatt mithilfe von VBA (Jupiterimages / Photos.com / Getty Images)

Anweisungen

1. Führen Sie Microsoft Office Access aus, klicken Sie auf "Leere Datenbank" und klicken Sie auf die Schaltfläche "Erstellen", um eine leere Datenbank zu erstellen. Klicken Sie auf die Registerkarte "Database Tools" und anschließend auf "Visual Basic", um das Microsoft Visual Basic-Fenster zu öffnen. Klicken Sie auf das Menü "Einfügen" und dann auf "Modul", um einen neuen Modulcode einzufügen.

2. Klicken Sie auf das Menü "Extras" und klicken Sie auf "Referenzen". Markieren Sie das Kontrollkästchen neben "Microsoft Excel" Objektbibliothek "(Microsoft Excel-Objektbibliothek). Klicken Sie auf "OK".

3. Beginnen Sie, indem Sie den folgenden Code in VBA eingeben, um eine neue Unterprozedur zu erstellen:

   
   

   Private Sub createSpreadSheet ()

4. Fahren Sie fort, den folgenden Code einzugeben, um drei neue Objektvariablen zu erstellen, die zum Erstellen des Excel-Arbeitsblatts verwendet werden:

   Dim newExcelApp As Excel.Application Dim newWbk As Excel.Workbook Dim newWkSheet As Excel.Worksheet

5. Fügen Sie den folgenden Code hinzu, um Excel auszuführen und anzuzeigen:

   Legen Sie newExcelApp = Excel.Application newExcelApp.Visible = True fest

6. Geben Sie den folgenden Code ein, um eine neue Arbeitsmappe und ein neues Arbeitsblatt hinzuzufügen:

   Set newWbk = newExcelApp.Workbooks.Add Set newWkSheet = newWbk.Worksheets (1)

7. Fügen Sie Ihrem neuen Arbeitsblatt Daten hinzu, indem Sie den folgenden Code eingeben:

   newWkSheet.Cells (1, 1) .Value = "Neues Arbeitsblatt ..."

8. Speichern Sie die neue Arbeitsmappe, indem Sie den folgenden Code eingeben:

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

   
   

9. Bearbeiten Sie den Pfad im vorherigen Schritt und geben Sie das Verzeichnis und den Dateinamen Ihrer Wahl ein.

10. Geben Sie den folgenden Code ein, um die Unterprozedur zu beenden:

    End Sub

11. Drücken Sie "F5", um die Prozedur auszuführen und ein neues Excel-Arbeitsblatt zu erstellen.