导入ACCESS时，出现错误，请老师帮忙修改代码。

20090930

导入ACCESS时，出现错误，请老师帮忙修改代码。



成绩查询表.rar (480.1 KB, 下载次数: 4)

2016-10-18 17:41 上传

点击文件名下载附件

jack5d

1. Sub test()
   
2. Dim mydata As String, mytable As String, SQL As String
   
3.     Dim cnn As ADODB.Connection
   
4.     Dim rs As ADODB.Recordset
   
5.     Dim i As Integer
   
6.     mydata = ThisWorkbook.Path & "\ABC.mdb"    '硌隅杅擂踱
   
7.     mytable = "ABC"      '硌隅杅擂桶
   
8.    
   
9.     Set cnn = New ADODB.Connection
   
10.     With cnn
    
11.         .Provider = "microsoft.jet.oledb.4.0"
    
12.         .Open mydata
    
13.     End With
    
14. 
    
15. SQL = " SELECT * " _ ' 這句改了
    
16. & " FROM ABC; "
    
17. 
    
18. Set rs = New ADODB.Recordset
    
19. rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
20. Sheet1.Range("C3").CopyFromRecordset rs
    
21. rs.Close
    
22. 
    
23. End Sub

复制代码