如何在MS Excel中导入文本文件，每行都在一个单独的列中？

Question

我有＆gt; 5000 World files基本上是包含6行数据的文本文件。我想将它们全部合并到一个MS Excel文件中，格式如下：

• 第1列：世界文件名
• 第二栏：世界档案中的第一行
• 第3栏：世界档案中的第2行
• 第4列：World文件中的第3行
• 第5栏：世界档案中的第4行
• 第6列：World文件中的第5行
• 第7列：世界文件中的第6行

每行都是World文件之一。

是否有可以执行此操作的脚本？

Answer 1

首先将您的文件规范放在 Sheet1 列 A 中：

然后选择 Sheet1 ，运行此宏：

Sub WideWideWorld()
    Dim N As Long, i As Long, k As Long
    Dim s As String, j As Long, kk As Long

    kk = 1
    N = Cells(Rows.Count, "A").End(xlUp).Row
    Close #1
    For i = 1 To N
        k = 1
        s = Cells(i, 1).Value
        Open s For Input As #1
        For j = 1 To 6
            Line Input #1, TextLine
            Sheets("Sheet2").Cells(kk, k).Value = TextLine
            k = k + 1
        Next j
        Close #1
        kk = kk + 1
    Next i
End Sub

输出将存储在 Sheet2

中

我建议从 Sheet1 中的一个小子集开始，看看格式是否符合您的需求。

例程从每个文件中拉出第一行..........所以请确保每个文件至少包含6行。