Object Library " en klik op "OK " om de referentie toe te voegen .
Start 3 door de volgende code om een nieuwe sub maken procedure :
Private Sub updateSpreadSheet
( ) op
On Error GoTo Err_updateSpreadSheet :
4
Typ de volgende code om de werkmap en werkblad objecten maken :
Dim wkBkObj zoals Excel.Workbook
Dim XLSheet
zoals Excel.Worksheet
5
Open een bestaande Excel-werkmap en gebruik Sheet1 als het blad te werken door toevoeging van de volgende code : < br
Set > wkBkObj = Workbooks.Open ( " C : \\ mySpreadsheet.xlsx " )
Set
XLSheet = wkBkObj.Worksheets ( " Blad1 " )
wkBkObj.Windows
( 1 ) . Visible = True
6
Voeg de volgende VBA- code te actualiseren A1 van het werkblad : . .
met XLSheet
Range ( " A1 " ) kiezen < br >
. Range ( " A1 " ) . value = " geactualiseerde waarde van Access "
End
Met
7
Sla , sluit de Excel-werkmap , en het einde van de procedure door toevoeging van de volgende code :
wkBkObj.Save
wkBkObj.Close
Exit_updateSpreadSheet
:
Exit Sub
Err_updateSpreadSheet
: < br >
MsgBox Err.Description
Resume Exit_updateSpreadSheet :
End Sub
Druk op " F5 "
8 om de procedure te lopen en update uw spreadsheet < br . >