Come estrarre dati dalle tabelle parola usando Excel VBA

December 8

Come estrarre dati dalle tabelle parola usando Excel VBA


Visual Basic, Applications Edition (VBA), il linguaggio di scripting di Microsoft per Excel e Word, consente agli utenti di questi programmi scrivono script che velocizzano le operazioni più comuni, come l'accesso ai dati della tabella. Oltre a dare agli utenti di Excel la possibilità di gestire i dati della tabella di Excel, VBA fornisce anche un mezzo per l'accesso ai tavoli nei documenti di Word. gli sviluppatori VBA si riferiscono a questa capacità di un programma di Office per eseguire un altro come "l'automazione". Un vantaggio che l'automazione di estrazione dei dati Word fornisce è un risparmio di tempo. Senza l'automazione, gli utenti di Excel potrebbe essere necessario utilizzare metodi più in termini di tempo per portare i dati in Excel da Word.

istruzione

1 Creare un nuovo documento in Word premendo il tasto "Control-N". Fare clic sul menu "Inserisci" e quindi fare clic sull'icona "Tabella" nel pannello "Table". Fare clic su qualsiasi icona delle cellule per fare un tavolo e quindi digitare i dati in almeno cella più a sinistra della riga superiore. Salvare il documento come "C: \ WordTableData.doc" e quindi chiudere Word. Questo passaggio crea dati di esempio che si svuota con Excel.

2 Creare un nuovo documento in Excel e quindi premere il tasto "Alt-F11" per accedere al Visual Basic ambiente di sviluppo integrato (IDE). L'IDE fornisce i mezzi per l'inserimento manuale programmi VBA, a differenza di registrazione delle macro all'interno di Excel.

3 Fai clic su "Inserisci" e poi "Modulo" per creare un nuovo modulo per l'immissione di codice di programma. Digitare il seguente codice in qualsiasi punto all'interno del nuovo modulo:

Public Sub accessTable ()

Set appWD = CreateObject ( "Word.Application")

appWD.Documents.Open Nome file: = "C: \ WordTableData.doc", _

ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False,

PasswordDocument: = "", PasswordTemplate: = "", Ripristina: = False, _

WritePasswordDocument: = "", WritePasswordTemplate: = "", formato: = _

wdOpenFormatAuto

x = appWD.ActiveDocument.Tables (1) .Rows (1) .Cells (1)

MsgBox (x)

appWD.Quit

End Sub

Questa subroutine crea un'istanza nascosta di Microsoft Word, poi la usa per aprire un documento Word e ottenere il valore di una cella nella prima tabella del documento.

4 Fare clic sulla voce "Riferimenti" del IDE sotto il menu "Strumenti" e poi scorrere l'elenco degli oggetti fino a vedere "Libreria oggetti di Microsoft Word." Mettere un segno di spunta nella casella a sinistra di questo elemento e quindi chiudere la finestra di dialogo "Riferimenti". Per eseguire, il codice ha bisogno di collegarsi a oggetti virtuali di Word (ad esempio, le tabelle). La finestra di dialogo "Riferimenti" consente di creare quel collegamento.

5 Fare clic in qualsiasi punto all'interno della subroutine "accessTable" lei ha scritto al punto 3 e poi premere il tasto "F5" per eseguire la subroutine. Dopo una breve pausa, Excel visualizza una finestra di dialogo con i dati immessi nella tabella del documento Word nel passaggio 1.

6 Digitare il seguente nuovo codice dopo l'istruzione "Public Sub" nel sottoprogramma "accessTable":

dim someRow, someColumn

someRow = InputBox ( "Inserire la riga che desideri estrarre i dati da.")

someColumn = InputBox ( "Inserire la colonna che si desidera estrarre i dati da.")

Queste nuove dichiarazioni, e quella nella fase successiva, consentono di scegliere quale cella tabella per estrarre i dati da.

7 Sostituire l'istruzione che inizia con "x = appWD" con questa affermazione:

x = appWD.ActiveDocument.Tables (1) .Rows (someRow) .Cells (someColumn)

8 Eseguire la subroutine come avete fatto nel passaggio 5. Rispondere ai prompt per la riga e la colonna. Il vostro programma riveduto estrarre i dati della tabella dalla cella specificata e visualizzarlo in una finestra di dialogo.


Articoli Correlati