如何从模板创建工作簿并重命名且SaveAs时无Excel弹窗提示

问题核心原因 #

• SaveAs方法未显式指定宏启用工作簿格式，触发Excel宏保存校验弹窗
• 未关闭Excel全局告警提示开关
• 原有代码存在文件名后缀重复拼接问题：mybook.Name本身已包含.xlsm后缀，重复拼接会导致文件名格式异常

修复方案 #

在遍历逻辑前后添加Excel配置，保存时显式指定文件格式即可解决弹窗问题，修正后完整代码如下：

' 遍历前关闭告警和屏幕更新，避免弹窗同时提升运行效率
Application.DisplayAlerts = False
Application.ScreenUpdating = False

If Fnum > 0 Then
    For Fnum = LBound(MyFiles) To UBound(MyFiles)
        Set mybook = Nothing
        On Error Resume Next
        Set mybook = Workbooks.Open(MyPath & MyFiles(Fnum))
        ' 跳过打开失败的异常文件
        If Err.Number <> 0 Or mybook Is Nothing Then
            Err.Clear
            GoTo NextLoop
        End If
        On Error GoTo 0
        
        ' 从模板创建新工作簿
        Set tworkbook = Workbooks.Add("C:\template\location\template name.xlsm")
        
        ' 此处插入你的工作簿修改、数据复制逻辑
        
        ' 显式指定宏启用格式保存，去掉重复后缀
        tworkbook.SaveAs _
            Filename:="C:\looped over\folder\location\Mod - " & mybook.Name, _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled
        ' 关闭生成的新工作簿，避免内存占用过高
        tworkbook.Close SaveChanges:=False
        ' 关闭遍历的原文件，不需要修改原文件则无需保存
        mybook.Close SaveChanges:=False
NextLoop:
    Next Fnum
End If

' 遍历结束后恢复Excel默认配置
Application.DisplayAlerts = True
Application.ScreenUpdating = True

注意事项 #

如果运行环境是低版本Office，识别不到xlOpenXMLWorkbookMacroEnabled常量，直接将该参数替换为数值52即可。

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