Javaプログラムを実行するMicrosoft Excelマクロ

Question

JxlとPOI APIの助けを借りてJavaプログラムを使用してExcelファイルを読み書きする方法を学びました。マクロの助けを借りてJavaプログラムを実行することは可能ですか？

Answer 1

はい、可能です。

実際にはかなりの方法があり、私の例が好きであれば幸いです。

これを実証するために、いくつかのテキストが引数として送信され、プログラムが変更されたバージョンで応答するプログラムを作成します。私はそれを実行可能な瓶を作った。最初の例は、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()); 
    } 
} 

あなたがそれらを保存することができます単一のjarですが、次に作成する必要があります。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 

I応答を得る：

STDOUT：こんにちはMargus。

STDOUT：こんにちはMargus。

あなたはこれが有用であることが判明した場合、upvoteすることを忘れないでください：私はそれを使用しましたD

Answer 2

VBAは出力をファイルに書き込むことができ、Javaはファイルの変更を定期的にポーリングしてファイルから読み込むことができます。また、別のファイルを介してVBAにデータを書き戻します。 VBA - Javaの統合は、シェルからSystem.execute（...）を介してJavaプログラムを起動しない限り不可能です。

Answer 3

は...注意、それ以外の場合は黒いウィンドウがこの

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