VB.NET操作Excel触发DISP_E_BADINDEX索引无效错误如何解决

这个System.Runtime.InteropServices.COMException (0x8002000B: DISP_E_BADINDEX)异常的本质是：你传入的nameOfTheCostSheet对应的工作簿，不存在于当前CostSheetApp实例的Workbooks集合中，按索引取值时找不到匹配项触发报错。

常见触发原因 #

• 传入的工作簿名称格式错误：Excel的Workbooks集合按名称索引时要求传入带完整后缀的文件名（例如cost.xlsx，而非cost），如果传参时省略了后缀，会无法匹配到已打开的工作簿。
• 工作簿未在当前Excel实例中打开：你操作的CostSheetApp实例对应的Excel进程里没有打开目标工作簿，可能是打开了多个Excel进程、目标工作簿已经被提前关闭、或者COM对象已经被释放。
• 误传全路径作为参数：Workbooks集合的索引只识别工作簿的文件名，不识别全路径，如果传入了带目录的完整路径，也会匹配失败。

修复步骤 #

1. 先添加调试代码确认匹配项，在报错的With语句前插入以下代码，输出当前Excel实例下所有已打开的工作簿名称，和你传入的参数做对比：

' 调试代码：输出所有已打开工作簿名
For Each wb As Excel.Workbook In CostSheetApp.Workbooks
    Debug.WriteLine("已打开工作簿：" & wb.Name)
Next
Debug.WriteLine("传入的目标工作簿名：" & nameOfTheCostSheet)

2. 修正传参逻辑：如果调试发现参数和实际工作簿名格式不一致，调整nameOfTheCostSheet的传值：
   • 省略了后缀的补充完整后缀（.xlsx/.xls/.xlsm等，和实际文件格式一致）
   • 传了全路径的改为只取文件名部分，可以用Path.GetFileName(nameOfTheCostSheet)处理
3. 增加安全校验逻辑，避免直接索引不存在的项抛出异常，同时复用查询到的工作簿对象，避免后续代码重复索引二次报错：

' 先查询目标工作簿
Dim targetWb As Excel.Workbook = Nothing
For Each wb As Excel.Workbook In CostSheetApp.Workbooks
    ' 大小写不敏感匹配，避免大小写差异导致匹配失败
    If wb.Name.Equals(nameOfTheCostSheet, StringComparison.OrdinalIgnoreCase) Then
        targetWb = wb
        Exit For
    End If
Next
' 未找到的情况做兼容处理
If targetWb Is Nothing Then
    ' 这里可以根据业务需求替换为友好提示、或者自动打开目标工作簿的逻辑
    Throw new ArgumentException($"未找到名称为 {nameOfTheCostSheet} 的已打开工作簿，请确认文件状态")
End If

' 替换原来的With语句，使用查询到的targetWb
With targetWb
    ' 原块内逻辑保持不变
    For Each sheet In .Sheets 
        If (sheet.name.Equals(Project.ProjectConstant.NAME_OF_COST_SHEET_SHEET + withRiskString)) Then
            Call .Sheets(Project.ProjectConstant.NAME_OF_COST_SHEET_SHEET + withRiskString).delete
            Exit For
        End If
    Next
    Call .Sheets.Add()
    .ActiveSheet.name = Project.ProjectConstant.NAME_OF_COST_SHEET_SHEET + withRiskString
End With

' 后续代码里的 CostSheetApp.Workbooks(nameOfTheCostSheet) 也全部替换为targetWb
With targetWb.Sheets(Project.ProjectConstant.NAME_OF_COST_SHEET_SHEET + withRiskString)
    ' 原块内逻辑保持不变
    If (withRiskString.Equals("")) Then
        .range(.Cells(Project.ProjectConstant.COST_SHEET_START_ROW + 1, Project.ProjectConstant.COST_SHEET_COL_WP), .Cells(Project.ProjectConstant.COST_SHEET_START_ROW + 1, Project.ProjectConstant.COST_SHEET_COL_MAX_HOURS)).Select
    Else
        .range(.Cells(Project.ProjectConstant.COST_SHEET_START_ROW + 1, Project.ProjectConstant.COST_SHEET_COL_WP), .Cells(Project.ProjectConstant.COST_SHEET_START_ROW + 1, Project.ProjectConstant.COST_SHEET_COL_END_RESOURCE)).Select
    End If
    CostSheetApp.Selection.Copy

    If (withRiskString.Equals("")) Then
        .range(.Cells(Project.ProjectConstant.COST_SHEET_START_ROW + 1, Project.ProjectConstant.COST_SHEET_COL_WP), .Cells(Project.NumberOfTask + Project.NumberOfSumarryTasks + 4, Project.ProjectConstant.COST_SHEET_COL_MAX_HOURS)).Select
    Else
        .range(.Cells(Project.ProjectConstant.COST_SHEET_START_ROW + 1, Project.ProjectConstant.COST_SHEET_COL_WP), .Cells(Project.NumberOfTask + Project.NumberOfSumarryTasks + 4, Project.ProjectConstant.COST_SHEET_COL_END_RESOURCE)).Select
    End If

    CostSheetApp.Selection.PasteSpecial(Paste:=xlPasteFormats, SkipBlanks:=False, Transpose:=False)
End With

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