DAO 与工作簿连接和查询

Public Sub 例11_1()
    Dim myWorkbook As String
    Dim myWP As DAO.Workspace
    Dim myCnn As DAO.Connection
    Dim cnnStr As String
    '指定要打开的工作簿名称
    myWorkbook = ThisWorkbook.FullName
    '设置ODBC连接字符串
    cnnStr = "ODBC;" _
           & "DBQ=" & myWorkbook & ";" _
           & "Driver={Microsoft Excel Driver (*.xls)};" _
           & "FILEDSN=C:"
    '创建Workspace对象
    Set myWP = CreateWorkspace("myWP", "myName", "", dbUseODBC)
    Workspaces.Append myWP
    '建立与工作簿的连接
    Set myCnn = myWP.OpenConnection( _
        Name:="myConnnection", _
        Options:=dbDriverNoPrompt, _
        Connect:=cnnStr)
    '显示打开信息
    MsgBox "已经成功连接指定的工作簿！", vbInformation, "连接工作簿"
    MsgBox "工作簿连接信息为:" & vbCrLf _