Question

我正在尝试使用Excel VBA打开Access 2003 .mde文件。

到目前为止，我已经尝试过：

Shell ("cscript "C:\User\Folder\Access Database.mde""), vbHide

现在，这非常适合打开.vbs文件，代码运行以打开.mde文件但实际上并未打开数据库。

我也尝试了以下内容：

        strdb = "C:\User\Folder\Access Database.mde"
        Set AccessApp = CreateObject("Access.Application")
            AccessApp.Visible = True
                AccessApp.OpenCurrentDatabase.strdb
                    AccessApp.DoCmd.OpenForm "frmsysteminformation"
                        Set AccessApp= Nothing

我在网上找到了这个，但它给我一个调试错误突出显示这一行：

Set AccessApp = CreateObject("Access.Application")

由于

修改我的公司似乎已禁用某些功能

CreateObject("Outlook.Application")

也不起作用。有没有办法通过cscript运行它？

Answer 1

万一有人遇到同样的问题，我设法解决了这个问题：

Dim sAcc
Dim sFrontEnd
Dim sSec
Dim sUser
Dim objShellDb
Dim sComTxt

'Script Configuration Variable
'*******************************************************************************
'Specify the Fullpath and filename of the msaccess executable
sAcc = "C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE"
'Specify the Fullpath and filename of the database to launch
sFrontEnd = "C:\users\file location\Database to open.mde"

Set objShellDb = CreateObject("WScript.Shell")
'Build the command to launch the database
sComTxt = Chr(34) & sAcc & Chr(34) & " " & Chr(34) & sFrontEnd & Chr(34)

objShellDb.Run sComTxt 'Launch the database

End Sub

通过Excel VBA打开Access 2003 .mde文件

1 个答案: