|
Excel ne peut pas importer des tableaux Word aussi facilement que possible d'autres données. Une façon d'obtenir des tableaux Word dans Excel est d'abord de convertir les données dans les tableaux Word à des valeurs séparées par des virgules , mieux connu comme CSV. Mais c'est une tâche ardue . Une autre solution consiste à utiliser le langage de programmation d'Excel , Visual Basic pour applications, de lire les données d'un tableau Word et copiez-le dans une feuille de calcul Excel. En utilisant cette approche consiste à utiliser les objets virtuels de Word, y compris l'objet " Table" . Instructions
1 utiliser l'Explorateur Windows pour copier un fichier Word contenant au moins une table dans le dossier "C: \\". Renommez le fichier en " table.docx . " Vous écrivez un programme d'initiation qui va lire une cellule de tableau à partir de ce fichier .
2 Cliquez sur l'onglet « Développeur », puis cliquez sur le bouton " Visual Basic " pour entrer dans l'environnement de programmation Visual Basic. Collez le programme suivant dans la fenêtre de code VB . Ce programme crée un lien vers Word, Excel qui permet d'utiliser des objets virtuels de Word comme si le programme était exécuté à l'intérieur d'un document Word . Ce processus est appelé " Automation. "
Public Sub LoadWordTablebak ()
pgmWord As Word.application
Set pgmWord = CreateObject (" Word.Application " ) < br > pgmWord.Documents.Open . ( "c: \\ table.docx " )
MsgBox pgmWord.ActiveDocument.Tables (1 ) Cell (1, 1 )
pgmWord.ActiveDocument . Fermer
pgmWord.Quit
End Sub
3 Cliquez sur le menu " Outils", puis cliquez sur la commande «Références» . Faites défiler la fenêtre qui apparaît pour localiser l'élément «Microsoft Word », puis cliquez sur la case à cocher pour cet article. Cette action permet d' Excel accéder aux objets visuels dans un document Word .
4 Cliquez sur une déclaration dans le programme, puis cliquez sur la commande "Exécuter " du menu " Run" . Le programme affiche une boîte de dialogue affichant le contenu d'une cellule de tableau dans un document Word. Vous allez maintenant étendre le programme à charger dans un tableau complet de tout document Word.
5 Collez le programme révisé qui suit ci-dessous le " End Sub " déclaration du programme original . Ce programme invite l'utilisateur du nom de fichier d'un document Word. L'utilisateur doit aussi taper le numéro d'un tableau dans le document. Le programme utilise la méthode d'automatisation du premier programme à charger copier la cellule de tableau spécifié par cellule dans une feuille de calcul Excel.
Public Sub LoadWordTable2 ()
docname Dim As String
tableid As Integer
Dim c , r, startRow As Integer
Dim curCell
pgmWord As Word.application
Set curCell = ActiveCell
Set pgmWord = CreateObject (" Word.Application " )
docname = InputBox (" Entrez Parole nom du document " )
docname = InputBox (" Entrez Parole nom du document " ) Photos While ( docname <> "" )
tableid = InputBox (" Entrez le numéro de table" )
pgmWord.Documents.Open ( "c: \\ table. docx »)
pgmWord.ActiveDocument.Tables ( tableid )
startRow = ActiveCell.Row
Pour c = 1 To . Columns.Count
pour r = 1 To . Rows.Count
curCell.Value = . cellulaire (r, c)
« déplacer à la rangée suivante
Set curCell = curCell.Offset ( 1, 0)
suivante r
'Move à la colonne suivante
Set curCell = Cells ( startRow , curCell.Column + 1)
Suivant c Photos End With
pgmWord.ActiveDocument.Close
docname = InputBox (" Entrez Parole nom du document " )
Wend
pgmWord . Quit
End Sub
6 Cliquez sur l' icône de l'application "Excel" dans la barre des tâches Windows pour revenir à Excel, puis cliquez sur le bouton "Macros " de l'onglet "Developer " . Double-cliquez sur la macro " LoadWordTable " pour exécuter cette macro.
7 Tapez le nom d'un document Word contenant un tableau lorsque l'invite à le faire apparaît. Tapez le numéro de la table que vous voulez quand l'invite pour cette table apparaît. Par exemple, si vous voulez que le deuxième tableau dans le document , «2». Type Excel va charger la table dans la feuille de calcul actuelle.
8 Continuer chargement des tableaux Word avec le programme au besoin . Appuyez sur "Entrée" au " nom du document " prompt pour terminer le programme .
|
