Microsoft Excel Macro运行Java程序

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中，但是随后需要创建并使用清单（这有点过分杀伤）。

现在，在Excel中，我添加一个模块和对Windows脚本宿主对象的引用。如果您不喜欢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

就我而言，我收到了以下回复：

标准输出：你好玛格斯。

标准输出：你好玛格斯。