Cum se scrie o macro în Word pentru a citi datele Excel

Pasul 1

Deschideți Excel și introduceți o valoare în prima celulă din prima foaie de lucru. Faceți clic pe butonul de comandă Office "Save" și tastați "c: \ ReadFromExcel.xlsx" pentru numele fișierului. Faceți clic pe "Salvați" pentru a salva cartea și a închide Excel.

Pasul 2

Faceți clic pe butonul Office din Word și apoi pe butonul "Opțiuni". Faceți clic pe caseta de selectare "Dezvoltator" pentru a afișa această filă care conține comenzile macro Word.

Pasul 3

Faceți clic pe fila "Dezvoltator" din "Visual Basic" pentru a intra în mediul de dezvoltare.

Pasul 4

Faceți clic pe meniul "Instrumente", apoi pe comanda "Referințe". Faceți clic pe elementul "Obiecte Microsoft Excel", care permite macro-ului să acceseze obiecte virtuale Excel.

Pasul 5

Scrieți următorul program în fereastra de cod. Acest program va crea un link către aplicația Excel, apoi îl închide. Programul încă nu face nimic cu legătura stabilită. Acum, să folosim linkul pentru a deschide registrul de lucru Excel pe care l-ați creat în Pasul 1.

Public Sub ReadExcelData () Dim pgmExcel Ca Excel.Application Set pgmExcel = CreateObject ("Excel.Application") pgmExcel.Quit End Sub

Pasul 6

Scrieți următoarele afirmații noi după "Set". Aceste instrucțiuni deschid registrul de lucru Excel pe care l-ați creat în Pasul 1 și îl închideți. Programul revizuit nu a citit încă nicio informație din carte. Următoarea declarație pe care o scrieți va citi informațiile din carte.

PgmExcel.Workbooks.Open "c: \ ReadFromExcel.xlsx"

Pasul 7

Scrieți următoarele afirmații după "Deschidere". Această instrucțiune utilizează obiectul pgmExcel pentru a citi valoarea primei celule din registrul de lucru de la Pasul 1. Comanda "MsgBox" arată această valoare.

MsgBox pgmExcel.ActiveWorkbook.Sheets (1) .Celuri (1, 1)

Pasul 8

Faceți clic pe oricare dintre stările programului și pe comanda "Run" a acelui meniu. "Programul va rula și va afișa valoarea celulei în care ați scris în Pasul 1.