请求协助：实现Excel文件打开时自动将工作表另存为CSV的宏

先帮你梳理下原代码里的几个关键问题，再给出完整的优化版本：

原代码的核心问题 #

• 保存路径不完整（C:\Users\Kenned...是截断状态），会直接导致保存失败
• 调用SaveAs时没有指定CSV格式，默认会保存为Excel工作簿格式，达不到需求
• 新建工作簿后默认带一个空白工作表，复制目标表后会残留这个多余表，导出的CSV可能包含无效内容
• 当前是普通Sub，没有绑定工作簿打开事件，无法实现打开Excel时自动执行的效果
• 没有恢复Application.DisplayAlerts的默认值，可能导致后续Excel操作丢失必要提示

完整优化代码 #

要实现打开自动执行，需要把代码放在ThisWorkbook模块里（不是普通模块），替换成以下代码：

Option Explicit

Private Sub Workbook_Open()
    Dim wbkExport As Workbook
    Dim shtToExport As Worksheet
    Dim savePath As String
    
    ' 设置完整的CSV保存路径，替换成你的实际路径
    savePath = "C:\Users\Kennedy\Documents\ExportedSheet1.csv"
    
    ' 刷新所有数据连接（如果需要的话）
    ThisWorkbook.RefreshAll
    
    ' 指定要导出的工作表
    Set shtToExport = ThisWorkbook.Worksheets("Sheet1")
    
    ' 新建空白工作簿
    Set wbkExport = Application.Workbooks.Add
    
    ' 复制目标工作表到新工作簿（替换默认的空白表）
    shtToExport.Copy Before:=wbkExport.Worksheets(1)
    ' 删除新工作簿里的默认空白表
    Application.DisplayAlerts = False
    wbkExport.Worksheets(2).Delete
    Application.DisplayAlerts = True
    
    ' 保存为CSV格式，覆盖已有文件时不提示
    Application.DisplayAlerts = False
    wbkExport.SaveAs Filename:=savePath, FileFormat:=xlCSV
    Application.DisplayAlerts = True
    
    ' 关闭导出的工作簿（不保存，因为已经SaveAs过了）
    wbkExport.Close SaveChanges:=False
    
    ' 释放对象，避免内存泄漏
    Set shtToExport = Nothing
    Set wbkExport = Nothing
End Sub

关键改进说明 #

• 绑定Workbook_Open事件：把代码放在ThisWorkbook模块，Excel打开时会自动触发这个事件，完美实现"打开即导出"的需求
• 完整路径+指定格式：明确设置FileFormat:=xlCSV确保保存为CSV格式，同时必须填写完整的合法路径（注意文件夹要有写入权限）
• 清理多余工作表：新建工作簿的默认空白表会被删除，避免导出的CSV包含无效内容
• 恢复DisplayAlerts：每次修改后都恢复默认值，防止影响后续Excel操作的正常提示
• 对象释放：最后释放对象变量，避免长期运行导致的内存泄漏

额外注意事项 #

1. 如果你的数据刷新需要等待（比如外部数据连接），可以在RefreshAll后加上Application.Wait Now + TimeValue("00:00:02")来等待刷新完成
2. 如果需要隐藏宏执行时的界面波动，可以在代码开头加上Application.ScreenUpdating = False，结尾恢复为True

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