Gewusst wie: Öffnen Sie eine Excel-Kalkulationstabelle aus der Access VBA einfügen-Spalte

Zu wissen, wie eine Microsoft Excel öffnen kann Tabellenkalkulation von Microsoft Access und Einfügen einer neuen Spalte in der Kalkulationstabelle mithilfe von Visual Basic für Applikationen (VBA) Ihre Access-Anwendung dynamischer gestaltet. Der Zugang ist ein relationales Datenbank-Managementsystem für kleinere Datenbanken verwendet. Excel ist ein Tabellenkalkulations-Programm, das bietet Ihnen leistungsstarke Tools zur Datenanalyse. VBA ist eine beliebte Computer-Programmiersprache, die zum Automatisieren von Aufgaben, die sonst manuell durchgeführt. In wenigen Schritten können Sie VBA-Code in Access zu öffnen eine Excel-Arbeitsmappe und fügt eine neue Spalte Sheet1 schreiben.

Anweisungen

1 Starten Sie Microsoft Office Access 2007 und wählen Sie "Leere Datenbank" und klicken Sie auf "Erstellen". "Datenbanktools" klicken Sie auf "Visual Basic." Klicken Sie im Feld "Einfügen" und wählen Sie "Module".

2 Kopieren Sie und fügen Sie den folgenden Code in das Modul. Dieser Code öffnet ein Arbeitsblatt, fügt eine neue Spalte rechts neben "Spalte C" und Einfügen "diese Spalte wurde aus Access eingefügt."

Private Sub addExcelColumn()

Dim XLApp As Excel.Application

Dim XLBook As Excel.Workbook

Dim XLSheet As Excel.Worksheet

Set XLBook = Workbooks.Add(Template:="C:\Book1.xls")

Set XLApp = XLBook.Parent

Set XLSheet = XLBook.Worksheets("Sheet1")

XLBook.Windows(1).Visible = True

XLApp.Visible = True

With XLSheet

.Columns("C:C").Select

Selection.Insert Shift:=xlToRight

.Range("C1").Select

Selection.Value = "This column was inserted from Access"

.Range("D3").Select

End With

EndSub

3 Bearbeiten Sie die folgende Codezeile und geben Sie den Pfad zu Ihrem Arbeitsblatt:

Set XLBook = Workbooks.Add(Template:="C:\Book1.xls")

Führen Sie die Unterroutine mit "F5".