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

NT007 · 发表于 2015-1-20 11:52

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

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

NT007 · 发表于 2015-1-20 11:58

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

NT007 · 发表于 2015-1-20 14:17

坐等到有人来回贴为止，

NT007 · 发表于 2015-1-22 12:12

需要一个提示

NT007 · 发表于 2015-1-23 23:06

DING

NT007 · 发表于 2015-2-4 17:46

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

jack5d · 发表于 2015-2-7 13:49

用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貼上到新表中

		自动登录	找回密码
密码			免费注册

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