用於運行Java程序的Microsoft Excel宏

Question

我學會了在Jxl和POI API的幫助下使用Java程序讀取和寫入Excel文件。是否可以在宏的幫助下運行Java程序？

Answer 1

是的，這是可能的。

實際上有很多方法，我希望你喜歡我的例子。

爲了演示這一點，我創建了一個程序，其中一些文本作爲參數發送，程序以它的更改版本作爲響應。我做了一個可運行的jar。第一個示例從args和標準輸入中讀取其他參數。

文件Hello.java和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()); 
    } 
} 

文件Hello2.java和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()); 
    } 
} 

你可以將它們保存在一個單罐，但你需要創建和use a manifest（這有點矯枉過正）。

現在在Excel中，我添加了一個模塊和對Windows Script Host Object的引用。如果你不喜歡sleep，那麼你就可以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 

，並測試它，我將文件保存到c:\驅動器所使用的代碼：

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 

在我來說，我得到一個迴應：

STDOUT：你好瑪格斯。

STDOUT：你好瑪格斯。

如果你發現這個有用的，別忘了給予好評：d

Answer 2

您的VBA可以將輸出寫入文件，Java可以定期輪詢文件修改並從文件讀取。並通過另一個文件將數據寫回VBA。 VBA - Java集成幾乎是不可能的，除非您只想通過System.execute（...）從shell中啓動Java程序。

Answer 3

我用它..請注意，使用javaw進程，否則黑窗口彈出

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