VBA DAO访问Excel 2010之类的数据库

Question

我正在尝试使用DAO在Excel 2010中编写一些VBA。我希望能够访问Excel 2010工作簿，例如数据库。我正在尝试打开工作簿而不是mdb文件。有什么方法可以将DAO与excel工作簿一起使用，而不是实际的数据库？

Dim db As Database
Dim rst As Recordset
Dim SQL As String

SQL = "SELECT * From [DataSheet$]"

Set db = OpenDatabase(ThisWorkbook.FullName)
Set rst = db.OpenRecordset(SQL)

'displays the first record and first field
MsgBox rst.Fields(0)

'close the objects
rst.Close
db.Close

'destroy the variables
Set rst = Nothing
Set db = Nothing

我从这里http://www.excel-spreadsheet.com/vba/dao_ado.htm借来了代码

Answer 1

我知道了我的问题。使用下面的代码，您可以访问excel文件，并将其视为数据库。

{{1}}