使用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