Сохраните файл AS excel в определенном месте с помощью макроса

Question

У меня есть код, который отображает некоторые рабочие листы из рабочей книги и создает новый файл. но он сохраняет случайно созданный файл в случайном месте. Я хотел бы сохранить новый файл в определенном месте. Глядя помощь и нити я случайно использовал

Application.GetSaveAsFilename 

Это дает мне всплывающее окно «Сохранить как», но он не сохраняет файл в том месте, я уже упоминал. Может ли кто-нибудь увидеть мой макрос и помочь мне.

вот мой код.

Sub SaveMain() 

Dim Flname As String 
Dim ws As Worksheet 

Application.EnableEvents = False 

For Each ws In ActiveWorkbook.Sheets 
ws.Visible = xlSheetVisible 
Next 
ActiveWorkbook.Sheets("3").Range("N15").Value = ActiveWorkbook.Sheets("Calculations").Range("W23").Value 
ActiveWorkbook.Sheets("3").Range("N16").Value = ActiveWorkbook.Sheets("Calculations").Range("W28").Value 
'there are some more copy cells 

Flname = "Pump Datasheet-" & InputBox("Save file as") & ".xls" 
Sheets(Array("Cover", "2", "3", "4", "5", "6", "7", "8", "9")).Copy 
newfilename = Flname 
With ActiveWorkbook 
.SaveAs newfilename, FileFormat:=50 
Application.GetSaveAsFilename 
.Close 0 
End With 
For Each ws In ActiveWorkbook.Sheets 
If ws.Name <> "Main Calc" Then 
ws.Visible = xlSheetVeryHidden 
End If 

Next 
Application.EnableEvents = True 

End Sub 

Answer 1

Попробуйте этот формат:

saveAsFileName = Application.GetSaveAsFilename(InitialFileName:=fName, FileFilter:="Excel Files (*.xlsx), *.xlsx") 
If saveAsFileName <> "False" Then 
    'Do something here 
Else 
    'Do something else here 
End If 

Answer 2

Flname = "C:\temp\Pump Datasheet-" & InputBox("Save file as") & ".xls"

Это позволит сохранить файл как "насос Datasheet-контента из inputbox.xls" в C:\temp

В настоящее время вы не укажите имя папки, поэтому Excel просто сохраняет ее в любом месте сохранения по умолчанию.