Excel VBA重复导入TXT分列沿用旧规则需重启的解决方法

Excel会在当前程序会话中缓存TextToColumns和文本导入操作的最后一次配置参数（包括分隔符类型、文本识别符、连续分隔符处理规则等），且不会随宏运行结束自动重置。第二次执行导入流程时，若代码中未显式指定全量配置参数，Excel会自动套用首次运行时缓存的规则处理新文件，导致结果不符合预期。重启Excel会清空会话缓存，因此可以临时解决问题。

方案1（推荐）：所有文本导入、分列操作显式指定全量参数 #

这是最稳定的根治方案，所有涉及文本解析的参数全部在代码中明确赋值，完全不依赖Excel的缓存默认值。

修正后可直接复用的代码 #

Sub POR_Import()
    Dim targetFile As Variant
    Dim wsImport As Worksheet
    Set wsImport = ThisWorkbook.Worksheets("POR_IMPORT")
    
    ' 调用原有清空过程
    Call Smaz_vstup_POR
    
    ' 弹出文件选择框，支持用户取消操作
    targetFile = Application.GetOpenFilename("Text Files (*.txt), *.txt", Title:="选择目标TXT文件")
    If targetFile = False Then Exit Sub
    
    ' 清除旧的查询连接和残留数据
    Do While wsImport.QueryTables.Count > 0
        wsImport.QueryTables(1).Delete
    Loop
    wsImport.Cells.Clear
    
    ' 导入TXT时明确指定逗号为唯一分隔符，关闭其他所有分隔符选项
    With wsImport.QueryTables.Add(Connection:="TEXT;" & targetFile, Destination:=wsImport.Range("A1"))
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = ""
        .TextFileConsecutiveDelimiter = False
        .TextFileQualifier = xlDoubleQuote
        .Refresh BackgroundQuery:=False
    End With
    
    ' 调用分列逻辑
    Call SplitPOR
    
    MsgBox "Done"
End Sub

Sub SplitPOR()
    Dim wsDivide As Worksheet
    Dim lastRow As Long
    Set wsDivide = ThisWorkbook.Worksheets("POR_divide")
    
    ' 清空目标表旧数据
    wsDivide.Cells.Clear
    
    ' 按值粘贴POR_IMPORT表B列数据到目标表A列
    With ThisWorkbook.Worksheets("POR_IMPORT")
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        .Range("B1:B" & lastRow).Copy
    End With
    wsDivide.Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    ' 分列时明确指定"¦"为唯一分隔符，关闭其他所有分隔符选项
    With wsDivide.Range("A1:A" & lastRow)
        .TextToColumns _
            Destination:=.Cells(1, 1), _
            DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, _
            ConsecutiveDelimiter:=False, _
            Tab:=False, _
            Semicolon:=False, _
            Comma:=False, _
            Space:=False, _
            Other:=True, _
            OtherChar:="¦"
    End With
End Sub

方案2：操作前主动清空分列缓存 #

如果不想修改原有代码的参数配置，可以在每次执行导入、分列操作前，运行一段空分列逻辑，强制重置缓存的分列规则：

' 执行空操作重置TextToColumns缓存配置
Cells(Rows.Count, Columns.Count).TextToColumns _
    Destination:=Cells(Rows.Count, Columns.Count), _
    DataType:=xlDelimited, _
    Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other:=False

将上述代码放到POR_Import过程的最开头、以及SplitPOR过程执行TextToColumns的前一行即可，旧缓存规则被清空后就不会干扰新操作。

• 只要代码中省略了文本导入、分列的分隔符相关参数，Excel就会自动读取当前会话的缓存值作为默认配置，这是出现该问题的核心诱因
• 每次导入前记得删除工作表中残留的旧QueryTable连接，避免旧连接的配置干扰新的导入任务

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