Question

EXCEL 如何使用VBA引用不同工作薄中同一个单元格的内容

我的文件夹里面有1、2、…100……N个工作薄，现在我需要在我的总表的第一列A列引用各个对应的工作薄里面的某个单元格的内容：A1='F:\201109\[1.xlsx]Page 1'!$X$39 ; A2='F:\201109\[2.xlsx]Page 1'!$X$39

请问我如何设置公式或编程让我的1、2、3、……N号工作薄可以一次性设置！求高手指教
A1引用1.xlsx里面的X39号单元格
A2引用2.xlsx里面的X39号单元格
……
如此

Answer 1

这个只能绕个圈子，就是用vba替你写单元格里的公式。首先用dir函数提取你需要引用的文件名称，然后在把路径名称单元格地址组合起来循环，让vba去替你写每个公式就出来了，但是这个程序编完了运行会很慢，我的几百个数据提取要大概10几20多秒！

追问

哥，我知道需要一个程序，我现在就是需要这个程序，你要给我确定的答案啊！

追答

我现在没时间写，不过我可以把我以前写的一个给你发过去，你参考一下。你看行不？这几天忙的很，你要是能等，我过几天再给你编

Answer 2

A1
=indirect("'F:\201109\["&row()&".xlsx]Page 1'!X39")

公式下拉完成
你试一下这个行不行

Answer 3

在B列填上文件名。
公式改为
A1='F:\201109\['&B1&']Page 1'!$X$39

Answer 4

我刚刚才搞了个类似的。