用Ado直接把Excel当作数据库来读取。
回复 11楼 jiashie
不是很好,可以帮忙指点指点吗?
... Set connXLS = New ADODB.Connection 'connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & strExcel & "';Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & strExcel & "';Extended Properties=""Excel 12.0;HDR=NO"";" '由于我用的是office2007的excel,所以要用ACE而不是Jet。 connXLS.Open connStr Set rsXLS = New ADODB.Recordset sqlStr = "select * from [Sheet1$]" 'Excel工作簿名称 +$ rsXLS.Open sqlStr, connXLS, adOpenKeyset, adLockOptimistic if rsXLS.RecordCount =0 then '没有记录 err.raise ERROR_USER,"没有记录" end if '遍历所有记录、所有字段 for i = 0 to rsXLS.RecordCount -1 for j = 0 to rsXLS.Fields.Count-1 debug.print rsXLS(j) next rsXLS.MoveNext next rsXLS.Close ...