VB SCRIPT를 사용하여 jar 파일을 호출하는 방법 Excel에서 화면 유지

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 프로그램이 제대로 실행되고 즉시 종료됩니다 (자바가로드되는 데 최소한 수백 밀리 초가 소요됨).

가 문제인지를 결정하기 위해 당신이 사용하려고 수 (대신이 발생하든의) 명령과 같은 :

명령 프롬프트 (일명 "콘솔 창을")가 열립니다

ping 1.1.1.1 -n 1 -w 5000 

, (유효하지 않은) IP 주소 1.1.1.1을 핑 (ping)하고 5 초 동안 응답을 기다리십시오. 명령은 응답을 기다리는 동안 5 초 동안 계속 있어야합니다.

명령 프롬프트에이 5 초 동안 계속 나타나면 실행하려는 명령이 문제인지 확인한 것입니다. 실행하려고하는 명령을 VB 콘솔에 인쇄하고 cmd.exe에서 실행하여 문제가 무엇인지 확인하십시오.