如何在Excel中按住VB SCRIPT调用jar文件并按住屏幕

Question

我想在Excel中使用vb脚本调用Java jar文件。 我的文件格式为“ xlsm”，这是我的vb脚本代码。

当我执行代码时，控制台来来去去，我不写控制台上的内容。 请看一下代码

Public Function RunProgram( _
program As String, _
Optional command As String = "" _
) As WshExec
Dim wsh As New WshShell
Dim exec As WshExec
Dim oShell
Application.ScreenUpdating = False
Set exec = wsh.exec(program)
Call exec.StdIn.WriteLine(command)
 Set RunProgram = exec
'Application.ScreenUpdating = True
End Function
Public Function evenOdd1(Number As Double) As Double
Call Run
End Function

Public Sub Run()
Dim program As WshExec
Set program = RunProgram("java -jar G:\\excel\\MyTest.jar""Margus") 
'Debug.Print "STDOUT: " & program.StdOut.ReadAll
End Sub

我尝试了Application.ScreenUpdating，Application.visible来保存屏幕，但无法保存控制台。

Answer 1

当我执行代码时，控制台就来了，

您是说控制台窗口（基本上是cmd.exe ）在屏幕上弹出然后消失了吗？ 如果是这样，那么（a）您的命令存在问题（语法错误，找不到java等），因此系统在不运行您的命令的情况下立即退出； （b）系统运行了该命令，但是java不理解该命令的参数，并立即退出； 或（c）您的Java程序正常运行并立即退出（这不太可能-Java至少需要花费几百毫秒来加载）。

要确定是哪个问题，您可以尝试使用以下命令（而不是生成的命令）：

ping 1.1.1.1 -n 1 -w 5000

这将打开命令提示符（又名“控制台窗口”），尝试ping（无效）IP地址1.1.1.1 ，然后等待5秒钟以获取响应。 该命令在等待响应时应保持5秒钟的时间。

如果命令提示符确实停留了5秒钟，则表明您已确认问题是您要尝试运行的命令。 尝试将要运行的命令打印到VB控制台，然后在cmd.exe运行它，以查看出了什么问题。