Så här skapar du ett kalkylblad i Excel från Access med VBA

Författare: Judy Howell
Skapelsedatum: 4 Juli 2021
Uppdatera Datum: 19 November 2024
Anonim
Så här skapar du ett kalkylblad i Excel från Access med VBA - Artiklar
Så här skapar du ett kalkylblad i Excel från Access med VBA - Artiklar

Innehåll

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-objektet är utgångspunkten för resten av objektmodellen. Exportera data till Excel snabbare genom att spara data direkt till ett Excel-kalkylblad.


vägbeskrivning

Spara data till ett Excel-kalkylblad genom att använda VBA (Jupiterimages / Photos.com / Getty Images)

    vägbeskrivning

  1. Kör Microsoft Office Access, klicka på "Blank Database" och klicka på "Create" knappen 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 modulkod.

  2. Klicka på menyn "Verktyg" och klicka på "Referenser". Dra och kryssa rutan bredvid "Microsoft Excel Objektbibliotek "(Microsoft Excel-objektbibliotek). Klicka på "OK".

  3. Börja med att skriva följande kod i VBA för att skapa ett nytt subprocedur:


    Privat Sub createSpreadSheet ()

  4. Fortsätt skriva följande kod för att skapa tre nya objektvariabler som ska användas för att skapa Excel-kalkylbladet:

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

  5. Lägg till följande kod för att köra Excel och visa den:

    Ange newExcelApp = Excel.Application newExcelApp.Visible = True

  6. Ange följande kod för att lägga till en ny arbetsbok och ett arbetsblad:

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

  7. Lägg till data i ditt nya arbetsblad genom att skriva följande kod:

    newWkSheet.Cells (1, 1) .Value = "Nytt arbetsblad ..."

  8. Spara den nya arbetsboken som skapats genom att ange följande kod:

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

  9. Redigera sökvägen i föregående steg och ange katalog och filnamn efter eget val.


  10. Ange följande kod för att avsluta subproceduren:

    Slutdel

  11. Tryck på "F5" för att köra proceduren och skapa ett nytt Excel-kalkylblad.