excel - 保存工作簿的 vba 例程没有预期的结果

Question

我有一个工作簿，每 4 周更新一次新数据。更新时，它必须以特定名称和特定选项保存。我已经有一个脚本可以为我将工作簿保存到一个新文件中，所以我使用了该脚本并对其进行了修改。

Sub save_workbook_name()
Dim workbook_Name As Variant
Dim location As String

location = "N:\IRi\"
workbook_Name = Application.GetSaveAsFilename

If workbook_Name <> False Then

    ActiveWorkbook.SaveAs Filename:=Workbook.Name, WriteResPassword:="TM", FileFormat:=50

End If
End Sub

当我使用此代码并按下按钮时，会出现一个弹出屏幕，询问我要如何保存文件:



但是没有设置文件格式。我在打开保存的文件时注意到设置了打开文件的密码。我自己知道在保存文件时必须添加 .xslb 扩展名，但我不确定是否有任何同事也使用此文件。

当我输入文件名和扩展名时，出现错误:



错误 424:需要对象



我希望保存的选项:

文件类型必须设置为 .xlsb

为了防止保存的副本被更新，我希望使用密码保护保存它以打开

如何使例程已经添加 .xlsb 扩展名，因此只需输入文件名？

编辑:根据 Marcucciboy2 的回答，我将脚本更改为:

Sub save_workbook_name()
Dim workbook_Name As Variant
Dim location As String

workbook_Name = Application.GetSaveAsFilename(fileFilter:="Excel binary sheet (*.xlsb), *.xlsb", InitialFileName:="N:\IRi\")

If workbook_Name <> False Then

    ActiveWorkbook.SaveAs WriteResPassword:="TM", FileFormat:=50

End If
End Sub

现在它非常适合保存。



关于此脚本和输入名称的其他问题发布在一个新问题中:
vba script to save workbook overwrites entered filename

Answer 1

我认为问题可能是您没有过滤从 GetSaveAsFilename 收到的文件名。 ，所以试试:

Application.GetSaveAsFilename(fileFilter:="Excel binary sheet (*.xlsb), *.xlsb")