Question

EXCEL中VB编程有关不打开工作簿进行数据处理的问题(高手进)

EXCEL中VB编程有关不打开工作簿进行数据处理的问题
如题
例如:我D:\下有些文件1.xls,2.xls……100.xls,统计.xls,我要使"统计.xls""sheet1"中的A1等于这100个文件中所有"sheet1"中的A1单元格相加,这样的程序怎样写啊?
必须指出的是:一定要在不打开这100个文件(1.xls,2.xls……100.xls)的情况下处理数据!因为我实际中有上千个文件处理数据,而且每次打开"统计.xls"时该宏都会自动运行一遍,如果每次都要打开这100文件,速度会很慢!
希望高手解答一下,多谢了!
汗!一楼的太高深了!看不太懂,能解释下么

Answer 1

用ADO操作

Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
Dim index As Integer

adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _
"Data Source=c:\book1.xls;Extended Properties='Excel 8.0;HDR=Yes'"
adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic

类似如此，写个循环，用游标获取A1，相加