从Excel外接程序代码中新建工作簿时出现命名错误及保存失败问题

问题根因 #

你遇到的是Excel VBA外接程序开发的典型上下文绑定异常问题，核心原因有两点：

• 外接程序文件的ThisWorkbook.IsAddin属性默认为True，本身处于界面隐藏状态。未显式指定父对象的Workbooks.Add在非调试模式下运行时，会错误绑定到外接程序自身的工作簿对象，而非新建空白工作簿，所以你会看到NewWB的名称和外接程序一致。
• 就算成功创建新工作簿，部分场景下新工作簿会继承外接程序的隐藏属性，导致界面不可见、保存操作异常。

修复方案 #

按照如下逻辑修改代码即可解决：

' 先显式绑定到当前激活的Excel应用实例，避免上下文漂移
Dim App As Excel.Application
Set App = Application

' 显式从当前用户操作的实例下新建工作簿
Dim ThisWB As Workbook, NewWB As Workbook
Set ThisWB = App.ActiveWorkbook
Set NewWB = App.Workbooks.Add

' 强制设置新工作簿可见，避免继承外接程序的隐藏属性
NewWB.Windows(1).Visible = True

MsgBox NewWB.Path & "\" & NewWB.Name

' 保存时补全文件后缀，避免FileFormat和后缀不匹配的错误
NewWB.SaveAs Filename:=ThisWB.Path & "\mynewfilename.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

额外优化建议 #

• 如果后续还要操作新工作簿的内容，所有对象都绑定到上面声明的App实例，避免多开Excel时出现跨实例操作异常。
• 外接程序加载时可以主动将App.Visible设为True，避免隐藏实例的问题。

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