保存工作表的Excel另存为位置VBA

Question

嗯，我不是开发人员，而是一个普通的Excel用户在工作时尝试自动化一些过程，所以请理解我的问题是否简单。

我只想一个宏，可当我运行宏，它能让我 浏览计算机，以便我可以将文件保存在方向和文件名，我喜欢 如果可能的话 默认位置是位置工作簿的，只是为了节省时间

谢谢

Answer 1

试试下面的代码：

Sub SaveAsDailog() 

Application.DisplayAlerts = False 
Dim filePath As Variant 
filePath = Application.GetSaveAsFilename("abcd.xlsx", "Excel Files (*.xlsx), *.xlsx") 

If VarType(filePath) = vbString Then 
ActiveWorkbook.SaveAs Filename:=filePath 
End If 


Application.DisplayAlerts = True 
End Sub