VBA - 从多个文本文件导入 n 行

如何解决VBA - 从多个文本文件导入 n 行

我有一段代码可以导入包含我需要的一些数据的多个文本文件。我想稍微改变一下 - 我希望它在到达文本文件中的第 50 行后停止读取文件并仅导入前 50 行。有没有办法做到这一点？我正在考虑一个逐行执行代码直到行号大于 50 的循环。我想出了一种编写这样一个循环的方法，但是它不会将行分成几列，我需要它。同样按照我编写的方式，它只导入 1 个文件。我有一个代码可以读取多个文件并将它们分成几列，但我无法在 50 行后结束。我为此使用了 QueryTables。也许我可以借鉴它而不是做那个循环？

这是我所拥有的 - 它显然不起作用：

Sub RT()
Dim fso As Object
Dim xlsheet As Worksheet
Dim qt As QueryTable
Dim txtfilesToOpen As Variant,txtfile As Variant
Dim rec As String
Dim i As Long
Dim txtfilnumber As Integer
Dim FileNumber
Dim txtline As String
    i = 0

Application.ScreenUpdating = False
txtfilesToOpen = Application.GetOpenFilename _
             (FileFilter:="Text Files (*.txt),*.txt",_
              MultiSelect:=True,Title:="Text Files to Open")

With ActiveSheet
    .Cells.ClearContents
    For Each txtfile In txtfilesToOpen
        importrow = 2 + .Cells(.Rows.Count,1).End(xlUp).Row
        With CreateObject("Scripting.FileSystemObject").OpenTextFile(txtfile)
            Do While Not .AtEndOfStream
                If .line < 50 Then
                    Cells(.line,1).Value = .ReadLine
                Else: Exit Do
                End If
            Loop
        End With
    Next txtfile

    For Each qt In .QueryTables
       qt.Delete
    Next qt

End With

Application.ScreenUpdating = True
MsgBox "Successfully imported text files!",vbInformation,"SUCCESSFUL IMPORT"

Set fso = Nothing

End Sub

有谁知道我该如何解决这个问题？我真的很陌生，但仍然很迷茫。我在这里几乎是在黑暗中刺伤。如果你能给我一个关于我能做什么或使用什么功能的提示，我将非常感激！

解决方法

您的代码会导入多个文件，但是，它总是会覆盖前一个导入文件的内容。您需要将 importrow 添加到单元格地址。

当你想将文本拆分成几列时，你需要知道如何拆分它。您有字段分隔符（制表符、分号、逗号）吗？固定长度？

假设分号作为分隔符，以下代码会将文本拆分为多个单元格。它可能有点慢，但你会明白的。

Do While Not .AtEndOfStream
   If .line > 50 Then Exit Do
  
   Dim txtLine as String,tokens() as String,i as long
   txtLine = .ReadLine
   tokens = Split(txtLine,";")
   For i = 0 to UBound(tokens)
       .Cells(importrow + .line,i+1).Value = tokens(i)
   Next i
Loop