VBA: сохранить файл с именем по умолчанию в указанной папке c - PullRequest
Новая
       21

VBA: сохранить файл с именем по умолчанию в указанной папке c

0 голосов
/ 17 февраля 2020

Пожалуйста, я хочу сделать макрос в Excel 2010, чтобы пользователь мог сохранить файл в указанной папке c, но имя файла будет задано по умолчанию, не может может быть изменен пользователем. Это необходимо для того, чтобы пользователь не щелкнул другой файл в поисках указанной папки c, чтобы сохранить файл и изменить его имя. Вот что у меня есть: 

ActiveWorkbook.Save
name = "File Name"
folder = Application.GetSaveAsFilename(name)
ActiveWorkbook.SaveAs Filename:= folder & "xlsm"

1 Ответ

0 голосов
/ 17 февраля 2020

Один из вариантов - применить это правило после возвращения из диалогового окна «Сохранить как». Поскольку вас интересует только папка, создайте имя файла следующим образом: 

ActiveWorkbook.SaveAs Filename:=fso.GetParentFolderName(folder) & "\" & name & ".xlsm"

Для этого требуется ссылка на Microsoft Scripting Runtime и объявление fso следующим образом: 

Dim fso As FileSystemObject
Set fso = New FileSystemObject
...