ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выгрузка из excel в word
9 сообщений из 9, страница 1 из 1
Выгрузка из excel в word
    #34517204
Hashman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hashman
Гость
Доброе время суток! Надо из екселя напихть данные в ворд... Как это сделать - непонятно, т.к. рекордер записывает только операции с екселем, а что я делаю после альт-таба он не пишет... Т.е. последняя строка кода -
Код: plaintext
1.
2.
3.
4.
 
   .......
    Range("A5").Activate
    Selection.Copy
End Sub

Т.е. рекордер здесь не катит.. может. можно как-нибудь создать вордовский документ со всеми форматами из екселя? Наверняка можно напихать неформатированые данные в ворд, а потом запустить из екселя вордовый макрос по форматированию? Подскажите кто чем )))
...
Рейтинг: 0 / 0
10.05.2007, 17:46
| Ответить | Цитировать | Написать  
Выгрузка из excel в word
    #34519811
Dick Johnson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dick Johnson
Гость
У меня весь код выглядит так:
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Макрос1()
    Dim bkExcel As Excel.Workbook
    Dim shExcel As Excel.Worksheet
    Set bkExcel = Workbooks.Open("C:\Temp.xls")
    bkExcel.Worksheets( 1 ).Range("A1:D8").Copy
    Selection.PasteExcelTable False, False, False
End Sub

Копирует на место расположения курсора кусок из Экселя.
...
Рейтинг: 0 / 0
11.05.2007, 16:08
| Ответить | Цитировать | Написать  
Выгрузка из excel в word
    #34519864
Hashman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hashman
Гость
Есть у меня нехорошее предчуствие, что это вордовый макрос... ))) У меня, правда выдает всякие нехорошие ругательства на уровне dim, но это частности... мне бы что бы в екселе макрос был..?
...
Рейтинг: 0 / 0
11.05.2007, 16:18
| Ответить | Цитировать | Написать  
Выгрузка из excel в word
    #34519915
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Тогда наоборот:
Код: plaintext
1.
2.
3.
4.
Dim wrd as Object
Worksheets( 1 ).Range("A1:D8").Copy
Set wrd = CreateObject("Word.Applicaton")
wrd.Visible=True
wrd.Documents.Add.Range.PasteExcelTable False, False, False
...
Рейтинг: 0 / 0
11.05.2007, 16:27
| Ответить | Цитировать | Написать  
Выгрузка из excel в word
    #34519945
Hashman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hashman
Гость
Ага. Тема, похоже, рабочая... но тут такое дело, у меня на "CreateObject("Word.Applicaton")" жеско матерится... Я понимаю, что пошла другая тема, но подскажите, чего там мне надо прикрутить?
...
Рейтинг: 0 / 0
11.05.2007, 16:33
| Ответить | Цитировать | Написать  
Выгрузка из excel в word
    #34519978
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
"Word.Applicat i on"
...
Рейтинг: 0 / 0
11.05.2007, 16:41
| Ответить | Цитировать | Написать  
Выгрузка из excel в word
    #34519990
Hashman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hashman
Гость
Позор на мои седины! Все работает! )))))
...
Рейтинг: 0 / 0
11.05.2007, 16:43
| Ответить | Цитировать | Написать  
Выгрузка из excel в word
    #34582161
Noter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Noter
Гость
Спасибо, за ответы. Тоже нашел для себя данную функцию полезной, но столкнулся со следующей проблемой:
данный код работает с офисами XP, 2003...
А вот работать с офисом 2000 отказался. Т.е копирование, открытие ворда происходит, а вот последней строчка-команда не распознается.
Может кто подскажет как организовать данную операцию для офиса 2000.
Заранее спасибо.
...
Рейтинг: 0 / 0
07.06.2007, 18:34
| Ответить | Цитировать | Написать  
Выгрузка из excel в word
    #34588959
kefi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kefi
Гость
А что такие странности тут обсуждаются?
Вы на уровне копи и пэйста все делаете, как не программирующие юзеры. Ну и жмите ctrl-C и ctrl-v - и будет вам , то что хотели.

Почему не хотите хотя бы слить даные из Exel в word , в смысле документ слияния сделать не хотите ? А вобще способов туча.
...
Рейтинг: 0 / 0
12.06.2007, 00:17
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выгрузка из excel в word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34519945&tid=2163879]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 67ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 227ms
total:  374ms
созд. / загр.: 374ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]