怎么用VBA批量提取文件包里面的文档第一行数据并导入excel，所有数据累积在一个excel

调试通过的例子的VBA代码如下图：

例子程序执行后，工作表的结果如下图：

程序文本代码如下，请把例子中的txt修改为amp：

Option Explicit

Sub 导入文件的第一行()

  Dim p$, f$, i&, s$

  p = "d:\doc\" '文件所在位置，必须以\结尾

  f = Dir(p & "txt") '可能需要修改扩展名

  While f <> ""

      Open p & f For Input As #1

      Input #1, s

      Close #1

      i = i + 1

      Cells(i, 1) = f

      Cells(i, 2) = s

      f = Dir

  Wend

End Sub

以上就是关于怎么用VBA批量提取文件包里面的文档第一行数据并导入excel，所有数据累积在一个excel全部的内容，包括:怎么用VBA批量提取文件包里面的文档第一行数据并导入excel，所有数据累积在一个excel、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！