Utilizzare Esplora risorse per copiare un file di Word che contiene almeno una tabella nella cartella " C : \\". Rinominare il file come " table.docx . " Potrai scrivere un programma introduttivo che leggerà una cella della tabella da questo file .
2 Fare clic sulla scheda "Sviluppatore " , quindi fare clic sul pulsante " Visual Basic " per entrare nell'ambiente di programmazione Visual Basic . Incolla il seguente programma nella finestra del codice VB . Questo programma crea un collegamento a Word , che consente di eccellere utilizzare gli oggetti virtuali di Word come se il programma fosse in esecuzione all'interno di un documento Word. Questo processo è chiamato " Automazione ".
Public Sub LoadWordTablebak ( ) per
Dim pgmWord Come Word.Application
pgmWord = CreateObject ( " Word.Application " )
pgmWord.Documents.Open . ( "c: \\ table.docx " )
MsgBox pgmWord.ActiveDocument.Tables ( 1 ) cellulare ( 1 , 1 ) per
pgmWord.ActiveDocument . Chiudi
pgmWord.Quit
End Sub
3 Fare clic sul menu "Strumenti" , quindi fare clic sul comando "Riferimenti" . Scorrere la finestra che appare per individuare la voce "Microsoft Word " , quindi fare clic sulla casella di controllo per tale voce. Questa azione consente di Excel accedere agli oggetti visivi in un documento Word .
4
Clicca alcuna dichiarazione nel programma , quindi fare clic su comando " Esegui" del menu " Run " . Il programma visualizza una finestra di messaggio che mostra il contenuto di una cella di una tabella in un documento di Word . Ora potrai espandere il programma di caricare in una tabella completa da qualsiasi documento di Word .
5
Incollare il seguente programma rivisto sotto l'istruzione " End Sub " del programma originale . Questo programma richiede all'utente il nome del file di un documento di Word . L' utente deve anche digitare il numero di una tabella all'interno del documento . Il programma utilizza il metodo di automazione del primo programma per caricare copiare la cella di tabella specificata dalla cella in un foglio Excel .
Public Sub LoadWordTable2 ( ) per
Dim docname Come
String
Dim TableID As Integer
Dim C, R , startRow As Integer Dim
curCell
Dim pgmWord Come Word.Application
curCell = ActiveCell < br
Set> pgmWord = CreateObject ( " Word.Application " ) per
docname = InputBox ( "Inserire il nome del documento Word " ) per
docname = InputBox ( "Inserire il nome del documento Word " )
Mentre ( docname < > " " ) per
TableID = InputBox ( " Inserire il numero di tavola " ) per
pgmWord.Documents.Open ( "c: \\ tavolo . docx " ) per
pgmWord.ActiveDocument.Tables ( TableID ) per
startRow = ActiveCell.Row
Per c = 1 To . Columns.Count
per r = 1 To . Rows.Count
curCell.Value = . cella ( r, c ) per
' Sposta alla riga successiva
curCell curCell.Offset = ( 1 , 0 ) per
Avanti r
' Sposta alla colonna successiva
curCell = Cells ( startRow , curCell.Column + 1 ) per
Avanti c
End With
pgmWord.ActiveDocument.Close
docname = InputBox ( "Inserire il nome del documento Word " ) per
Wend
pgmWord . Quit
End Sub
6
clic sull'icona dell'applicazione "Excel" nella barra delle applicazioni di Windows per tornare a Excel , quindi fare clic sul pulsante " Macro " della scheda " sviluppatori" . Fare doppio clic sulla macro " LoadWordTable " per eseguire tale macro .
7
Digitare il nome di un documento di Word contenente una tabella in cui la richiesta di farlo appare . Digitare il numero della tabella che si desidera quando il prompt per quella tabella compare . Per esempio, se si desidera che la seconda tabella nel documento , di tipo " 2 ". Excel caricherà la tabella nel foglio di calcolo corrente.
8
continuare a caricare tabelle di Word con il programma in base alle esigenze . Premere "Enter" al " nome del documento " prompt per terminare il programma .
software © www.354353.com