Spara data till ett Excel-kalkylblad med VBA.
Att 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-applikationer. Med VBA kan du använda Microsoft Excel Application-objektet för att skapa ett Excel-kalkylblad från Access. Excel-applikationsobjektet är ingångspunkten till resten av objektmodellen. Exportera data snabbare till Excel genom att spara data direkt i ett Excel-kalkylblad.
Steg 1
Starta Microsoft Office Access, klicka på "Tom databas" och klicka på knappen "Skapa" för att skapa en tom databas. Klicka på fliken "Databasverktyg" och klicka på "Visual Basic" för att öppna Microsoft Visual Basic-fönstret. Klicka på "Infoga"-menyn och klicka på "Modul" för att infoga en ny kodmodul.
Dagens video
Steg 2
Klicka på "Verktyg"-menyn och klicka på "Referenser". Rulla ned och markera rutan bredvid "Microsoft Excel
Steg 3
Börja med att skriva in följande VBA-kod för att skapa en ny underprocedur:
Private Sub createSpreadSheet()
Steg 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-kalkylarket:
Dim nyExcelApp som Excel. Ansökan. Dim nyWbk som Excel. Arbetsbok. Dimma nyttWkSheet Som Excel. Arbetsblad
Steg 5
Lägg till följande kod för att starta Excel och visa den:
Ställ in newExcelApp = Excel. Ansökan
nyExcelApp. Synlig = Sant
Steg 6
Skriv följande för att lägga till en ny arbetsbok och ett kalkylblad:
Ställ in newWbk = newExcelApp. Arbetsböcker. Lägg till
Ställ in newWkSheet = newWbk. Arbetsblad (1)
Steg 7
Lägg till data i ditt nya kalkylark genom att skriva följande:
newWkSheet. Celler (1, 1).Value = "Nytt kalkylblad..."
Steg 8
Spara den nya arbetsboken som skapats genom att skriva följande kod:
newWkSheet. Spara som ("C:\myworksheet.xlsx")Steg 9
Redigera sökvägen i föregående steg och skriv sökvägen och filnamnet som du väljer.
Steg 10
Skriv följande för att avsluta underproceduren:
Avsluta Sub
Steg 11
Tryck på "F5" för att köra din procedur och skapa ett nytt Excel-kalkylblad.
