excel vba 显示：”运行时错误‘3706’应用程序定义或对象定义错误，请高人帮我看下代码。

我用2007版的excel，目的就是跨workbook复制内容，代码如下：Sub myccn()Dim cnn As ADODB.ConnectionDim rs As ADODB.RecordsetDim mypath As StringDim mysql As Stringmypath = ThisWorkbook.Path & "尀test.xlsx"Set cnn = New ADODB.ConnectionWith cnn.Provider = "Provider = Microsoft.ACE.OLEDB.12.0".ConnectionString = "Extended Properties=Excel 12.0;Data Source=" & mypath.OpenEnd Withmysql = "select * from [Sheet1]"Set rs = New ADODB.Recordsetrs.Open mysql, cnn, adOpenKeyset, adLockBatchOptimisticSheet1.Range("A1").CopyFromRecordset rsrs.Closecnn.CloseSet rs = NothingSet cnn = NothingEnd Sub