| Вопрос: Перенос таблицы из Excel в Word | Добавлено: 11.03.08 12:13 |
Автор вопроса:  angrynews | Web-сайт: www.angrynews.ru
|
|
Никогда с вордом не работал в VBA, поэтому вопрос:
(листинг сиди в модуле экселя) 1. Это есть, т.е. нужный файл ворда открываю из экселя. Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.ChangeFileOpenDirectory myPath objWord.Documents.Open fileName:="report template (rus).doc" 2. Как перекинуть фокус обратно в эксель? 3. Как скопированный в экселе selection вставить в ворд? 4. Как в ворде обнаружить конец документа или идентифицировать разрыв строки? Благодарю всех заранее |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  angrynews Вопросов: 33 Ответов: 119 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 12.03.08 08:00 |
|
Вот такой код - пишет, что объект не подерживает метод
Worksheets("summary"  .Range(Cells(2, 1), Cells(17, 8)).Select
Selection.Copy objWord.documents(myPath & "\" & "report template (rus).doc" .Activate
ActiveDocument.Select Selection.PasteExcelTable False, False, True |
||
|
Номер ответа: 2 Автор ответа: angrynewsВопросов: 33 Ответов: 119 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 12.03.08 08:54 |
| Уже получается вставлять таблицу, подключив библиотеку, но через раз вылезает сообщение, что удаленный сервер что-то там не авилибел или экзистинг. Именно через раз... | ||
Страница: 1 |