在 Excel VBA 中使用表单另存为位置保存工作表答案

【问题标题】：Save a worksheet with form Save As location in Excel VBA在 Excel VBA 中使用表单另存为位置保存工作表
【发布时间】：2013-04-08 18:19:23
【问题描述】：

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

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

谢谢

【问题讨论】：

请参阅GetSaveAsFilename 上的 Excel 帮助注意，使用Workbook.SaveAs 方法保存文件时，您还必须使用FileFormat，这在 Excel 帮助中再次提到 ;)跨度>

标签： excel vba

【解决方案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

【讨论】：

这使我可以保存整个工作簿，但不能保存活动工作表，并且扩展存在错误。