Visual Basic for Applications (VBA), linguaggio di scripting di Microsoft per Excel e Word, consente agli utenti di questi programmi di scrivere script che velocizzano le attività comuni come l'accesso ai dati della tabella. Oltre a dare gli utenti di Excel la capacità di gestire i dati della tabella Excel, VBA fornisce anche un mezzo per accedere alle tabelle nei documenti di Word. Gli sviluppatori VBA fare riferimento a questa capacità di un programma di Office per eseguire un altro come "automazione". Uno dei vantaggi che parola dati estrazione automatica fornisce è risparmio di tempo. Senza automazione, gli utenti di Excel potrebbe essere necessario utilizzare più metodi che richiede tempo per trasferire dati in Excel da Word.

Istruzioni

1

Creare un nuovo documento in Word premendo "Controllo-N." Fare clic sul menu "Inserisci" e quindi fare clic sull'icona di "Tabella" nel pannello "Tabella". Fare clic su un'icona qualsiasi cellulare per fare una tabella e quindi digitare dati in almeno prima cella a sinistra della riga superiore. Salvare il documento come "C:\WordTableData.doc" e quindi chiudere Word. Questo passaggio consente di creare dati di esempio che potrà estrarre con Excel.

2

Creare un nuovo documento in Excel e quindi premere "Alt-F11" per entrare in ambiente di sviluppo integrato (IDE) di Visual Basic. L'IDE fornisce i mezzi per immettere manualmente i programmi VBA, in contrasto con la registrazione delle macro all'interno di Excel.

3

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

Public Sub accessTable()

Set appWD = CreateObject

appWD.Documents.Open Filename:="C:\WordTableData.doc" _

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

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

WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _

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, quindi viene utilizzato per aprire un documento di Word e ottenere il valore di una cella nella prima tabella del documento.

4

Fare clic su elemento di "Riferimenti" dell'IDE sotto il menu "Strumenti" e poi scorrere verso il basso l'elenco di oggetti fino a visualizzare "Microsoft Word Object Library". Inserire un segno di spunta nella casella a sinistra di questo elemento e quindi chiudere il "nella finestra di dialogo riferimenti." Per eseguire, il codice deve collegarsi a oggetti virtuali di Word (ad esempio, tabelle). Nella finestra di dialogo "Riferimenti" consente di creare quel link.

5

Fare clic in un punto qualsiasi all'interno della subroutine "accessTable" hai scritto nel passaggio 3 e quindi premere "F5" per eseguire la subroutine. Dopo una breve pausa, Excel visualizzerà una finestra di dialogo con i dati inseriti nella tabella del documento Word nel passaggio 1.

6

Digitare il seguente codice di nuovo dopo l'istruzione "Public Sub" nella subroutine "accessTable":

Dim someRow, someColumn

someRow = inputbox ("immettere la riga che si desidera estrarre i dati dal.")

someColumn = inputbox ("immettere la colonna che si desidera estrarre i dati dal.")

Queste nuove istruzioni e quello nel passaggio successivo, consentono di scegliere quale cella di tabella per estrarre dati da.

7

Sostituire l'inizio di istruzione 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. Seguire le istruzioni visualizzate per la riga e colonna. Il vostro programma riveduto estrarre i dati della tabella dalla cella specificata e visualizzarlo in una finestra di dialogo.