Копировать данные из Excell в Word - Microsoft Office Excel

Dimon_isu · 30.01.2008, 23:07

Народ, помогите!
Проблема такая, у меня в базе данных табличка,
загрузить данные из нее получается в Excell,
теперь надо их скопировать в WORD,
как это сделать через макрос, чтоб автоматически было,
очень надо.

SAS888 · 31.01.2008, 09:47

Следующий макрос открывает Word и копирует выделенный диапазон с листа Excel. Если Word уже открыт, то данные вставляются в активный документ в место курсора.

Код:

Sub InWord()

    Dim Wrd As Object
    On Error Resume Next
    Set Wrd = GetObject(, "Word.Application")
    If Wrd Is Nothing Then
        Set Wrd = GetObject("", "Word.Application")
    End If
    On Error GoTo 0
    AppActivate "Microsoft Excel"
    SendKeys "^{Insert}", True
    AppActivate "Microsoft Word"
    SendKeys "+{Insert}", True
    Set Wrd = Nothing
    
End Sub

Voinoff · 14.05.2008, 15:02

а можна этот макрос на примере показать !!!!!!!!!!!!

VictorM · 15.05.2008, 12:12

Вот здесь http://forum.developing.ru/showthread.php?t=13194
мы этот вопрос рассмотрели, по-моему, вдоль и поперек. Есть и готовые примеры.
Посмотрите.

30.01.2008, 23:07	#1
Dimon_isu Регистрация: 30.01.2008 Сообщений: 3	Копировать данные из Excell в Word Народ, помогите! Проблема такая, у меня в базе данных табличка, загрузить данные из нее получается в Excell, теперь надо их скопировать в WORD, как это сделать через макрос, чтоб автоматически было, очень надо.

31.01.2008, 09:47	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Следующий макрос открывает Word и копирует выделенный диапазон с листа Excel. Если Word уже открыт, то данные вставляются в активный документ в место курсора. Код: `Sub InWord() Dim Wrd As Object On Error Resume Next Set Wrd = GetObject(, "Word.Application") If Wrd Is Nothing Then Set Wrd = GetObject("", "Word.Application") End If On Error GoTo 0 AppActivate "Microsoft Excel" SendKeys "^{Insert}", True AppActivate "Microsoft Word" SendKeys "+{Insert}", True Set Wrd = Nothing End Sub` Чем шире угол зрения, тем он тупее.

15.05.2008, 12:12	#4
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Вот здесь http://forum.developing.ru/showthread.php?t=13194 мы этот вопрос рассмотрели, по-моему, вдоль и поперек. Есть и готовые примеры. Посмотрите. "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Копировать данные из разных ячеек по нескольким листам в один лист	Dorvir	Microsoft Office Excel	2	11.06.2008 10:10
Как копировать данные из ADOTable в ADOTable?	mauar	БД в Delphi	1	10.05.2008 16:05
Открыть excell в приложении delphi	aslanbek	Общие вопросы Delphi	6	15.03.2008 09:08
Копирование данных из Excell в Word	Dimon_isu	Microsoft Office Excel	6	13.02.2008 17:38
Перестали работать фильтры в Excell	for-windows-sites	Microsoft Office Excel	1	24.10.2007 20:18

14.05.2008, 15:02	#3
Voinoff Новичок Джуниор Регистрация: 14.05.2008 Сообщений: 1	а можна этот макрос на примере показать !!!!!!!!!!!!