感谢帮助过我的坛友，同时也来问个新问题。

NT007

在这坛里问过几次问题，都得到了解决，有时候，一个思路，一个公式，一个函数的用法，就可以解决一大堆问题。谢谢这里的高手们。

我现在在一个表中直接引用其它文件的内容：  
='E:\数据保存\2015\1\[20150101数据.xls]Sheet1'!A1直接引用了A1的数据。现在请问，我想做个直接引用数据的表格。一个一个输文件名，再改太麻烦了。我想直接设置个年份，月份，的选择单元格，选好后，直接就生成按这个条件引用的数据。比如，选2014年，2月，就生成='E:\数据保存\2014\2\[20140201数据.xls]Sheet1'!A1
这个如何实现比较方便呢？请指教，谢谢

NT007

我想直接用公式完成，不想用VBA，

NT007

坐等到有人来回贴为止，

NT007

需要一个提示

NT007

                            DING

NT007

无人理自已顶。。。。。。。。。

jack5d

用ADO來查詢....

Sub TFindRecord()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim url As String, ArrString As String, i As Long, k As Long

Set cn = New ADODB.Connection
url = ActiveWorkbook.Path & "\" & "目標.xlsx" & ";"
With cn
    .Provider = "Microsoft.ace.Oledb.12.0"
    .ConnectionString = "Extended Properties=Excel 12.0 Xml;Data Source=" & url
    .Open
End With
接下來就不寫了,自己想

提示:
之後就用SQL來篩出你想要的資料,篩完就用Dir建新表再用copyfromrecordset貼上到新表中