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 .
