Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие Word file из Excel и перенос данных. / 12 сообщений из 12, страница 1 из 1
06.05.2008, 17:49
    #35297775
Alexey2006
Alexey2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Подскажите чайнику.
Есть Excel файл с данными. Нужен макрос который открывал бы файл Word из Excel переносил туда некоторые данные из excel и сохранял.
У меня сложность состоит в том, чтобы открыть Вордовский файл из Excel.
Всем спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2008, 21:28
    #35298144
Avtopic
Avtopic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Для начала вот это...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub w()
    Set obj = CreateObject("Word.Application")
    St = "D:\Documents and Settings\....\Desktop\dd.doc" 'Your Path

    With obj
        .Documents.Add(St).Activate
        .Visible = True 'Optional
        Range("A3:C20").Copy
        .ActiveDocument.Content.Paste
        .ActiveDocument.Saved = True
        .Quit
    End With
    Set obj= Nothing
End Sub

А если знаешь что, значит слово References, то подключи Microsoft Word ??.0 Object Library
и поиграй с такими объектами

Код: plaintext
1.
Word.Application
Word.Document

Проще простого, поверь...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2008, 09:28
    #35298637
nacgul
nacgul
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Спасибо за ответ.
Все открывается вставляется, только вордовский файл не сохраняется. После выполнения макроса там не скопированых ячеек
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2008, 13:11
    #35299521
Avtopic
Avtopic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Код: plaintext
.ActiveDocument.Saved = True
На
Код: plaintext
.ActiveDocument.SaveAs St
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2008, 16:40
    #35300404
Alexey2006
Alexey2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Спасибо добрый человек!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2008, 17:15
    #35300503
Alexey2006
Alexey2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Спасибо добрый человек!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2008, 17:41
    #35300595
Alexey2006
Alexey2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Еще вопрос, при таком способе в ворд вставляется ячека сданными и вид у нее - данные в рамке. Даже если копирую одну ячейку. Как просто скопировать в определенное место на странице Word данные из ячеки Excel, чтобы она просто скопировалась без всяких рамок? Как точно указывать местоположение копирования?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2008, 21:04
    #35300971
Avtopic
Avtopic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub w2()
    Set obj = CreateObject("Word.Application")
    St = "D:\Documents and Settings\...\Desktop\dd.doc" 'Your Path

    With obj
        .Documents.Add(St).Activate
        .Visible = True 'Optional
        .ActiveDocument.Content.Text = "Your Text" '1
        ' .ActiveDocument.Content.Text = Range("A3") '2
        .ActiveDocument.SaveAs St
        .Quit
    End With
    Set obj = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.05.2008, 09:49
    #35301526
Alexey2006
Alexey2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Отлично вставляет текст без рамки. Спасибо!
Только еще одна проблемка, все что было в открытом документе он стирает оставляя только вставленные данные.
И как по поводу вставлять данные в определенные пзиции в вордовском документе. Т.е. есть шаблон отчета мне нужно на определенные места вставить данные из Excel.
Заранее спасибо за ответ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
05.05.2014, 17:42
    #38633603
Serg34
Serg34
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Добрый день. Скажите, а возможно ли вставка макросом содержимого из Excel в шаблон Word, находящийся в самом файле Excel?
То есть нужно после открытия Word просто удалить прошлое содержимое и вставить новое.
Очень нужно!!!!!
Заранее благодарен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
25.06.2016, 20:02
    #39262363
marmihalovna
marmihalovna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
Avtopic,

Человеки добрые почему у меня-то не получается word открывается корректируется, а сохраняться под нужным именем не сохраняется

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Sub СозданиеПриказа()
10
КаталогОткрываемойКниги = ActiveWorkbook.Path

On Error Resume Next
Set objWrod = GetObject(, "Word.Application")
If objWrod Is Nothing Then Set objWrod = CreateObject("Word.Application")
Set objDoc = objWrod.Documents.Open(КаталогОткрываемойКниги & "\" & "ПРИКАЗ" & ".doc")
objWrod.Visible = True
objWrod.Activate
objWrod.Documents("ПРИКАЗ").ActiveWindow.ActivePane.View.Zoom.Percentage = 80
objWrod.Documents("ПРИКАЗ").ДатаПриказа.Caption = ПриказДата
objWrod.Documents("ПРИКАЗ").ДатаДня.Caption = РаботаДата
objWrod.Documents("ПРИКАЗ").Время.Caption = РаботаВремя
objWrod.Documents("ПРИКАЗ").ДатаУведомления.Caption = УведомлениеДата
objWrod.Documents("ПРИКАЗ").ДатаУведомления1.Caption = УведомлениеДата
objWrod.Documents("ПРИКАЗ").Tables(3).Select
objWrod.Documents("ПРИКАЗ").Tables(3).Delete
objWrod.Documents("ПРИКАЗ").ActiveWindow.Selection.Range.Paste
objWrod.Documents("ПРИКАЗ").Tables(3).Columns(2).Delete
objWrod.Documents("ПРИКАЗ").Tables(3).Select
objWrod.Documents("ПРИКАЗ").ActiveWindow.Selection.ClearFormatting
objWrod.Documents("ПРИКАЗ").ActiveWindow.Selection.Font.Name = "Times New Roman"
objWrod.Documents("ПРИКАЗ").ActiveWindow.Selection.Font.Size = 9
objWrod.Documents("ПРИКАЗ").Tables(3).Columns.AutoFit
objWrod.Documents("ПРИКАЗ").Tables(3).Rows.LeftIndent = 10
objWrod.Documents("ПРИКАЗ").Tables(3).Rows.HeightRule = wdRowHeightAuto
N = КаталогОткрываемойКниги & "\" & "ПРИКАЗ " & FormatDateTime(Date + дн, vbShortDate) & "  " & РаботаВремя & ".doc"
objWrod.ActiveDocument.SaveAs N - НЕ СОХРАНЯЕТСЯ

End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2016, 20:37
    #39262615
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие Word file из Excel и перенос данных.
marmihalovna
Код: vbnet
1.
On Error Resume Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие Word file из Excel и перенос данных. / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 1009ms
Закрыть
start [/forum/search_topic.php?author=greendanna&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 8ms
get forum list:
 11ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 151ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 736ms
total:  1009ms
x
x
Закрыть


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