关于读取外部XLS文件的问题

诸葛菲菲

现在有两个XLS文件,分别给它们命名为11.XLS和12.XLS,
现在要在11.XLS中编程实现能读取12.XLS里面的数据,
并且12.XLS的存放路径不是固定的,还有12.XLS的文件名也不是固定的,
请问该怎么编程?

红池坝

不固定好像很难办。

至少也得在执行之前指定一下路径和文件名。比如：

XLS_path＝inputbox("请输入要读取的工作簿路径")

XLS_name＝inputbox("请输入要读取的工作簿文件名(不含扩展名)")

然后就可以直接在单元格里读取了，当然用变量也行

Cells(1,1) = "='"+XLS_path+"\[" + XLS_name + ".xls]sheet1'!a1"

诸葛菲菲

以下是引用红池坝在2005-5-14 20:15:00的发言：



不固定好像很难办。

至少也得在执行之前指定一下路径和文件名。比如：

XLS_path＝inputbox("请输入要读取的工作簿路径")

XLS_name＝inputbox("请输入要读取的工作簿文件名(不含扩展名)")

然后就可以直接在单元格里读取了，当然用变量也行

Cells(1,1) = "='"+XLS_path+"\[" + XLS_name + ".xls]sheet1'!a1"

这样的话怎么读取数据呢？

红池坝

这样的话怎么不能够读取数据呢？

你试了？可我的就能这样读取数据的，注意最后一行，如果你读懂了

诸葛菲菲

Cells(1,1) = "='"+XLS_path+"\[" + XLS_name + ".xls]sheet1'!a1"

如果表的名字也是不固定的，并不是sheet1，那又应该怎么编写呢？

HeyEric

用循环获得它里面的所有表不就结了？并不一定需要指定是sheet1，楼上的只是一个例子而已。

HeyEric

另外如果实在不想用inputbox的话，用FSO吧，呵呵。dim fs as objectset fs=createobject("scripting.FileSystemObject")dim myfile,myfiles,myfolderdim mypathmypath=Application.thisworkbook.pathset myfolder=fs.getfolder(mypath)set myfiles=myfolder.filesfor each myfile in myfiles    'Do your action herenextset fs=nothing我想这样比较适合当前文件夹中有很多文件需要处理，呵呵，遍历我还是最喜欢的。：）