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

Т.е. рекордер здесь не катит.. может. можно как-нибудь создать вордовский документ со всеми форматами из екселя? Наверняка можно напихать неформатированые данные в ворд, а потом запустить из екселя вордовый макрос по форматированию? Подскажите кто чем )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.05.2007, 16:08
    #34519811
Dick Johnson
Dick Johnson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка из excel в word
У меня весь код выглядит так:
Код: 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:18
    #34519864
Hashman
Hashman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка из excel в word
Есть у меня нехорошее предчуствие, что это вордовый макрос... ))) У меня, правда выдает всякие нехорошие ругательства на уровне dim, но это частности... мне бы что бы в екселе макрос был..?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.05.2007, 16:27
    #34519915
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка из excel в word
Тогда наоборот:
Код: 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:33
    #34519945
Hashman
Hashman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка из excel в word
Ага. Тема, похоже, рабочая... но тут такое дело, у меня на "CreateObject("Word.Applicaton")" жеско матерится... Я понимаю, что пошла другая тема, но подскажите, чего там мне надо прикрутить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.05.2007, 16:41
    #34519978
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка из excel в word
"Word.Applicat i on"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.05.2007, 16:43
    #34519990
Hashman
Hashman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка из excel в word
Позор на мои седины! Все работает! )))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2007, 18:34
    #34582161
Noter
Noter
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка из excel в word
Спасибо, за ответы. Тоже нашел для себя данную функцию полезной, но столкнулся со следующей проблемой:
данный код работает с офисами XP, 2003...
А вот работать с офисом 2000 отказался. Т.е копирование, открытие ворда происходит, а вот последней строчка-команда не распознается.
Может кто подскажет как организовать данную операцию для офиса 2000.
Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2007, 00:17
    #34588959
kefi
kefi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка из excel в word
А что такие странности тут обсуждаются?
Вы на уровне копи и пэйста все делаете, как не программирующие юзеры. Ну и жмите ctrl-C и ctrl-v - и будет вам , то что хотели.

Почему не хотите хотя бы слить даные из Exel в word , в смысле документ слияния сделать не хотите ? А вобще способов туча.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выгрузка из excel в word / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 485ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163879]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 151ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 231ms
total:  485ms
x
x
Закрыть


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