VBA

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

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

VBA - import n lines from multiple text files

import

excel

text-files