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類文件所在的目錄