|
Visual Basic pour Applications ( VBA) , scripting la langue de Microsoft pour Excel et Word, permet aux utilisateurs de ces programmes écrire des scripts qui permettent d'accélérer les tâches courantes telles que l'accès aux données de la table . En plus de donner aux utilisateurs Excel la possibilité de gérer les données tableau Excel , VBA fournit également un moyen pour accéder aux tables dans les documents Word . Les développeurs VBA se réfèrent à cette capacité d'un programme Office pour exécuter un autre comme « automatisation ». Un avantage que l'automatisation de l'extraction des données de Word fournit est un gain de temps . Sans automatisation, les utilisateurs d'Excel peuvent avoir besoin d'utiliser des méthodes plus consommatrices de temps pour mettre les données dans Excel à partir de Word . Instructions
1 Créer un nouveau document dans Word en appuyant sur " Ctrl- N . " Cliquez sur le menu "Insertion" puis cliquez sur l'icône "Tableau" dans le panneau "Table" . Cliquez sur l'icône d'une cellule pour faire une table, puis le type de données dans au moins cellule de gauche de la rangée du haut . Enregistrez le document comme "C: \\ WordTableData.doc " puis fermez Word. Cette étape crée des données de l'échantillon que vous allez extraire avec Excel.
2 Créer un nouveau document dans Excel , puis appuyez sur "Alt- F11 " pour entrer dans l'environnement de développement intégré Visual Basic (IDE). L' IDE fournit les moyens pour entrer manuellement les programmes VBA , contrairement à l'enregistrement des macros dans Excel.
3 Cliquez sur "Insérer " puis " Module " pour créer un nouveau module pour la saisie du code programme . Tapez le code suivant n'importe où dans le nouveau module:
Public Sub accessTable ()
Set appWD = CreateObject (" Word.Application " )
appWD.Documents.Open fichier : = " C: \\ WordTableData.doc " , _
ConfirmerConversions : = False , ReadOnly : = False , AddToRecentFiles : = False , AB PasswordDocument : = "", PasswordTemplate : = "" , Revert : = False , _
WritePasswordDocument : = "", WritePasswordTemplate : = "" , format: = _
wdOpenFormatAuto
x = appWD.ActiveDocument.Tables ( 1). Lignes ( 1). Cells (1) Photos MsgBox ( x )
appWD.Quit
End Sub
Cette sous-routine crée un caché instance de Microsoft Word, utilise ensuite pour ouvrir un document Word et obtenir la valeur d'une cellule dans le premier tableau du document.
4 Cliquez sur l' item "Références" de l'EDI dans le menu " Outils" et puis faites défiler la liste des objets que vous voyez " Bibliothèque d'objets Microsoft Word. " Placez une coche dans la case à gauche de cet article , puis fermez la boîte de dialogue " Références ". Pour courir, votre code doit mettre un lien vers des objets virtuels de Word ( par exemple , les tables ) . La boîte de dialogue "Références" vous permet de créer ce lien.
5 Cliquez n'importe où à l'intérieur du sous-programme " accessTable " vous avez écrit à l'étape 3 , puis appuyez sur la touche "F5 " pour exécuter le sous-programme. Après une courte pause , Excel affiche une boîte de dialogue avec les données saisies dans le tableau du document Word à l'étape 1 .
6 Tapez le nouveau code suivant après l'instruction " Public Sub " dans le " accessTable " sous-programme :
dim someRow , someColumn
someRow = InputBox (" Entrez la ligne que vous voulez extraire des données à partir de ». )
someColumn = InputBox (" Entrez la colonne que vous souhaitez extraire des données à partir de ». )
Ces nouvelles déclarations, et celui de la prochaine étape, vous permettent de choisir quelle cellule du tableau pour extraire des données à partir .
7 Remplacez la mention commençant par "x = appWD " avec cette déclaration: .
x = appWD.ActiveDocument.Tables (1) Lignes ( someRow ) Cellules ( someColumn )
. 8 Exécuter la routine que vous avez fait à l'étape 5 . Répondez aux invites de la ligne et de la colonne . Votre programme révisé permettra d'extraire les données de la table de la cellule que vous avez spécifié et l'afficher dans une boîte de dialogue .
|
