Macro Microsoft Excel để chạy chương trình Java

Question

Tôi đã học cách đọc và viết một tệp Excel bằng cách sử dụng một chương trình Java với sự trợ giúp của API Jxl và POI. Có thể chạy một chương trình Java với sự trợ giúp của các macro không?

Answer 1

Có, điều đó là có thể.

Có một vài cách thực sự và tôi hy vọng bạn thích ví dụ của tôi.

Để chứng minh điều này, tôi tạo một chương trình trong đó một số văn bản được gửi dưới dạng đối số và chương trình phản hồi bằng phiên bản thay đổi của nó. Tôi đã làm một cái lọ runnable của nó. Ví dụ đầu tiên đọc đối số từ args và khác từ đầu vào tiêu chuẩn.

file Hello.java và H1.jar:

public class Hello { 
    public static void main(String[] args) { 
     StringBuilder sb = new StringBuilder("Hello"); 

     if (args.length > 0) 
      sb.append(' ').append(args[0]); 
     System.out.println(sb.append('.').toString()); 
    } 
} 

file Hello2.java và H2.jar:

import java.util.Scanner; 

public class Hello2 { 
    public static void main(String[] args) { 
     Scanner sc = new Scanner(System.in); 
     StringBuilder sb = new StringBuilder("Hello"); 

     sb.append(' ').append(sc.nextLine()); 
     System.out.println(sb.append('.').toString()); 
    } 
} 

Bạn có thể lưu chúng trong một lọ duy nhất, nhưng sau đó bạn cần tạo và use a manifest (đó là một chút quá mức cần thiết).

Bây giờ trong Excel tôi thêm một mô-đun và tham chiếu đến đối tượng lưu trữ Windows Script. Nếu bạn không thích những sleep, sau đó bạn có thể thay thế nó với DoEvents:

'add a reference to Windows Script Host Object Model 
'for example : Tools-References 
Option Explicit 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

Private Sub RunSleep(_ 
    exec As WshExec, _ 
    Optional timeSegment As Long = 20 _ 
) 
    Do While exec.Status = WshRunning 
     Sleep timeSegment 
    Loop 
End Sub 

Private Function RunProgram(_ 
    program As String, _ 
    Optional command As String = "" _ 
) As WshExec 
    Dim wsh As New WshShell 
    Dim exec As WshExec 

    Set exec = wsh.exec(program) 
    Call exec.StdIn.WriteLine(command) 
    Call RunSleep(exec) 
    Set RunProgram = exec 
End Function 

Và để kiểm tra nó tôi đã lưu các tập tin vào c:\ ổ đĩa và sử dụng mã:

Public Sub Run() 
    Dim program As WshExec 
    Set program = RunProgram("java -jar ""C:\\H1.jar"" Margus") 
    Debug.Print "STDOUT: " & program.StdOut.ReadAll 

    Set program = RunProgram("java -jar ""C:\\H2.jar", "Margus") 
    Debug.Print "STDOUT: " & program.StdOut.ReadAll 
End Sub 

Trong trường hợp của tôi, tôi nhận được phản hồi:

STDOUT: Xin chào Margus.

STDOUT: Xin chào Margus.

Nếu bạn thấy điều này hữu ích, đừng quên upvote: D

Answer 2

VBA của bạn có thể ghi đầu ra vào một tệp và Java có thể thăm dò ý kiến ​​để sửa đổi tệp định kỳ và đọc từ tệp. Và ghi dữ liệu trở lại VBA thông qua một tệp khác. VBA - Tích hợp Java là bên cạnh không thể trừ khi bạn chỉ muốn kích hoạt một chương trình Java từ trình bao thông qua System.execute (...).

Answer 3

tôi đã sử dụng nó .. Chú ý, sử dụng javaw khác một cửa sổ đen popping lên

Dim result As String 
Dim commandstr As String 

commandstr = "javaw -jar somejar someparameter" 


' try with or without cast to string 
result = CStr(shellRun(commandstr)) 


'somewhere from SO but forget.. sorry for missing credits 

Public Function ShellRun(sCmd As String) As String 

    'Run a shell command, returning the output as a string' 

    Dim oShell As Object 
    Set oShell = CreateObject("WScript.Shell") 

    'run command' 
    Dim oExec As Object 
    Dim oOutput As Object 
    Set oExec = oShell.exec(sCmd) 
    Set oOutput = oExec.StdOut 

    'handle the results as they are written to and read from the StdOut object' 
    Dim s As String 
    Dim sLine As String 
    While Not oOutput.AtEndOfStream 
     sLine = oOutput.ReadLine 
     If sLine <> "" Then s = s & sLine & vbCrLf 
    Wend 

    ShellRun = s 

End Function