请问各位老师：我的这段代码怎么运行了？

cdhilite

各位老师好！下面这段代码怎么运行到第6条时提示数据库不可识别呢？谢谢！
1.Sub 复制4() '后期绑定ADO
2.Dim adConn As Object, adRs As Object
3.Set adConn = CreateObject("adodb.connection")  
4.Set adRs = CreateObject("adodb.recordset")     
5.adConn.Provider = "microsoft.ace.oledb.12.0"   
6.adConn.Open ThisWorkbook.Path & "\客户供应商资料.xlsm" '
7.adRs.Open "供应商信息", adConn               
8.Range("a2") = adRs.GetString              
9.adArr = adRs.GetRows
10.Workbooks("工作簿3.xlsm").Sheets("sheet2").Range("a2").CopyFromRecordset adRs,  
11.adRs.Close                                 
12.adConn.Close                              
13.Set adConn = Nothing                       
14.Set adRs = Nothing                          
15.End Sub

ykcbf1100

先上附件，不然，别人怎么知道是什么情况呢？！

cdhilite

ykcbf1100 发表于 2023-2-9 12:15
先上附件，不然，别人怎么知道是什么情况呢？！

谢谢老师指点。

语虚何以言知

cdhilite 发表于 2023-2-9 13:37
谢谢老师指点。

1. Sub test()
   
2. Dim cnn As Object, rst As Object
   
3. Set cnn = CreateObject("ADODB.Connection")
   
4. Set rst = CreateObject("ADODB.Recordset")
   
5. cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties='excel 12.0;hdr=yes;imex=1';Data Source=" & ThisWorkbook.Path & "\文件夹\源信息.xlsm" '
   
6. SQL = "select * from [供货商$]"
   
7. With Sheets("sheet2")
   
8.     .Cells.Clear
   
9.     rst.Open SQL, cnn
   
10.     If rst.EOF = False Then i = rst.Fields.Count
    
11.         For j = 1 To i
    
12.             .Cells(1, j) = rst.Fields(j - 1).Name
    
13.         Next j
    
14.         .[a2].CopyFromRecordset rst
    
15. End With
    
16. rst.Close  '关闭记录集
    
17. cnn.Close  '关闭数据库连接
    
18. Set rst = Nothing  '从内存释放
    
19. Set cnn = Nothing  '从内存释放
    
20. End Sub
    

复制代码

上述代码供参考,我使用你的附件测试可以取数

你原来的问题：
我猜一个原来的代码是从access而非excel取数的，所以你移植使用有问题
问题1：是ado从excel取数连接字符串，一般为：
CNN.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=yes;imex=1';Data Source=" & ThisWorkbook.FullName
问题2：你表示数据源 ThisWorkbook.Path & "E:\文件夹\源信息.xlsm"   
如果你数据源是固定在e盘的话：Data Source=" E:\文件夹\源信息.xlsm"
如果数据源想取相对位置使用：Data Source=" & ThisWorkbook.Path & "\文件夹\源信息.xlsm"

问题3：返回数据使用sql语句，你取数的那句貌似是access的命令
问题4：数据返回一般使用：

• CNN.Execute(Sql)     -个人推荐
• range.CopyFromRecordset rst   -个人推荐
• arr = Application.Transpose(rst.GetRows)   -个人不推荐   一行数据返回1维数组，多行数据返回二维数组
• st = rst.GetString  -个人不推荐  还需要转换为数组
  

上述选择任意一个使用

你原来代码中 8 、9、 10行全上了，不知道8 行9行的意义何在

taller