Fare clic sulla scheda "Database Strumenti" , clicca su " Visual Basic ", e fare clic sul menu "Inserisci" . Fare clic su "Modulo" per inserire un nuovo modulo di codice VBA .
2 Fare clic sul menu " Strumenti " e cliccare su " Riferimenti ". Seleziona la casella accanto a " Inizia digitando il seguente codice per creare una nuova sotto procedura : updateSpreadSheet private Sub ( ) per On Error GoTo Err_updateSpreadSheet : Digitare il seguente codice per creare la cartella di lavoro e gli oggetti del foglio di lavoro : Dim wkBkObj come Excel.Workbook Dim xlSheet come Excel.Worksheet Aprire una cartella di lavoro di Excel esistente e utilizzare Foglio1 come il foglio di aggiornare aggiungendo il seguente codice : < br Set> wkBkObj = Workbooks.Open ( " C : \\ mySpreadsheet.xlsx " ) per xlSheet = wkBkObj.Worksheets ( " Foglio1 " ) wkBkObj.Windows ( 1 ) . Visible = True Aggiungere il seguente codice VBA per aggiornare A1 del foglio di calcolo : . . xlSheet Range (" A1 ") Selezionare . Range (" A1") . value = " valore aggiornato da Access " End With Salvare , chiudere la cartella di lavoro di Excel , e terminare la procedura aggiungendo il seguente codice : wkBkObj.Save wkBkObj.Close Exit_updateSpreadSheet : Exit Sub
3
4
5
6
7
Informazioni correlate
software © www.354353.com