Comment écrire une macro dans Word qui lit les données à partir d'Excel

Instructions

1. Ouvrez Excel, puis tapez une valeur dans la première cellule de la première feuille de calcul. Cliquez sur "Enregistrer" de la commande sur le bouton Office, puis tapez "c: ReadFromExcel.xlsx" pour le nom du fichier. Cliquez sur «Enregistrer» pour enregistrer le classeur, puis fermez Excel.

2. Cliquez sur le bouton Office dans Word, puis cliquez sur le bouton "Options". Cliquez sur la case "développeur" pour afficher l'onglet "Developer", qui détient les commandes de macro de Word.

3. Cliquez sur le bouton de l'onglet "Developer" "Visual Basic" pour entrer dans l'environnement de développement Visual Basic.

4. Cliquez sur le menu "Outils", puis cliquez sur la commande "Références". Cliquez sur l'élément "des objets Microsoft Excel", qui permet à votre macro accèdent aux objets virtuels d'Excel.

5. 
   
   
   
   

   Tapez le programme suivant dans la fenêtre de code. Ce programme crée un lien vers l'application Excel, puis fermez le lien. Le programme ne fait pas encore quoi que ce soit avec le lien établi. Vous allez maintenant utiliser le lien pour ouvrir le classeur Excel que vous avez créé à l'étape 1.

   Public Sub ReadExcelData ()

   Dim pgmExcel Comme Excel.Application

   Réglez pgmExcel = CreateObject ("Excel.Application")

   pgmExcel.Quit

   End Sub

6. 
   
   

   Tapez les nouvelles déclarations suivantes après la "Set" déclaration. Ces déclarations ouvrez le classeur Excel que vous avez créé à l'étape 1, puis fermez le classeur. Le programme révisé ne lit pas encore toute l'information à partir du classeur. La déclaration suivante vous écrirez sera lire des informations à partir du classeur.

   PgmExcel.Workbooks.Open "c: ReadFromExcel.xlsx"

7. Entrez les instructions suivantes après la déclaration "Ouvrir". Cette déclaration utilise l'objet pgmExcel pour lire la valeur de la première cellule dans le classeur à partir de l'étape 1. Le "MsgBox" déclaration affiche cette valeur.

   MsgBox pgmExcel.ActiveWorkbook.Sheets (1) .Cells (1, 1)

8. Cliquez sur l'un des comptes du programme, puis cliquez sur la commande "Exécuter" du menu "Exécuter". Votre programme sera exécuté et afficher la valeur de la cellule dans laquelle vous avez tapé dans l'étape 1.