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

Question

我有一段代码可以导入包含我需要的一些数据的多个文本文件。我想对其进行一些更改-我希望它在达到文本文件中的第 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

有人知道我该如何处理吗？我对此很陌生，但仍然很迷茫。我在这里几乎是在黑暗中刺伤。如果您能给我一些关于我能做什么或使用什么功能的提示，我将非常感激！

Answer 1

您的代码导入了多个文件，但是，它总是会覆盖之前导入文件的内容。您需要在单元格地址中添加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