Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come estrarre dati da tabelle di Word con 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 accedere a tabelle nei documenti di Word . Sviluppatori VBA si riferiscono a questa capacità di un programma di Office per eseguire un altro come " automazione ". Un vantaggio che automatizzare l'estrazione di dati Word fornisce sia risparmio di tempo . Senza l'automazione , gli utenti di Excel potrebbe essere necessario utilizzare metodi più che richiede tempo per portare i dati in Excel da Word . Istruzioni
1

Creare un nuovo documento in Word premendo " Ctrl- N . " Fai clic sul menu "Inserisci" e poi fare clic sull'icona "Tabella" nel pannello "Tabella" . Fare clic su qualsiasi icona cella per fare una tabella 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 consente di creare dati di esempio che svuota con Excel .
2

Creare un nuovo documento in Excel e poi premere "Alt - F11 " per accedere all'ambiente di sviluppo integrato Visual Basic ( IDE ) . L'IDE fornisce i mezzi per l'inserimento manuale dei programmi VBA , in contrasto con la registrazione delle macro all'interno .
3

Excel Fare 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 ( ) per

appWD = CreateObject ( " Word.Application " ) per

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

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

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

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

wdOpenFormatAuto

x = appWD.ActiveDocument.Tables ( 1 ) . Righe (1). Cells ( 1 ) per

MsgBox ( x ) per

appWD.Quit

End Sub

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

fare clic sulla voce "Riferimenti" di IDE sotto il menu "Strumenti" e quindi scorrere verso il basso l'elenco di 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 l'esecuzione, il codice deve collegare 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 " hai scritto al punto 3 e poi premere "F5" per eseguire la subroutine . Dopo una breve pausa , Excel verrà visualizzata una finestra di dialogo con i dati inseriti nella tabella del documento di Word nella Fase 1.
6

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

dim someRow , someColumn

someRow = InputBox ( " Inserire la riga vuoi estrarre i dati. " ) per

someColumn = InputBox ( " Inserisci la colonna vuoi estrarre i dati. " ) per

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

sostituire l'istruzione che inizia con " x = appWD " con questa dichiarazione : .

x = appWD.ActiveDocument.Tables ( 1) Righe ( someRow ) Cells ( someColumn ) economici . 8

eseguire la subroutine come avete fatto al punto 5 . Rispondere alle indicazioni per la riga e di colonna . Il vostro programma rivisto estrarrà i dati della tabella dalla cella specificata e visualizzarli in una finestra di dialogo .

 

software © www.354353.com