hur du öppnar ett Excel-ark från Access VBA Infoga kolumn

Att veta hur man öppnar ett Microsoft Excel-kalkylblad från Microsoft Access och infoga en ny kolumn i kalkylbladet med hjälp av Visual Basic for Applications ( VBA ) kan göra ditt Access-program mer dynamisk . Access är en relationsdatabas management system som vanligen används för mindre databaser . Excel är ett kalkylprogram som erbjuder kraftfulla verktyg för att analysera data . VBA är ett populärt dator programmeringsspråk som används för att automatisera uppgifter på annat sätt göras manuellt . I några få steg kan du skriva VBA -kod i Access för att öppna en Excel -arbetsbok och infoga en ny kolumn till Blad1 .
1 .
Starta Microsoft Office Access 2007 och välj ” tom databas ” klicka på ” Skapa ”. Klicka på ” Databasverktyg ” välj sedan ”Visual Basic ”. Klicka på ” Infoga ” och välj ” Module ”.
2 .
Kopiera och klistra in följande kod på din modul . Denna kod kommer att öppna ett kalkylblad , infoga en ny kolumn till höger om ” Kolumn C ” och sätt ”Denna kolumn införas från Access . ”

Private Sub addExcelColumn ( )

Dim xlApp som Excel . Ansökan

Dim XLBook Som Excel. Workbook

Dim XLSheet Som Excel. Worksheet

Set XLBook=arbetsböcker . Lägg (mall:=” C : \ Book1. xls ” )

Set xlApp=XLBook. Parent

Set XLSheet=XLBook. Worksheets ( ”Blad1 ” )

XLBook. Windows (1) . Synlig=Sant

XLApp. Visible=Sant

Med XLSheet

. kolumner ( ” C : C ” ) Välj

Selection. Insert Shift : .=xlToRight

Range ( ” C1 ” ) . Välj

Selection. Value=”Denna kolumn införas från Access ”

. Range ( ” D3 ” ) . Välj

End With

End Sub
3
Redigera följande kodrad och skriv sökvägen till kalkylbladet :

Set XLBook=Workbooks. Add (mall:=” C : \ Book1. xls ” )

Kör din subrutin genom att trycka ” F5 ”.