如何在excel vba中使用CreateObject？-Java 学习之路

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

有一条消息错误“运行时错误'429'ActiveX组件无法创建对象”发生在Row - >设置myaccess = CreateObject（mydata）

有谁知道如何解决这个问题？非常感谢你

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

回复于 2024-05-18T20:13:24+08:00

如何在excel vba中使用CreateObject？

1 回答

相关问题