Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание кнопки для переноса данных из Excel в Word
 
#1
19.02.2016 20:50:40
Добрый день!
Помогите, пожалуйста, сделать кнопку на одной странице в книге Excel, чтобы при нажатии все данные листа переносились в документ Word под названием "Отчет №__ от __.__.____г." (номер и дата отчета должны быть такими какие указаны таблице) и сохранялись как документ. Одно нажатие-один новый документ Word. Прикрепляю файл.
 
 
 
#2
19.02.2016 20:52:01
Вы не знаете, как нарисовать кнопку? )) Или Вам нужен макрос?
 
 
 
#3
19.02.2016 20:52:22
Кнопку-то поможем создать. Но тут в чем проблема - помимо этого надо еще и кода не одну строку написать, который по выполнении кнопки выполняться должен. Поэтому вопрос: что сами-то уже пробовали сделать для решения проблемы? Искали подобные решения? Пробовали использовать мастер слияния, макросы?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#4
19.02.2016 21:03:44
я сделал такую кнопку уже давно
http://excelvba.ru/programmes/FillDocuments
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
19.02.2016 21:18:23
Нужен макрос. Я пробовала сама записать макрос. Так же нашла похожие примеры, пыталась на их примере сделать для себя. Все не получилось, к сожалению.Мастер слияния не пробовала.
 
 
 
#6
19.02.2016 21:31:06
Посмотрите здесь :http://www.excel-vba.ru/chto-umeet-excel/kak-iz-excel-obratitsya-k-drugomu-prilozheniyu/
 
 
 
#7
19.02.2016 21:37:22
Спасибо за помощь, попробую сделать как в примере!
 
 
 
#8
20.02.2016 19:09:27
Делаю как в примере, почему-то выдает ошибку в строчке   'вставляем скопированные ячейки в Word - в начала документа
   objWrdDoc.Range(0).Paste
В чем может быть проблема, как Вы считаете? Сталкиваюсь с макросами первый раз, может я неправильно что-то делаю!

Прикрепляю пример:
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'---------------------------------------------------------------------------------------
' Procedure : OpenWord
' Purpose   : Создаем новый экземпляр Word, копируем туда диапазон Excel и закрываем
'---------------------------------------------------------------------------------------
Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object
    'создаем новое приложение Word. м
    Set objWrdApp = CreateObject("Word.Application")
    'Можно так же сделать приложение Word видимым. По умолчанию открывается в скрытом режиме
    objWrdApp.Visible = True
    'Можно создать новый документ
'    Set objWrdDoc = objWrdApp.Documents.Add
    'Копируем из Excel диапазон "A1:A10"
    Range("A1:A10").Copy
  [U]  'вставляем скопированные ячейки в Word - в начала документа[/U]
[U]    objWrdDoc.Range(0).Paste[/U]
    'закрываем документ Word с сохранением
    objWrdDoc.Close True
    'закрываем приложение Word - обязательно!
    objWrdApp.Quit
    'очищаем переменные Word - обязательно!
    Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub
 
 
 
#9
20.02.2016 19:17:55
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'---------------------------------------------------------------------------------------
' Procedure : OpenWord
' Purpose : Создаем новый экземпляр Word, копируем туда диапазон Excel и закрываем
'---------------------------------------------------------------------------------------
Sub OpenWord()
Dim objWrdApp As Object, objWrdDoc As Object
'создаем новое приложение Word. м
Set objWrdApp = CreateObject("Word.Application")
'Можно так же сделать приложение Word видимым. По умолчанию открывается в скрытом режиме
objWrdApp.Visible = True
'Можно создать новый документ
Set objWrdDoc = objWrdApp.Documents.Add 'ЭТА СТРОКА БЫЛА ЗАКОММЕНТИРОВАНА
'Копируем из Excel диапазон "A1:A10"
Range("A1:A10").Copy
'вставляем скопированные ячейки в Word - в начала документа
objWrdDoc.Range(0).Paste
'закрываем документ Word с сохранением
objWrdDoc.Close True
'закрываем приложение Word - обязательно!
objWrdApp.Quit
'очищаем переменные Word - обязательно!
Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub
Изменено: Sanja - 20.02.2016 19:22:22
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
20.02.2016 19:41:12
Спасибо, все работает, переносит и сохраняет!
Но почему то выдает ошибку следующую:(прилагаю фото)
Изменено: Damizova - 20.02.2016 21:30:21
 
 
 
#11
20.02.2016 19:49:18
Так Вы видимо отменяете сохранение Word-документа
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
20.02.2016 19:53:43
Вы правы!!! Все работает отлично! Всем огромное спасибо за помощь!!!  
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...