使用宏将AS Excel文件保存到特定位置
问题描述:
我有一个代码从工作簿中选取一些工作表并创建一个新文件。但它会将新生成的文件保存在随机位置。我想将新文件保存在特定位置。 寻找帮助和线程我已经随机使用使用宏将AS Excel文件保存到特定位置
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
答
试试这个格式:
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"
这将文件保存为 “从inputbox.xls泵数据表内容” 在C:\temp
目前你不指定一个文件夹名称,因此Excel只是将其保存在默认的保存位置。
无法运行它。非常新的宏。 什么部分应该替换为这个代码? 给我错误运行时错误'9' 订阅超出范围 – Eric