将代码从 VBA 运行到 VBScript 回到 VBA

Question

我正在尝试找出一种方法来调用 VBScript 函数，在 Excel 中使用 vba，然后将值传递回 excel-vba。见下文

VBA 在 Excel 中

    Sub RunTest()
    Dim objString as String

    'Begin Pseudocode
    objString = Call VBScript Function Test()
    'End Pseudocode

    MsgBox objString `from VBS
    End Sub

VBScript

    Function Test
    Test = "Hello World"
    End Function

我知道这可能看起来很奇怪，因为我可以在 VBA 中编写函数，但是我们推出了一个 office 补丁，并且由于某种原因它完全杀死了我的一个宏的功能。奇怪的是，我可以在任何其他办公程序中运行完全相同的代码，只是不擅长。作为一种解决方法，我将导致 excel 崩溃的函数移动到 word 中，并使用 application.run 将其拉出，但我不想这样做，因为打开 word 应用程序来运行我的宏会减慢我的进程。

感谢您的帮助，谢谢

Answer 1

好吧，我觉得有点脏:)

这段代码有两个关键部分：

• vbs 使用GetObject 和完整的主机工作簿路径重新附加到包含VBA 的文件，该文件称为VBS
• VBS 将值添加到主机 VBA 文件中的特定工作表以触发 Worksheet_Change 事件触发，使用从 VBS 传递的字符串运行 VBA。

第 1 步：常规 Excel 代码模块

Sub VBA_to_VBS_to_VBA()
Shell "wscript c:\temp\myvbs.vbs", vbNormalFocus
End Sub

第 2 步：myvbs

Dim xlApp
Dim xlSht
On Error Resume Next
Set xlApp = GetObject("c:\temp\mybook.xlsx").Application
Set xlSht = xlApp.Sheets("vbs sheet")
On Error GoTo 0
If Not xlSht Is Nothing Then
xlSht.Range("A1").Value = "hello world"
Else
wscript.echo "sheet not found"
End If

第 3 步：vbs 表格在 Excel 文件中的表格代码

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox [a1].Value, vbCritical, "VBS insertion"
End Sub

Answer 2

尝试如下语法：

Sub Test()
    Shell "cscript c:\TestFolder\sample.vbs", vbNormalFocus
End Sub