December 8
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.
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.