VBA实现XLSX转CSV时工作表数据复制失败问题求助

问题分析 #

你的代码失效主要有几个核心原因：

• 打开外部工作簿后，ActiveSheet不一定是你需要复制的目标工作表（比如文件包含多个工作表时），依赖ActiveSheet的操作极易出现偏差。
• 粘贴操作未明确指定起始单元格，加上工作簿切换时的焦点变化，导致粘贴动作未正确触发。
• 缺少状态控制（比如屏幕更新、事件禁用），增加了操作不稳定的概率。

修正后的复制代码 #

如果坚持要将数据复制到现有工作表，以下代码更可靠：

Sub CopyXLSXToActiveSheet()
    Dim sourceWb As Workbook
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    Dim myFile As String
    
    ' 选择目标XLSX文件
    myFile = Application.GetOpenFilename("Excel文件 (*.xlsx), *.xlsx")
    If myFile = "False" Then Exit Sub
    
    Set targetWs = ActiveSheet
    ' 禁用屏幕更新和事件，提升稳定性
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 以只读方式打开源文件，避免锁定
    Set sourceWb = Workbooks.Open(Filename:=myFile, ReadOnly:=True)
    ' 明确指定要复制的工作表，这里用第一个工作表，可修改为指定名称
    Set sourceWs = sourceWb.Worksheets(1)
    
    ' 直接指定粘贴目标位置，避免焦点问题
    sourceWs.UsedRange.Copy Destination:=targetWs.Range("A1")
    
    ' 关闭源文件，不保存
    sourceWb.Close SaveChanges:=False
    
    ' 恢复系统默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

更高效的直接转CSV方案 #

其实你无需复制数据到现有工作表，直接打开XLSX后将目标工作表另存为CSV即可，步骤更简洁：

Sub ConvertXLSXToCSV()
    Dim sourceWb As Workbook
    Dim savePath As String
    Dim myFile As String
    
    ' 选择目标XLSX文件
    myFile = Application.GetOpenFilename("Excel文件 (*.xlsx), *.xlsx")
    If myFile = "False" Then Exit Sub
    
    ' 生成CSV保存路径，与原文件同目录、同名
    savePath = Left(myFile, InStrRev(myFile, ".")) & "csv"
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Set sourceWb = Workbooks.Open(Filename:=myFile, ReadOnly:=True)
    ' 将第一个工作表另存为UTF-8编码的CSV，如需指定其他工作表，修改Worksheets的索引或名称
    sourceWb.Worksheets(1).SaveAs Filename:=savePath, FileFormat:=xlCSVUTF8
    ' 若无需UTF-8编码，替换为FileFormat:=xlCSV
    
    sourceWb.Close SaveChanges:=False
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    MsgBox "转换完成！CSV文件已保存至：" & savePath
End Sub

关键注意事项 #

• 若源文件包含多个工作表，务必明确指定Worksheets的索引（如Worksheets(1)）或名称（如Worksheets("数据清单")），不要依赖ActiveSheet。
• 保存CSV时，xlCSVUTF8适配多语言场景，避免乱码；xlCSV为系统默认编码，仅适用于纯英文数据。
• 操作前后必须恢复ScreenUpdating和EnableEvents，避免影响Excel的正常交互。

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