EXCEL能实现查找所有打开的文件吗？

加上一个
filelist控件，设置它的path=“d:\a\”
然后，
partfilename=text1(50).text
i=0
do
while
instr(1,filelist1.list(i),
partfilename)=0
and
i<
filelist1.count
i=i+1
loop
if
i<>filelist1.count
then
'找到相似的文件
……
excelfilename=filelist1.list(i)
xlapp.workbooks.open(filename:="路径"
&
excelfilename)
'打开已经存在的excel工件簿文件
……
代码不全，主要是讲了
思路。
ps：有点不明白
的是你的代码中，打开excel文件的那个，路径为什么和
你说
的
“d:\a\”路径不一样呢？

1.
写个宏，打开查找，査好关上，我900个文件一忽儿就完成合并