如何在 MS Excel 中导入文本文件，每行位于单独的列中？

Question

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

• 第一列：世界文件名
• 第二列：世界文件的第一行
• 第 3 列：World 文件中的第 2 行
• 第 4 列：World 文件中的第 3 行
• 第 5 列：World 文件中的第 4 行
• 第 6 列：世界文件中的第 5 行
• 第 7 列：World 文件中的第 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 行。