excel - 在 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