Come programma di Excel VBA Da accesso

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

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

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

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.