Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Software Database >> .

Come aggiornare un foglio di calcolo da accesso

Microsoft Access ed Excel quasi andare di pari passo durante lo sviluppo di applicazioni di database in Access . Gli utenti amano per analizzare i loro dati con Excel , e si può dare loro tale funzionalità da essere in grado di aggiornare i fogli di calcolo di Access. In Access è possibile utilizzare Visual Basic, Applications Edition per aprire un foglio di calcolo di Excel esistente e aggiornarlo con i dati in modo dinamico . In VBA è possibile utilizzare la libreria di oggetti di Microsoft Excel per manipolare gli oggetti di Excel . Istruzioni
1

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 " Microsoft Excel Object Library " e fare clic su " OK" per aggiungere il riferimento .
3

Inizia digitando il seguente codice per creare una nuova sotto procedura :

updateSpreadSheet private Sub ( ) per

On Error GoTo Err_updateSpreadSheet :
4

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
5

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
6

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
7

Salvare , chiudere la cartella di lavoro di Excel , e terminare la procedura aggiungendo il seguente codice :

wkBkObj.Save

wkBkObj.Close

Exit_updateSpreadSheet :

Exit Sub

 

software © www.354353.com