我用office003運行以下程式正常，但在win7 64位的office2010上運行，提示運行時錯誤，至少缺一個引數。
我反復檢查調整了SQL陳述句，都沒法解決。請高手指點。萬分感謝！
Sub 分類匯總()
Dim word As String
If Application.Version = "14.0" Then
word = "Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=no;IMEX=1';data source=" '對應office2010 64位OK"
ElseIf Application.Version = "11.0" Then
word = "microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" '對應office2003 OK
Else
MsgBox "不支持這個版本的 Excel，請與管理員聯系 "
End If
Range("A2:E100").ClearContents
Set conn = CreateObject("adodb.connection")
conn.Open "provider=" & word & ThisWorkbook.FullName
sq1 = "select 類別,數量,金額 from [Sheet1$]"
sq2 = "select 類別,數量,金額 from [Sheet2$]"
sq3 = "select 類別,數量,金額 from [Sheet3$]"
sq4 = sq1 & " UNION ALL " & sq2 & " UNION ALL " & sq3
sq5 = "select 類別,SUM(數量),SUM(金額) from (" & sq4 & ") GROUP BY 類別"
[a65536].End(xlUp).Offset(1, 0).CopyFromRecordset conn.Execute(sq5)
conn.Close
Set conn = Nothing
End Sub
uj5u.com熱心網友回復：
office包含了access2010了么？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/91022.html
標籤：VBA