如何在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運行它，以查看出了什么問題。