CopyFromRecordset无法从数据库读入excel

zhn158

发错位置了，尴尬。在这里又重发了一遍：http://club.excelhome.net/thread-1478873-1-1.html

数据库文件：test.sqlite3，里面有两张表：基本信息表，设备材料库。同样的代码读入基本信息没有问题，设备材料库的内容无论如何读不进excel，但在sqlite3终端用同样的SQL语句 “SELECT * FROM 设备材料库;” 就没有问题，求大神帮忙

1. Sub test()
   
2.     Dim conn As Object
   
3.     Set conn = CreateObject("adodb.connection")
   
4.     Dim connStr As String
   
5.     connStr = "Driver={SQLite3 ODBC Driver};Database=" & ThisWorkbook.Path & "\test.sqlite3"
   
6.     conn.Open (connStr)
   
7.     Dim rst As Object
   
8.     Set rst = CreateObject("adodb.recordset")
   
9.    
   
10.     Call rst.Open("SELECT * FROM 设备材料库;", conn)
    
11.     Call ThisWorkbook.Sheets(1).Range("A1").CopyFromRecordset(rst)
    
12.     rst.Close
    
13.     conn.Close
    
14. End Sub

复制代码