用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，相加
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024