Object Library " og klik på "OK " for at tilføje referencen .
3 Start ved at skrive følgende kode til at oprette en ny sub procedure : Hej
Private Sub updateSpreadSheet ()
On Error GoTo Err_updateSpreadSheet :
4
Indtast følgende kode til at oprette projektmapper og regneark objekter: Salg < p> Dim wkBkObj som Excel.Workbook
Dim XLSheet som Excel.Worksheet
5
Åbn et eksisterende Excel-projektmappe og brug Ark1 som arket til at opdatere ved at tilføje følgende kode : < br >
Set wkBkObj = Workbooks.Open ( "C: \\ mySpreadsheet.xlsx " )
Set XLSheet = wkBkObj.Worksheets ( " Ark1 " )
wkBkObj.Windows (1) . Visible = Sand
6
Føj følgende VBA-kode til at opdatere A1 i regnearket : . .
Med XLSheet
Range (" A1" ) Vælg < br >
. Range (" A1 "). value = "opdateret værdi fra Access "
End With
7
Gem , luk Excel-projektmappen , og afslutte proceduren ved at tilføje følgende kode : Hej
wkBkObj.Save
wkBkObj.Close
Exit_updateSpreadSheet : Hej
Exit Sub
Err_updateSpreadSheet : < br >
MsgBox Err.Description
Genoptag Exit_updateSpreadSheet : Hej
End Sub
8
Tryk på " F5 " for at køre proceduren og opdatere dit regneark < br . >