ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие Word file из Excel и перенос данных.
12 сообщений из 12, страница 1 из 1
Открытие Word file из Excel и перенос данных.
    #35297775
Alexey2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey2006
Гость
Подскажите чайнику.
Есть Excel файл с данными. Нужен макрос который открывал бы файл Word из Excel переносил туда некоторые данные из excel и сохранял.
У меня сложность состоит в том, чтобы открыть Вордовский файл из Excel.
Всем спасибо!
...
Рейтинг: 0 / 0
06.05.2008, 17:49
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #35298144
Avtopic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Avtopic
Гость
Для начала вот это...
Код: 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
06.05.2008, 21:28
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #35298637
nacgul
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nacgul
Гость
Спасибо за ответ.
Все открывается вставляется, только вордовский файл не сохраняется. После выполнения макроса там не скопированых ячеек
...
Рейтинг: 0 / 0
07.05.2008, 09:28
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #35299521
Avtopic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Avtopic
Гость
Код: plaintext
.ActiveDocument.Saved = True
На
Код: plaintext
.ActiveDocument.SaveAs St
...
Рейтинг: 0 / 0
07.05.2008, 13:11
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #35300404
Alexey2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey2006
Гость
Спасибо добрый человек!
...
Рейтинг: 0 / 0
07.05.2008, 16:40
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #35300503
Alexey2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey2006
Гость
Спасибо добрый человек!
...
Рейтинг: 0 / 0
07.05.2008, 17:15
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #35300595
Alexey2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey2006
Гость
Еще вопрос, при таком способе в ворд вставляется ячека сданными и вид у нее - данные в рамке. Даже если копирую одну ячейку. Как просто скопировать в определенное место на странице Word данные из ячеки Excel, чтобы она просто скопировалась без всяких рамок? Как точно указывать местоположение копирования?
...
Рейтинг: 0 / 0
07.05.2008, 17:41
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #35300971
Avtopic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Avtopic
Гость
Код: 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
07.05.2008, 21:04
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #35301526
Alexey2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey2006
Гость
Отлично вставляет текст без рамки. Спасибо!
Только еще одна проблемка, все что было в открытом документе он стирает оставляя только вставленные данные.
И как по поводу вставлять данные в определенные пзиции в вордовском документе. Т.е. есть шаблон отчета мне нужно на определенные места вставить данные из Excel.
Заранее спасибо за ответ.
...
Рейтинг: 0 / 0
08.05.2008, 09:49
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Открытие Word file из Excel и перенос данных.
    #38633603
Serg34
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg34
Гость
Добрый день. Скажите, а возможно ли вставка макросом содержимого из Excel в шаблон Word, находящийся в самом файле Excel?
То есть нужно после открытия Word просто удалить прошлое содержимое и вставить новое.
Очень нужно!!!!!
Заранее благодарен
...
Рейтинг: 0 / 0
05.05.2014, 17:42
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Открытие Word file из Excel и перенос данных.
    #39262363
marmihalovna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marmihalovna
Гость
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
25.06.2016, 20:02
| Ответить | Цитировать | Написать  
Открытие Word file из Excel и перенос данных.
    #39262615
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
marmihalovna
Код: vbnet
1.
On Error Resume Next
...
Рейтинг: 0 / 0
26.06.2016, 20:37
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открытие Word file из Excel и перенос данных.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38633603&tid=2155498]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 79ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 327ms
total:  500ms
созд. / загр.: 500ms
x
x
Закрыть


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