|
此文章由 pandas 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 pandas 所有!转贴必须注明作者、出处和本声明,并保持内容完整
可以试试https://www.sqlite.org/index.html 要先下载sqlite odbc driver http://www.ch-werner.de/sqliteodbc/
- Dim conn As Object, rst As Object
- Set conn = CreateObject("ADODB.Connection")
- Set rst = CreateObject("ADODB.Recordset")
- ' OPEN CONNECTION
- conn.Open "DRIVER=SQLite3 ODBC Driver;Database=C:\Path\To\SQLite\Database.db;"
- strSQL = "SELECT column FROM table "
-
- rst.Open strSQL, conn
-
- Worksheets("results").Range("A1").CopyFromRecordset rst
- rst.Close
- Set rst = Nothing: Set conn = Nothing
复制代码 |
|