Capire come programmare Excel VBA da Access consente di scrivere programmi che scambiano dati tra le due applicazioni. Ogni applicazione ha caratteristiche l'altro no, ma utilizzando quello che Microsoft chiama "Automazione", è possibile dare ad ogni programma gli strumenti VBA e oggetti virtuali dell'altra. Gli elementi chiave di automazione comprendono gli oggetti virtuali VBA di un'applicazione, come ad esempio la "cartelle di lavoro" insieme di Excel e la proprietà "ActiveCell". La dichiarazione VBA che rende gli oggetti di Excel a disposizione accesso è "CreateObject".

istruzione

Invia dati in Excel

1 Open Access, quindi fare clic sul pulsante della scheda "Sviluppatore" "Visual Basic" per entrare l'ambiente di sviluppo di Visual Basic.

2 Clicca comando "Module" del menu "Inserisci" per creare una nuova finestra per tenere il vostro programma per controllare Excel, quindi fare clic sul menu "Strumenti". Fare clic sul comando "di riferimento", quindi fare clic sulla casella di controllo "Microsoft Excel" in modo che il programma possa accedere a oggetti virtuali di Excel.

3 Incollare il seguente programma nella finestra. Questo programma crea una cartella di lavoro di Excel, quindi inserisce il testo in una delle celle della cartella di lavoro.

Public Sub MadeByAccess ()

Dim aplExcel Come Excel.Application

Set aplExcel = CreateObject ( "Excel.Application")

aplExcel.Workbooks.Add

aplExcel.ActiveCell = "Ciao da Access."

aplExcel.ActiveWorkbook.SaveAs ( "c: \ MadeByAccess.xlsx")

aplExcel.Quit

End Sub

4 Clicca comando "Esegui" del menu "Run" per eseguire il programma, quindi utilizzare Esplora risorse per passare alla cartella "C :."

5 Fare doppio clic sul file "MadeByAccess.xlsx" per caricare il file in Excel. Si noti la prima cella nel primo foglio di lavoro visualizza il testo da "Ciao da Access", che è apparso nel programma.

Leggere un valore da Excel

6 Aprire Excel, quindi digitare alcun testo nella cella "A1" del primo foglio di lavoro. Premere il tasto "Control" e "S" simultaneamente, quindi digitare "C: \ ForAccess.xlsx" nella casella di testo "Nome". Fai clic su "Salva", quindi premere "Control" e "F4" simultaneamente per chiudere Excel.

7 Open Access, quindi fare clic sul pulsante della scheda "Sviluppatore" "Visual Basic" per accedere all'ambiente di programmazione Visual Basic.

8 Clicca comando "di riferimento" del menu "Strumenti", quindi fare clic sulla casella di controllo della voce "Microsoft Excel" per attivare il programma per controllare Excel.

9 Clicca comando "Module" del menu "Inserisci", quindi incollare il seguente programma nella nuova finestra che appare. Questo programma si apre la cartella di lavoro di Excel creato nel passaggio 1, e legge cella "A1" da quella cartella di lavoro.

Public Sub ForAccess ()

Dim aplExcel Come Excel.Application

Set aplExcel = CreateObject ( "Excel.Application")

aplExcel.Workbooks.Open ( "c: \ ForAccess.xlsx")

MsgBox aplExcel.ActiveCell

aplExcel.ActiveWorkbook.Close

aplExcel.Quit

End Sub

10 Clicca comando "Esegui" del menu "Run" per eseguire il programma. L'accesso verrà visualizzata una finestra di messaggio che mostra il testo digitato nella cella di foglio di lavoro Excel in fase uno.