如何通过VBA宏设置打开默认格式为.xlsb的另存为对话框？

你可以通过给Application.Dialogs(xlDialogSaveAs).Show方法传递文件格式参数，指定默认保存类型为Excel二进制文件（.xlsb）。修改后的代码如下：

Sub SaveAsXLSB()
    ' xlExcel12 对应 Excel 二进制文件格式（.xlsb）
    Application.Dialogs(xlDialogSaveAs).Show FileFormat:=xlExcel12
End Sub

关键说明： #

• xlExcel12是VBA内置常量，专门对应.xlsb格式，传递该参数后，“另存为”对话框会默认选中该格式。
• 如果需要同时指定默认文件名，可在Show方法中添加文件名参数，示例：

  Application.Dialogs(xlDialogSaveAs).Show "默认文件名", FileFormat:=xlExcel12
  

• 运行宏后，对话框将直接打开，且“保存类型”下拉框默认显示“Excel 二进制工作簿(*.xlsb)”。

内容的提问来源于stack exchange，提问作者TheFriendlyAsker