excel中vba调用java程序并获取返回值

在工作中，为提高excel处理效率会写一些vba宏，有时还需要调用外部java程序（比如访问webservice接口的java程序），下面的事例可做参考

一、编写简单的java调试程序

public class a
{
public static void main(String[] args)
{
System.out.println("aaaaa");
}
}

二、在excel中编写vba调试函数

Sub 按钮1_Click()
    Dim oShell As Object, oExec As Object
    Dim ShellAndWait As String
    Set oShell = CreateObject("WScript.Shell")
    Set oExec = oShell.Exec("java a")
    ShellAndWait = oExec.StdOut.ReadAll
    MsgBox (ShellAndWait)
    Set oShell = Nothing
    Set oExec = Nothing
End Sub

三、注意事项

1、需要设置系统classpath环境变量到java类文件所在的目录