excel - Excel vbaでCreateObjectを使用するには?

Question

Public Sub InformationManagement(myTable As String)
    Dim myaccess As Object
    Dim mydata As String
    mydata = ThisWorkbook.Path & "\Management.mdb"
    Set myaccess = CreateObject(mydata)
    With myaccess
        .Visible = True
        .DoCmd.OpenTable myTable
        .DoCmd.Maximize
    End With
    Set myaccess = Nothing
End Sub

Row -> Set myaccess = CreateObject(mydata) で「Run-time error '429' ActiveX component can't create object」というメッセージ エラーが発生する

これを解決する方法を知っている人はいますか？どうもありがとうございます

Answer 1

私はしばらくこれをしていませんでしたが、私の頭の上から離れて、それはもっと似ているはずです..

Dim mydata As String
Dim myaccess As Object

mydata = ThisWorkbook.Path & "\Management.mdb"
Set myaccess = CreateObject("Access.Application")
With AccDatabase

    .OpenCurrentDatabase mydata 
    .DoCmd.OpenTable myTable
    .DoCmd.Maximize
End With
Set myaccess = Nothing