GetSaveAsFilename+добавка к имени файла

Guest

Гость

08.11.2010 09:19:06

Привет!
Такой вопрос: Как сделать так, чтобы файл сохранялся с текущим именем + добавка
Например: исходный файл "Отчет.xls"
а после сохранения "Отчет краткий.xls"
Использую
Filesavename = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
If Filesavename <> False Then
MsgBox "Save as " & Filesavename

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

08.11.2010 09:43:04

Sub test()
Const Добавка$ = " краткий"
Filesavename = Application.GetSaveAsFilename(, "Excel Files (*.xls), *.xls")
If Filesavename <> False Then
НовоеИмяФайла$ = Replace(Filesavename, ".xls", Добавка$ & ".xls")
MsgBox "Save as """ & НовоеИмяФайла & """"
End If
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest Гость	#3 08.11.2010 09:55:50 Вроде работает, только файлов я не вижу в папке и по поиску не нахожу. в MsgBox путь верный указывает. Куда еще сохранить-то может или как? указано же ему, что в Excel

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

08.11.2010 10:20:47

> Вроде работает, только файлов я не вижу в папке
И не увидите, пока не добавите в макрос команду сохранения файла...
Вы же пока только имя для сохранения получили.

Вот так будет работать:

Sub test()
Const Добавка$ = " краткий"
Filesavename = Application.GetSaveAsFilename(, "Excel Files (*.xls), *.xls")
If Filesavename <> False Then
НовоеИмяФайла$ = Replace(Filesavename, ".xls", Добавка$ & ".xls")
ActiveWorkbook.SaveAs НовоеИмяФайла ' сохраняем файл под новым именем
MsgBox "Файл созранён под именем """ & НовоеИмяФайла & """", vbInformation
End If
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest Гость	#5 08.11.2010 10:42:32 Вот так заработало: Const Добавка$ = " краткий" Fn = Application.GetSaveAsFilename(, "Excel Files (.xls), .xls") Fn = Replace(Fn, ".xls", Добавка$ & ".xls") ActiveWorkbook.SaveAs Filename:=Fn, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False

Guest Гость	#6 08.11.2010 10:43:37 СПАСИБО ЗА ПОМОЩЬ!!!!!

Читают тему