Capire come programma Excel VBA da Access permette di scrivere programmi che lo scambio di 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 gli oggetti virtuali degli altri . Gli elementi chiave di automazione comprendono oggetti VBA virtuali di un'applicazione , come ad esempio la raccolta di Excel " cartelle di lavoro " e la proprietà " ActiveCell " . L'istruzione VBA che rende gli oggetti di Excel a disposizione accesso è " CreateObject ".
Istruzioni inviare dati ad Excel
1
Open Access , quindi fare clic su pulsante " Visual Basic " del tab " Sviluppo " per entrare nell'ambiente di sviluppo di Visual Basic .
2 < p > Fare clic su comando " Module" del menu "Inserisci" per creare una nuova finestra per tenere il vostro programma di controllo di 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 agli 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 ( ) per
Dim aplExcel Come Excel.Application
aplExcel = CreateObject ( " Excel.Application " ) per
aplExcel.Workbooks.Add
aplExcel.ActiveCell = " . Ciao da Access"
aplExcel.ActiveWorkbook.SaveAs ( "c: \\ MadeByAccess.xlsx " ) per
aplExcel.Quit
End Sub
4
Cliccare il comando" Esegui " " del menu " Run per eseguire il programma , quindi utilizzare Windows Explorer per accedere alla cartella "C : \\".
5 Fare doppio clic sul file " MadeByAccess.xlsx " per caricare il file in Excel . Notate la prima cella nel primo foglio di lavoro viene visualizzato il testo da " Ciao da Access ", che è apparso nel programma.
Leggere un valore da Excel
6
Aprire Excel , quindi digitare il 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" . Fare clic su " Salva ", quindi premere " controllo" e "F4" contemporaneamente per chiudere Excel .
7
Open Access , quindi fare clic su pulsante " Visual Basic " del tab " Sviluppo " per accedere alla programmazione in Visual Basic ambiente .
8
Clicca comando " di riferimento" del menu "Strumenti" , quindi fare clic sulla casella di controllo della voce " Microsoft Excel " per consentire al programma di controllare Excel .
9 < p > 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 tale cartella di lavoro .
Public Sub ForAccess ( ) per
Dim aplExcel Come Excel.Application
< p > Imposta aplExcel = CreateObject ( " Excel.Application " ) per
aplExcel.Workbooks.Open ( "c: \\ ForAccess.xlsx " ) per
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 del foglio di lavoro di Excel in fase uno.
