VBA代码无法生成目标文件工作表名称列表的错误排查

核心错误点 #

• 工作表引用错误：原代码中Set ws = ThisWorkbook.Sheets(Sheet1)使用了工作表的代码名称Sheet1，但需求是写入到名为Input_tab的工作表，此处应直接用工作表名称引用，否则若Sheet1对应不是Input_tab，会写入错误工作表甚至报错。
• 未限定工作簿对象：打开目标文件后，Sheets.Count和Sheets(i).Name默认指向当前活动工作簿，若操作中活动工作簿切换会出错，需明确指定为打开的目标工作簿。
• 终止语句不规范：Else分支的End会直接终止整个Excel程序，建议用Exit Sub退出当前子程序，更安全。

修正后的代码 #

Sub ListSheets()
    Dim FilePicker As FileDialog
    Dim mypath As String
    Dim sheet_count As Integer
    Dim i As Integer
    Dim ws As Worksheet
    Dim targetWB As Workbook '新增变量存储目标工作簿
    
    '指定写入的工作表为当前工作簿的"Input_tab"
    Set ws = ThisWorkbook.Sheets("Input_tab")
    Set FilePicker = Application.FileDialog(msoFileDialogFilePicker)

    With FilePicker
        .Title = "Please Select a File"
        .ButtonName = "Confirm"
        .AllowMultiSelect = False
        If .Show = -1 Then
            mypath = .SelectedItems(1)
        Else
            Exit Sub '用Exit Sub替代End，仅退出当前子程序
        End If
    End With
    
    '打开目标文件并赋值给变量，避免活动工作簿歧义
    Set targetWB = Workbooks.Open(Filename:=mypath)

    sheet_count = targetWB.Sheets.Count

    '遍历目标工作簿的所有工作表，写入到指定工作表
    For i = 1 To sheet_count
        ws.Cells(i, 1) = targetWB.Sheets(i).Name
    Next i

    targetWB.Close savechanges:=False '用变量关闭目标工作簿，更可靠
End Sub

额外说明 #

• 需确保当前工作簿中已创建Input_tab工作表，否则运行代码会报错。
• 可添加错误处理（如On Error GoTo）捕获文件打开失败、工作表不存在等异常，提升代码稳定性。

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