gpt4 book ai didi

excel - 如何在 VBA 中将字符串作为命令运行

转载 作者:行者123 更新时间:2023-12-02 01:16:19 24 4
gpt4 key购买 nike

我有下面这个简单的 VBA 代码,但我不知道为什么不起作用。

Sub Run()
test = "MsgBox" & """" & "Job Done!" & """"
Application.Run test
End Sub

我想要做的是将 VBA 命令作为文本放入变量中并将其作为命令运行。在这种情况下,我想像 MsgBox "Job Done!" 一样运行并打印:

Job Done!

最佳答案

您可能会想添加自己的字符串“执行器”:

Sub StringExecute(s As String)
Dim vbComp As Object
Set vbComp = ThisWorkbook.VBProject.VBComponents.Add(1)
vbComp.CodeModule.AddFromString "Sub foo()" & vbCrLf & s & vbCrLf & "End Sub"
Application.Run vbComp.name & ".foo"
ThisWorkbook.VBProject.VBComponents.Remove vbComp
End Sub

Sub Testing()
StringExecute "MsgBox" & """" & "Job Done!" & """"
End Sub

关于excel - 如何在 VBA 中将字符串作为命令运行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43216390/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com