复制工作簿后删除各工作表首行并另存CSV时遇循环报错

原代码出错原因 #

1. 下标越界：用For Each遍历工作表的同时，又用i作为新工作簿的工作表索引，但每次复制后新工作簿只有1个表，第二次循环时i=2，自然找不到对应工作表。
2. Excel实例混淆：通过CreateObject新建了独立Excel进程，却用Application.DisplayAlerts控制当前Excel的警告，等于无效设置，覆盖警告仍会弹出。
3. 路径格式错误：myPath开头多了反斜杠，拼接后路径会变成\G:\xxx\表名.csv，系统无法识别。
4. 工作表引用语法错误：objExcel.ActiveWorkbook.objws是错误写法，objws是原文件的工作表对象，不能直接作为新工作簿的属性调用。

修正后的可用代码 #

Dim objExcel As Object
Dim objWB As Object
Dim objws As Object
Dim newWB As Object
Dim myPath As String

Set objExcel = CreateObject("Excel.Application")
' 不想看到弹出的Excel窗口就保留这行，调试时可删除
objExcel.Visible = False
' 替换为你的原文件完整路径
Set objWB = objExcel.Workbooks.Open("C:\你的原文件路径\文件名.xlsx")

' 关闭覆盖警告，用新建的Excel实例控制
objExcel.DisplayAlerts = False
' 输出路径末尾要加反斜杠，避免文件名与路径拼接异常
myPath = "G:\file location\"

For Each objws In objWB.Worksheets
    ' 将当前工作表复制到新工作簿
    objws.Copy
    ' 把新生成的工作簿绑定到变量，避免依赖不稳定的ActiveWorkbook
    Set newWB = objExcel.ActiveWorkbook
    
    ' 删除新工作表首行，新工作簿只有1个表，直接用索引1即可
    newWB.Worksheets(1).Range("A1").EntireRow.Delete
    
    ' 保存为CSV，用6代替xlCSV（晚绑定模式下xlCSV常量可能未定义），强制加.csv后缀
    newWB.SaveAs Filename:=myPath & objws.Name & ".csv", FileFormat:=6
    ' 关闭新工作簿（已通过SaveAs保存，无需再保存）
    newWB.Close False
    ' 释放变量，避免内存占用
    Set newWB = Nothing
Next

' 关闭原工作簿，未修改原文件所以选不保存
objWB.Close SaveChanges:=False
' 恢复警告设置
objExcel.DisplayAlerts = True
' 退出新建的Excel进程，避免后台残留Excel.exe
objExcel.Quit
' 释放所有变量
Set objWB = Nothing
Set objExcel = Nothing

核心调整说明 #

• 用newWB绑定新工作簿，替代ActiveWorkbook，避免窗口切换时的意外错误。
• 直接操作新工作簿的第1个工作表，彻底解决下标越界问题。
• 用FileFormat:=6替代xlCSV，适配晚绑定模式的常量定义问题。
• 显式退出Excel进程，防止后台残留进程占用系统资源。

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