Как да напишете макрос в Word, за да четете данни от Excel

Стъпка 1

Отворете Excel и въведете стойност в първата клетка на първия работен лист. Кликнете върху командния бутон на Office "Save" и въведете "c: \ ReadFromExcel.xlsx" за името на файла. Кликнете върху "Запазване", за да запазите книгата и да затворите Excel.

Стъпка 2

Кликнете върху бутона Office в Word и след това върху бутона "Опции". Кликнете върху квадратчето за отметка "Програмист", за да се покаже този раздел, съдържащ командите на макроса за Word.

Стъпка 3

Кликнете върху раздела "Програмист" на "Visual Basic", за да влезете в средата за разработка.

Стъпка 4

Кликнете върху менюто "Инструменти", след това върху командата "Препратки". Кликнете върху елемента "Microsoft Excel Objects", който позволява на макроса да осъществява достъп до виртуални обекти на Excel.

Стъпка 5

Напишете следната програма в прозореца на кода. Тази програма ще създаде връзка към приложението Excel, след което ще го затвори. Програмата все още не прави нищо с установената връзка. Сега нека използваме връзката, за да отворим работната книга на Excel, която създадохте в стъпка 1.

Публичен Sub ReadExcelData () Dim pgmExcel Като Excel.Application Задаване pgmExcel = CreateObject ("Excel.Application") pgmExcel.Quit End Sub

Стъпка 6

Напишете следните изявления след "Set". Тези изрази откриват работната книга на Excel, която сте създали в Стъпка 1, и я затворете. Ревизираната програма все още не е чела никаква информация от книгата. Следното изявление, което пишете, ще прочете информацията в книгата.

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

Стъпка 7

Напишете следните твърдения след "Отвори". Тази инструкция използва обекта pgmExcel, за да прочете стойността на първата клетка в работната книга от стъпка 1. Командата "MsgBox" показва тази стойност.

MsgBox pgmExcel.ActiveWorkbook.Sheets (1) Цели (1, 1)

Стъпка 8

Кликнете върху някое от състоянията на програмата и командата "Run" на това меню. "Програмата ще се стартира и ще покаже стойността на клетката, в която сте написали в стъпка 1.