Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макросом из Excel сохранить документ Word, вызвать диалоговое окно для сохранения файла в документе Word.
 
#1
15.03.2015 17:14:54
Уважаемые форумчане, вынужден обратиться с вопросом следующего характера:
С Вашей же помощью мне удалось из кусочков составить код, который при запуске осуществляет копирование данных с листа Excelи вставляет эти данные на вновь созданный лист Word.

Но мне не удается реализовать заключительный этап своего замысла – мне необходимо вновь созданный файл Word предложить пользователю сохранить в исходной папке (папка где размещается файл Excel) с заготовкой имени файла. При этом команда на сохранение должна отдаваться именно пользователем, а не сохранятся автоматически.

Очень хочу реализовать свой замысел именно следующим образом:
1.       Запуск макроса из книги Excel.
2.       Копирование данных.
3.       Создание листа Word.
4.       Вставка данных на лист Word.
5.       Вызов диалогового окна для сохранения файла с возможностью редактировать имя файла перед его сохранением. Путь сохранения (по умолчанию) должен быть предложен в папку, в которой сохранен Исходный файл Excel. – здесь мне требуется Ваша помощь!!!
6.       После сохранения Пользователем файла завершение работы макроса.

Мне удалось найти решение этой задачи, но только в коде VBA для Word. Перечитал очень много тем, но так и не смог перевести данный код на понятный язык для Excel
Код
?
1
2
3
4
5
6
7
8
9
10
11
Sub MyFileSave() ' если запускать данный код из Word, то он полностью решает мою проблему
Dim sPath As String
  
sPath = ActiveDocument.Path & "\"
'sPath = ActiveWorkbook.Path & "\" ' для Excel, сэтимвродеудалосьразобраться
  
With Dialogs(wdDialogFileSaveAs) ' а вот здесь при запуске макроса вылетает ошибка.
.Name = sPath & "Переченьработ_" & Left(ActiveDocument.Paragraphs(2).Range.Text, Len(ActiveDocument.Paragraphs(2).Range.Text) - 1)
.Show
End With
End Sub

Очень прошу Вас помочь мне!
Спасибо!

Данная тема близка к моей проблеме, но использовать под свои нужды не смог, так как в диалоговом окне не возможно выбрать расширение файла, а это мне тоже необходимо.

Пример прилагаю.
 
 
 
#2
15.03.2015 19:38:34
как вариант вызвать диалог сохранения вордовский

Код
?
1
2
3
4
5
......
.Application.Dialogs(84).Show
 
End With
.....
 
 
 
#3
15.03.2015 20:16:25
WithDialogs(wdDialogFileSaveAs) ' а вот здесь при запуске макроса вылетает ошибка.
------------
Либо подключите библиотеку ворд в референсах, либо замените вордовские константы на их числовые значение.
 
 
 
#4
15.03.2015 20:34:38
Цитата
WithDialogs(wdDialogFileSaveAs)
Я разве так показывал?

.Selection.Paste ' это уже относится к Word т.к. objWord
.Application.Dialogs(84).Show

End With
Всё внимание на точку перед Application
Изменено: Александр Моторин - 15.03.2015 20:35:43
 
 
 
#5
15.03.2015 20:43:17
Получить имя файла можно функцией
Код
?
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
Function GetFileName(Optional ByVal Title As String = "Выберите файл для обработки", _
                      Optional ByVal InitialPath, _
                      Optional ByVal MyFilter As String) As String
    ' функция выводит диалоговое окно выбора папки с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
    If Not IsMissing(InitialPath) Then
         On Error Resume Next: ChDrive Left(InitialPath, 1)
         ChDir InitialPath    ' выбираем стартовую папку
    End If
     res = Application.GetOpenFilename(MyFilter, , Title, "Открыть")  ' вывод диалогового окна
    GetFileName = IIf(VarType(res) = vbBoolean, "", res)    ' пустая строка при отказе от выбора
End Function
 
Sub ПримерИспользования_GetFileName()
     ИмяФайла = GetFileName("Заголовок окна", ThisWorkbook.Path, "Документы  Ворд (*.doc*),")    ' запрашиваем имя файла
    ' ===================== другие варианты вызова функции =====================
    ' текстовые файлы, стартовая папка не указана
    '       ИмяФайла = GetFileName("Выберите текстовый файл", , "Текстовые файлы (*.txt),")
    ' файлы любого типа из папки "C:\Windows"
    '       ИмяФайла = GetFileName(, "C:\Windows", "")
    ' ==========================================================================
 
     If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла
    MsgBox "Выбран файл: " & ИмяФайла, vbInformation
End Sub
 
 
 
#6
15.03.2015 23:10:30
Цитата
Александр Моторин написал: как вариант вызвать диалог сохранения вордовский  
Александр, спасибо за подсказку!
Данной строкой диалог вызывается, однако путь сохранения по умолчанию в "Мои документы", а мне необходимо в папку с исходным файлом Excel, так как исходный файл "кочует" из папки в папку.
Кроме того не совсем ясно как прописать "заготовку" имени для созданного файла Word. Как я понял в диалоге отражаются первые слова из текстового документа.
Может я что-то упустил из Ваших ответов ниже ... ?
 
 
 
#7
15.03.2015 23:12:30
Цитата
Александр Моторин написал: Получить имя файла можно функцией...
А в этом ответе я не совсем понял. В каком именно месте мне необходимо использовать функцию ?
 
 
 
#8
16.03.2015 01:03:53
Можно в референсах подключить  CommonDialog
Код
?
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Создать_Doc() ' Создание Doc
Dim DLG As CommonDialog
Set DLG = New CommonDialog
Dim sPath As String
 
Dim objWord As Object
Set objWord = CreateObject("Word.Application") ' Создание объекта Word
   
  objWord.Documents.Add DocumentType:=wdNewBlankDocument
  objWord.Visible = True
 
Range([A7], Range("G" & Rows.Count).End(xlUp)).Copy
 
strForWho = ActiveSheet.Cells(3, 1).Value
strForWhy = ActiveSheet.Cells(5, 2).Value
 
With objWord
 
.Selection.PageSetup.LeftMargin = 40
.Selection.PageSetup.RightMargin = 40
.Selection.PageSetup.TopMargin = 30
.Selection.PageSetup.BottomMargin = 30
 
    ' Заголовок сообщения
.Selection.Font.Size = 14
.Selection.Font.Bold = True
.Selection.ParagraphFormat.Alignment = 1
'.Selection.TypeText Text:="Перечень работ, выполняемых в" & vbTab & strForWho
.Selection.TypeText Text:=vbTab & strForWho
 
.Selection.TypeParagraph
     
.Selection.Font.Size = 14
.Selection.Font.Bold = True
.Selection.ParagraphFormat.Alignment = 1
.Selection.TypeText Text:=strForWhy
 
.Selection.TypeParagraph
 
.Selection.Paste ' это уже относится к Word т.к. objWord
'.Application.Dialogs(84).Show
 
objWord.Application.Visible = False
 
DLG.DialogTitle = "заголовок окна"
DLG.InitDir = ActiveWorkbook.Path
DLG.Filter = "Документы Word,*.doc"
DLG.Filename = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
DLG.ShowSave
 
myPath = DLG.Filename
 
objWord.Application.Visible = True
objWord.ActiveDocument.SaveAs Filename:=myPath, FileFormat:=wdFormatXMLDocument
End With
Application.CutCopyMode = False
End Sub
 
 
 
#9
21.03.2015 08:29:59
Добрый день, уважаемые форумчане!
Выражаю благодарность Александру Моторину за его труд!
К сожалению сразу мне не удалось отписаться, был в отъезде.

Короче говоря проследовал я по пути Александра М. на домашнем ПК (Windows Vista, Ofice 2010), но путь мой был не долог. При запуске макроса выдает ошибку activex component can't create object и выделяет следующую строку в коде:
...
Dim DLG As CommonDialog
Set DLG = New CommonDialog ' здесь ошибка
Dim sPath As String
...

В референсах CommonDialog подключен (я его и включал и отключал и снова включал без успеха).

При этом при запуске на рабочем компьютере (наша организация работает в облаке, возможно там более новая версия офиса) он сработал без ошибок (правда там были другие нюансы, но основная задача выполнялась).

Подскажите пожалуйста что мне сделать, чтобы с файлом можно было работать и на домашнем ПК и на рабочем ?
 
 
 
#10
21.03.2015 08:43:23
Чтобы работало на всех компах, - про CommonDialog надо забыть

варианты на выбор (взято из постов выше):
1) FunctionGetFileName - функция вызова диалогового окна
2) .Application.Dialogs(84).Show - вызов одного из встроенных в Word / Excel диалоговых окон
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#11
21.03.2015 10:00:08
Игорь, я рассматривал каждое из этих предложений, возможно не достаточно внимательно и с пониманием, но все же ...

1) FunctionGetFileName - функция вызова диалогового окна - вызывает диалоговое окно, как я понял, именно для открытия файлов, а мне необходимо окно для сохранения файлов.

2) .Application.Dialogs(84).Show - вызов одного из встроенных в Word / Excel диалоговых окон
Данной строкой диалог вызывается, однако путь сохранения по умолчанию в "Мои документы", а мне необходимо в папку с исходным файлом Excel, так как исходный файл "кочует" из папки в папку.
Кроме того не совсем ясно как прописать "заготовку" имени для созданного файла Word. Как я понял в диалоге отражаются первые слова из ]текстового документа.

Пока продолжаю ковыряться ...
Появилась мысль макросом из Excel создать во вновь созданном документе Word макрос, который сразе же и запустить в Ворде. Наверное это не реально, но ...
 
 
 
#12
21.03.2015 12:11:10
Цитата
не совсем ясно как прописать "заготовку" имени для созданного файла Word

Как-то так:
Код
?
1
myPath = Application.GetSaveAsFilename(Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1), "Документы Ворд (*.doc),*.doc;", 1)
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...