使用macros将AS excel文件保存到特定的位置
我有一个代码从工作簿中select一些工作表，并创build一个新的文件。 但它会将新生成的文件保存在随机位置。 我想将新文件保存在特定位置。 寻找帮助和线程，我已经随机使用
Application.GetSaveAsFilename 它给我popup“另存为”的窗口，但它不保存我提到的位置的文件。 任何人都可以看到我的macros，并帮助我。
这是我的代码。
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
试试这个格式：
saveAsFileName = Application.GetSaveAsFilename(InitialFileName:=fName, FileFilter:="Excel Files (*.xlsx), *.xlsx") If saveAsFileName <> "False" Then 'Do something here Else 'Do something else here End If
Flname = "C:\temp\Pump Datasheet-" & InputBox("Save file as") & ".xls"
这将把你的文件保存为C:\temp “Pump Datasheet-content from inputbox.xls”
目前您不指定文件夹名称，因此Excel只是将其保存在默认的保存位置。