如何制作可自动将生成工作簿保存为CSV格式的Excel模板（xltx）

阿华AIGC实验室

2026-4-21

嘿，我完全懂你的需求——不是改Excel全局的默认保存格式，而是让这个特定的模板，不管谁用它新建工作簿，保存时默认就用CSV格式对吧？不过这里得先说明个关键点：普通的.xltx无宏模板没法实现这个逻辑，必须用启用宏的Excel模板（.xltm），因为要靠VBA宏来触发保存时的格式控制，下面是一步步的操作：

第一步：准备模板内容并打开VBA编辑器
- 打开Excel，新建空白工作簿，先把你的模板固定内容（比如表头、格式规则）设置好。
- 按下Alt + F11打开VBA编辑器，在左侧的「项目资源管理器」里找到当前的工作簿（一般显示为VBAProject(Book1)）。

第二步：插入类模块处理保存事件

右键点击VBAProject，选择「插入」→「类模块」。
右键刚新建的类模块（默认是Class1），选择「重命名」，改成SaveAsCSVClass（名字要和代码里对应）。

双击这个类模块，在右侧代码窗口粘贴以下代码：

Private WithEvents App As Application

Private Sub Class_Initialize()
    Set App = Application
End Sub

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 只对从当前模板新建的工作簿生效
    If Wb.Template = ThisWorkbook.FullName Then
        If SaveAsUI Then
            ' 弹出保存对话框时默认选中CSV格式
            Dim fd As FileDialog
            Set fd = Application.FileDialog(msoFileDialogSaveAs)
            With fd
                .FilterIndex = 6 ' 对应CSV（逗号分隔）格式，多数Excel版本通用
                .InitialFileName = Replace(Wb.Name, ".xlsx", "") ' 去掉默认的xlsx后缀
                If .Show = -1 Then
                    Wb.SaveAs Filename:=.SelectedItems(1), FileFormat:=xlCSV
                    Cancel = True ' 取消系统默认的保存流程
                End If
            End With
            Set fd = Nothing
        End If
    End If
End Sub

第三步：初始化事件处理

回到VBA编辑器，右键VBAProject，选择「插入」→「模块」（标准模块）。

在模块的代码窗口粘贴以下代码：

' 声明全局变量来保持类实例不被销毁
Dim CSV_Save_Handler As New SaveAsCSVClass

Sub Auto_Open()
    ' 模板打开时初始化事件监听
    Set CSV_Save_Handler = New SaveAsCSVClass
End Sub

第四步：保存为启用宏的模板
- 回到Excel主窗口，点击「文件」→「另存为」，选择保存类型为**「Excel 启用宏的模板（*.xltm）」**，把模板存到你想放的位置。
- 注意：如果一定要用.xltx格式，那没法实现这个需求，因为.xltx是无宏模板，不支持VBA代码。
第五步：测试模板效果
- 关闭所有Excel窗口，双击刚才保存的.xltm模板，会自动新建一个基于它的工作簿。
- 按Ctrl + S或者点击保存按钮，此时弹出的保存对话框默认格式就是CSV，而且这个设置只对从这个模板新建的工作簿生效，不会影响用户自己的Excel全局设置。