文件包里面的APM文件打开后,如下图所示
我只需要每个APM文件的第一行的数据,这些数据全部累积到一个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