| |
|
|
| | не могу врубиться как и с чего начать - сделал макрос он берет значение из ячейки в excel а как вставить в word? в определенное место? plz помогите! | |
| |
| |
| |
|
|
| | получить word через OLE
читать help по CreateObject или GetObject
и
http://hiprog.com/index.php?option=com_content&task=blogcategory&id=112&Itemid=152 | |
| |
| |
| |
|
|
| | Вордовский макрос.
Запускает 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
|
| |
| |
| |
