Nel mondo della programmazione è utile sapere come importare i dati di Microsoft Office Excel a un documento di Microsoft Office Word per condivisibilità. Word è un programma di elaborazione testi incluso nella suite Office. Excel è un foglio di calcolo anche parte della suite Office. Visual Basic, Applications Edition (VBA) è un linguaggio di programmazione utilizzato per automatizzare le attività di routine in applicazioni di Microsoft Office. Utilizzare VBA per automatizzare il processo manuale di importazione di fogli di calcolo Excel in documenti Word.

istruzione

1 Avviare Microsoft Office Word, selezionare la scheda "Sviluppatore" poi cliccare su "Visual Basic". Selezionare il menu "Inserisci" e fare clic su "Modulo".

Selezionare il menu "Strumenti" e fare clic su "Riferimenti". Seleziona la casella accanto a "Microsoft Excel <numero di versione> Object Library". Fai clic su "OK".

2 Digitare la seguente per creare una nuova subroutine:

Private Sub importExcelData ()

Premere Invio."

3 Digitare la seguente per creare le variabili:

Dim cartella di lavoro come cartella di lavoro

Dim dataInExcel As String

4 Digitare la seguente per aprire la cartella di lavoro di Excel:

Application.ScreenUpdating = False

Imposta cartella di lavoro = Workbooks.Open ( "C: \ Book1.xls", vero, vero)

Modifica "C: \ Book1.xls" e digitare il proprio percorso e cartella di lavoro nome.

5 Digitare la seguente per ottenere i dati "A1" nella cartella di lavoro e aggiungerlo al documento di Word:

dataInExcel = workBook.Worksheets ( "Sheet1"). Range ( "A1"). Formula

Selection.TypeParagraph

Selection.TypeText Testo: = dataInExcel

6 Digitare la seguente per ottenere i dati "A2" nella cartella di lavoro e aggiungerlo al documento di Word:

dataInExcel = workBook.Worksheets ( "Sheet1"). Range ( "A2"). Formula

Selection.TypeParagraph

Selection.TypeText Testo: = dataInExcel

7 Digitare la seguente per chiudere la cartella di lavoro e liberare le variabili dalla memoria:

workBook.Close false

Imposta cartella di lavoro = Nothing

Application.ScreenUpdating = True