VBA例程保存工作簿没有预期的结果

时间:2018-09-07 12:12:44

标签: excel vba save-as xlsb

我有一个工作簿,每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

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

enter image description here

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

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

enter image description here

错误424:需要对象

enter image description here

我希望获得保存选项:

  • 文件类型必须设置为.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

现在,它非常适合保存。

enter image description here

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

1 个答案:

答案 0 :(得分:2)

我认为问题可能是您没有过滤从GetSaveAsFilename收到的文件名,因此请尝试:

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