Komma åt VBA för att skapa ett Excel-ark

Skapa ett Excel-kalkylblad i Access kan spara tid när du behöver exportera data till ett Excel-kalkylblad . Visual Basic for Applications ( VBA ) kan vara ett kraftfullt verktyg för att automatisera processer i Microsoft Office-program . Med VBA kan du använda Microsoft Excel Application-objekt för att skapa ett Excel-kalkylblad från Access . Den Excel-applikation objektet är inkörsport till resten av objektmodellen . Exportera data snabbare till Excel genom att spara data direkt till ett Excel-kalkylblad . Instruktioner
1

Launch Microsoft Office Access , klicka på " Tom databas " och klicka på " Skapa " -knappen för att skapa en tom databas . Klicka på " Database Tools " -fliken och klicka på " Visual Basic " för att öppna Microsoft Visual Basic Window . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny kod modul .
2

Klicka på " Verktyg " -menyn och klicka på " Referenser . " Rulla nedåt och markera rutan bredvid " Microsoft Excel Object Library . " Klicka på " OK . " Addera 3

Börja med typ följande VBA -kod för att skapa en ny sub förfarande :

Private Sub createSpreadSheet ( )
4

Fortsätt genom att skriva följande kod för att skapa tre nya variabla objekt som kommer att användas för att skapa Excel-ark :

Dim newExcelApp som Excel.Application

Dim newWbk som Excel.Workbook

Dim newWkSheet som Excel.Worksheet
5

Lägg till följande kod för att starta Excel och visa det :

Set newExcelApp = Excel.Application

newExcelApp.Visible = Sant
6

Skriv följande för att lägga till en ny arbetsbok och ett kalkylblad :

Set newWbk = newExcelApp.Workbooks.Add
newWkSheet

Set = newWbk.Worksheets ( 1 )
7

Lägg data till din nya kalkylblad genom att skriva följande : .

newWkSheet.Cells ( 1 , 1 ) Value = " nytt kalkylblad ... "
8

Spara den nya arbetsboken skapas genom att skriva följande kod :

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

Redigera sökvägen på föregående steg och ange sökvägen och filnamnet på ditt val
10

skriv följande för att avsluta sub förfarande : .

End sub ​​

11

Tryck " F5 " för att köra din procedur och skapa en ny Excel-ark .