请求调整VBA代码：实现TXT文件全内容导入Excel

原代码只返回第一行，大概率是**newSheet对象未被正确初始化**导致的——如果没有明确指定newSheet指向哪个工作表，VBA会默认使用当前活动工作表，容易出现引用失效或数据覆盖的情况。以下是修复后的完整代码：

Sub ImportAllTxtLines()
    Dim myPath As String
    Dim myFile As String
    Dim rowNum As Long
    Dim fileNum As Integer
    Dim textLine As String
    Dim newSheet As Worksheet
    
    ' 初始化目标工作表（可替换为已有表，比如Set newSheet = ThisWorkbook.Sheets("目标表")）
    Set newSheet = ThisWorkbook.Sheets.Add
    newSheet.Name = "TXT导入结果" ' 自定义新表名称
    
    myPath = "C:\你的TXT文件路径\" ' 替换为实际路径，末尾必须加\
    rowNum = 1
    
    myFile = Dir(myPath & "*.txt")
    Do While myFile <> ""
        fileNum = FreeFile
        Open myPath & myFile For Input As #fileNum
        Do Until EOF(fileNum)
            Line Input #fileNum, textLine
            newSheet.Cells(rowNum, 1).Value = textLine
            rowNum = rowNum + 1
        Loop
        Close #fileNum
        myFile = Dir
    Loop
End Sub

关键修复点 #

• 显式声明并初始化newSheet：通过Set newSheet = ThisWorkbook.Sheets.Add明确创建/指定目标工作表，确保写入位置准确。
• 补充变量声明：避免隐式变量引发的潜在错误（建议开启Option Explicit强制变量声明）。
• 路径提示：强调myPath末尾必须加反斜杠，否则会导致路径拼接错误，无法读取文件。

如果仍有问题，可尝试用批量读取优化（解决部分编码或空行问题）：

' 替换内层Do Until循环的代码
Dim fileContent As String
Input #fileNum, fileContent
Dim lines() As String
lines = Split(fileContent, vbCrLf)
Dim i As Integer
For i = LBound(lines) To UBound(lines)
    If lines(i) <> "" Then ' 跳过空行
        newSheet.Cells(rowNum, 1).Value = lines(i)
        rowNum = rowNum + 1
    End If
Next i

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