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

Posted 2023-05-07

【中文标题】在 Excel VBA 中使用表单另存为位置保存工作表

【英文标题】：Save a worksheet with form Save As location in Excel VBA

【发布时间】：2013-04-08 18:19:23

【问题描述】：

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

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

谢谢

【问题讨论】：

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

【参考方案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

【讨论】：

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