VBS 脚本在 Access 数据库中不起作用

Question

我需要一些关于我正在处理的数据库的帮助。该数据库是一个非常基本的界面，通过单击侧面的不同命令按钮来运行许多功能。这些命令相当简单，但我不擅长使用 VBS/VBA。在我开始在这里工作之前，其他人建立了数据库！

我编写了一个 Powershell 脚本，它可以将数据过滤和排序到更易读的列表中。因为我比 Visual Basic 稍微熟悉它，所以我只想保留该脚本并使用 VB 通过 Access 运行它。该脚本工作正常，但我试图将它作为另一个可点击的“命令按钮”添加到数据库中。我必须运行 PS 脚本的 VBS 脚本是：

Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run("powershell.exe -noexit P:\TestScripts\runtest.ps1")

同样，这段代码运行良好，它打开 Powershell 命令行，提示用户输入信息并运行脚本。当我将它作为“事件过程”​​添加到 Access 时（在命令按钮的属性表中，我将“单击时”设置为“事件过程”​​，因此我可以添加 VBS 代码）然后在数据库中工作，有当我按下该命令时没有响应。我需要更改我的 VBS 脚本吗？我假设 VBS 和 VBA 之间的运行命令没有太大区别。 Access 中的代码如下所示：

Private Sub Command58_Click()

Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run ("powershell.exe -noexit P:\TestScripts\runtest.ps1")

End Sub

抱歉，我只是想尝试提供尽可能多的信息！我会很感激任何帮助。很可能有一个简单的解决方案来解决所有这些问题，但我缺乏经验肯定会让我退缩！谢谢。

-J

Answer 1

这是最令人费解的。首先你创建一个 PS 脚本，然后你创建一个 VB 脚本来调用 Powershell 来运行 PS 脚本——现在你想运行 VBA 来运行 VB 脚本来运行你的 PS 脚本。

您错过的是使用 C# 运行一个程序，该程序使用自动化打开 Access 以运行 VBA 来调用您的嵌套脚本。

使用 VBA 的 Shell 命令调用 PS 并运行 PS 脚本，或者 - 更好的是 - 花一点时间将 PS 脚本转换为 VBA。

Answer 2

WScript 对象在 Access 下不可用（它由 w|cscript.exe 脚本宿主提供）。所以用

Private Sub Command58_Click()
  Set objShell = CreateObject("Wscript.Shell")
  objShell.Run ("powershell.exe -noexit P:\TestScripts\runtest.ps1")
End Sub

见here。