怎么写单元格内的文件名打开其他目录下的同名文件

Question

怎么用vba写单元格内的文件名打开其他目录下的同名文件，主要目的是用一列文件名，逐一打开一个目录下的同名文件，然后考出一部分内容到工作表中。

Answer 1

文件名
000001_F10.txtWorkbooks.OpenText Filename:="C:\BigBull\GreatBull\info\000001_F10.txt"如何用Range("A2")的内容（文件名有近3000个），取代宏命令中的文件名，并能执行命令。

Answer 2

Dim i as Long
i=2
do
 Workbooks.OpenText Filename:=Range("A"+CStr(i)).Value
 ...
 i=i+1
 if i>=3000 then exit do
loop

Answer 3

在宏命令中：
Dim f As Range
For Each f In Range("A1:A" & [A65530].End(Xlup).Row)
Workbooks.OpenText Filename:="C:\BigBull\GreatBull\info\" & f
Next f