|
Comprendre comment le programme Excel VBA , Access vous permet d'écrire des programmes qui échangent des données entre les deux applications. Chaque application dispose de fonctionnalités pas l'autre , mais en utilisant ce que Microsoft appelle «Automatisation », vous pouvez donner à chaque programme les outils VBA et des objets virtuels de l'autre . Les éléments clés de l'automatisation comprennent les objets VBA virtuels d'une application , tels que la collecte Excel » Classeurs » et la propriété " ActiveCell " . La déclaration VBA qui rend les objets d'Excel disponible à l'accès est " CreateObject ". Instructions
envoyer des données vers Excel
1 Open Access , puis cliquez sur le bouton " Visual Basic " de l'onglet "Developer " de pénétrer dans l'environnement de développement Visual Basic .
2 Cliquez sur la commande "Module" du menu "Insertion " pour créer une nouvelle fenêtre de tenir votre programme de contrôle Excel, puis cliquez sur le menu " Outils". Cliquez sur la commande « de référence» , puis cochez la case «Microsoft Excel» afin que votre programme peut accéder à des objets virtuels d'Excel .
3 Collez le programme suivant dans la fenêtre . Ce programme crée un classeur Excel, puis insère le texte dans l'une des cellules du classeur.
Public Sub MadeByAccess ()
aplExcel As Excel.Application
Set aplExcel = CreateObject ( " Excel.Application " )
aplExcel.Workbooks.Add
aplExcel.ActiveCell = " . Bonjour à partir d'Access "
aplExcel.ActiveWorkbook.SaveAs ( "c: \\ MadeByAccess.xlsx " )
aplExcel.Quit
End Sub
4 Cliquez sur" la commande Exécuter "" du menu " Run pour exécuter le programme, puis utiliser Windows explorer pour naviguer vers le dossier "C: \\".
5 Double- cliquez sur le fichier " MadeByAccess.xlsx " pour charger ce fichier dans Excel. Notez que la première cellule de la première feuille de calcul affiche le texte de " Bonjour à partir d'Access », paru dans votre programme.
Lire une valeur à partir d'Excel
6 Ouvrez Excel , puis tapez le texte dans la cellule " A1 " de la première feuille de calcul. Appuyez sur "Control" et "S " en même temps , puis tapez "C: \\ ForAccess.xlsx " dans la zone de texte "Nom" . Cliquez sur "Enregistrer ", puis appuyez sur "Control" et " F4 " simultanément pour fermer Excel.
7 Open Access , puis cliquez sur " Visual Basic " de l'onglet "Developer " de pour entrer dans la programmation Visual Basic environnement.
8 Cliquez sur la commande « de référence» du menu «Outils », puis cliquez sur la case de l'élément «Microsoft Excel» pour permettre à votre programme pour contrôler Excel.
9 < p> Cliquez la commande "Module" du menu " Insertion", puis collez le programme suivant dans la nouvelle fenêtre qui s'affiche. Ce programme ouvre le classeur Excel que vous avez créé à l'étape 1 , et lit la cellule "A1" à partir de ce classeur .
Public Sub ForAccess ()
aplExcel As Excel.Application
Set aplExcel = CreateObject (" Excel.Application " )
aplExcel.Workbooks.Open ( "c: \\ ForAccess.xlsx " )
MsgBox aplExcel.ActiveCell
aplExcel . ActiveWorkbook.Close
aplExcel.Quit
End Sub
10 Cliquez sur la commande "Exécuter " du menu " Run" pour exécuter le programme. Access affiche une boîte de message indiquant le texte que vous avez tapé dans la cellule de feuille de calcul Excel dans la première étape .
|
