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

Question

文件包里面的APM文件打开后，如下图所示
我只需要每个APM文件的第一行的数据，这些数据全部累积到一个excel里面

Answer 1

调试通过的例子的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