ник: Brodotsky
Вордовский макрос.
Запускает Excel, открывает файл, переходит на нужный лист, берёт текст нужной ячейки
(в данном случае – файл C:\1.xls, лист 1, ячейка A1).
Текст вставляется в текущее место активного документа Word.
Sub Excel2Word()
'----------------------------------------------------------------------
'Запуск Excel:
Set Excel = CreateObject("Excel.Application")
'----------------------------------------------------------------------
'Открытие файла:
Set Workbook = Excel.Workbooks.Open("C:\1.xls")
'----------------------------------------------------------------------
'Первый лист:
Set Worksheet = Workbook.Worksheets(1)
'----------------------------------------------------------------------
'Текст ячейки A1:
Text = Worksheet.Range("A1").Text
'----------------------------------------------------------------------
'Выход из Excel:
Excel.Quit
'----------------------------------------------------------------------
'Вставка в Word:
Selection.InsertAfter (Text)
'----------------------------------------------------------------------
End Sub
|