Comment écrire une macro dans Word pour lire des données Excel

Étape 1

Ouvrez Excel et entrez une valeur dans la première cellule de la première feuille de calcul. Cliquez sur le bouton de commande Office "Enregistrer" et tapez "c: \ ReadFromExcel.xlsx" pour le nom du fichier. Cliquez sur "Enregistrer" pour enregistrer le livre et fermez Excel.

Étape 2

Cliquez sur le bouton Office dans Word, puis sur le bouton "Options". Cliquez sur la case à cocher "Développeur" pour afficher cet onglet contenant les commandes de macro Word.

Étape 3

Cliquez sur l'onglet "Développeur" de "Visual Basic" pour accéder à l'environnement de développement.

Étape 4

Cliquez sur le menu "Outils", puis sur la commande "Références". Cliquez sur l'élément "Objets Microsoft Excel", qui permet à la macro d'accéder aux objets virtuels Excel.

Étape 5

Écrivez le programme suivant dans la fenêtre de code. Ce programme créera un lien vers l'application Excel, puis le fermera. Le programme ne fait toujours rien avec le lien établi. Utilisons maintenant le lien pour ouvrir le classeur Excel que vous avez créé à l'étape 1.

Public Sub ReadExcelData () Dim pgmExcel As Excel.Application Défini pgmExcel = CreateObject ("Excel.Application") pgmExcel.Quit End Sub

Étape 6

Écrivez les nouvelles instructions suivantes après "Set". Ces instructions ouvrent le classeur Excel créé à l'étape 1 et le ferment. Le programme révisé n'a encore lu aucune information du livre. La déclaration suivante que vous écrivez lira les informations contenues dans le livre.

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

Étape 7

Écrivez les affirmations suivantes après "Ouvrir". Cette instruction utilise l'objet pgmExcel pour lire la valeur de la première cellule du classeur de l'étape 1. La commande "MsgBox" affiche cette valeur.

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

Étape 8

Cliquez sur l'un des états du programme et sur la commande "Exécuter" de ce menu. "Le programme s'exécutera et affichera la valeur de la cellule dans laquelle vous avez écrit à l'étape 1.