我正在使用 ADO 来为当前工作项目提供 Excel 电子表格。
在工具 -> 引用中,添加“ActiveX Data Objects 2.8 库”
用于查询电子表格:
- Dim ExcelSpreadsheetADODB As ADODB.Connection
- Set ExcelSpreadsheetADODB = New ADODB.Connection
- Dim RecordSet As New ADODB.Recordset
- 'Build the connection to the spreadsheet
- With ExcelSpreadsheetADODB
- .Provider = "Microsoft.Jet.OLEDB.4.0"
- .ConnectionString = "Data Source=" & ExcelFilename & ";Extended Properties=Excel 8.0;"
- .Open
- End With
- RecordSet.Open "SELECT * FROM [sheet1$] WHERE ='" & variable & "'", _
- ExcelSpreadsheetADODB, adOpenKeyset, adLockOptimistic
ADO 是一种臭名昭着的“黑暗”艺术形式...但是如果你需要,我会在这里帮忙...我想我刚刚把它破解了(尽可能多地在互联网上漂浮) |