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

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

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

每行都是世界文件之一。

有脚本可以做到这一点吗？

Answer 1

首先将您的文件规格放在Sheet1列A中，如：

然后selectSheet1 ，运行此macros：

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中

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

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