VB中Excel转文本：Workbook对象引用错误求助

首先，你的核心问题大概率是在独立VB环境（而非Excel内置VBA）中运行代码时，没有显式创建Excel应用程序实例，导致无法正确引用Workbook对象。另外原代码默认导出的是逗号分隔的CSV，而你需要的是制表符分隔的文本文件，同时On Error Resume Next会掩盖具体错误，不利于排查。

下面是修正后的完整代码，解决了引用问题并满足你的制表符导出需求：

Sub SaveToTabDelimitedTxt()
    Dim xlApp As Excel.Application
    Dim wB As Excel.Workbook
    Dim wS As Excel.Worksheet
    Dim fDir As String
    Dim fPath As String
    Dim sPath As String
    
    ' 设置文件路径（确保结尾带斜杠）
    fPath = "C:\Users\rshuell\Desktop\My_Excel_Files\"
    sPath = "C:\Users\rshuell\Desktop\My_Excel_Files\"
    
    ' 显式创建Excel应用实例
    Set xlApp = New Excel.Application
    xlApp.Visible = False ' 后台运行，不显示Excel窗口
    xlApp.DisplayAlerts = False ' 覆盖文件时不弹出提示
    
    ' 遍历指定目录下的Excel文件
    fDir = Dir(fPath & "*.xls*") ' 直接筛选Excel格式，避免判断后缀
    Do While fDir <> ""
        On Error GoTo ErrorHandler ' 针对性错误处理
        Set wB = xlApp.Workbooks.Open(fPath & fDir)
        
        ' 导出每个工作表为制表符分隔的文本
        For Each wS In wB.Sheets
            ' 保存为制表符分隔格式，后缀改为.txt更直观
            wS.SaveAs Filename:=sPath & wS.Name & ".txt", FileFormat:=xlCSVTab
        Next wS
        
        wB.Close SaveChanges:=False
        Set wB = Nothing
        
ErrorHandler:
        If Err.Number <> 0 Then
            MsgBox "处理文件 " & fDir & " 时出错: " & Err.Description
            Err.Clear
        End If
        fDir = Dir ' 遍历下一个文件
    Loop
    
    ' 清理资源，退出Excel进程
    xlApp.Quit
    Set xlApp = Nothing
    MsgBox "导出完成！"
End Sub

关键修正点说明： #

• 显式创建Excel实例：通过Set xlApp = New Excel.Application明确创建Excel应用对象，所有Workbook/Worksheet操作都基于这个实例，彻底解决引用错误问题
• 制表符分隔导出：将xlCSV替换为xlCSVTab，并将后缀改为.txt（可选，更符合文本文件的直观认知）
• 优化错误处理：移除全局的On Error Resume Next，改用针对性的错误捕获，能明确看到哪个文件出了问题，方便排查
• 避免进程残留：最后调用xlApp.Quit并释放对象，防止Excel进程在后台偷偷残留占用资源
• 简化文件筛选：用Dir(fPath & "*.xls*")直接筛选所有Excel格式文件，省去后缀判断的繁琐逻辑

额外注意事项： #

1. 确保已经添加了Microsoft Excel xx.x Object Library引用（VB菜单 -> 工程 -> 引用）
2. 如果是在VBScript中运行，需要改用CreateObject("Excel.Application")代替New Excel.Application
3. 目标路径需要有读写权限，否则会触发权限报错

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