ShellExecute可以在Vba中发送类似于Shell的命令吗

Question

我在一个宏中有这个 Shell 调用，当 Excel 单元格选择更改时，它会被触发。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A2000")) Is Nothing Then
Shell "C:\Program Files\CTrading\QuantShare\QuantShare.exe TaskManager ChangeSymbol newsymbol:" & ActiveCell.Value, 1
Cancel = True
End If
End Sub

但是 Shell 调用不适用于我系统中的某些程序（Windows 10 Pro，版本 1909，Build 18363.476，MS Office 2013 和 Office 365）。 大多数情况下，Windows 10 问题无法解决。 我可以使用 ShellExecute 来实现吗？ 还是 ShellExecute 仅用于打开具有特定 exe 的文件而无法在目标程序中发送其他命令？

基本上，此代码进入当前打开的 Quantshare.exe 实例 ---> 激活其中名为 TaskManager 的插件并执行名为 ChangeSymbol 的脚本。 该脚本中的一个变量采用活动 Excel 单元格的内容。 在 Windows Run 或 CMD 中，它会执行一切。

Answer 1

最后，我可以按如下方式使用 ShellExecute：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A2000")) Is Nothing Then
Set objShell = CreateObject("Shell.Application")
para = "TaskManager ChangeSymbol newsymbol:" & ActiveCell.Value
objShell.ShellExecute "C:\Program Files\CTrading\QuantShare\QuantShare.exe", para, "", "open", 1
Set objShell = Nothing
Cancel = True
End If
End Sub

我可以让 ShellExecute 不打开程序的新实例，而是激活当前打开的实例并传递参数（类似于 Shell）？ 还有如何让 ShellExecute 不关注焦点？ 我希望焦点留在或回到 Excel 中。