怎么用VBA批量提取文件包里面的文档第一行数据并导入excel，所有数据累积在一个excel？
发布网友
发布时间：2022-04-28 22:17
共1个回答
热心网友
时间：2023-09-18 14:12
调试通过的例子的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
