Microsoft Excel Macro para ejecutar el programa Java

Question

He aprendido a leer y escribir un archivo Excel usando un programa Java con la ayuda de Jxl y POI API. ¿Es posible ejecutar un programa Java con la ayuda de macros?

Answer 1

Sí, es posible.

De hecho, existen muchas maneras y espero que te gusten mis ejemplos.

Para demostrar esto, creo un programa donde se envía un poco de texto como argumentos y el programa responde con una versión alterada del mismo. Hice un bote ejecutable. El primer ejemplo lee el argumento de args y otro de la entrada estándar.

Archivo Hello.java y 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()); 
    } 
} 

Archivo Hello2.java y 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()); 
    } 
} 

puede guardarlos en una solo jar, pero luego necesitas crear y use a manifest (eso es un poco exagerado).

Ahora, en Excel, agrego un módulo y una referencia al Objeto de host de Windows Script. Si no te gusta el sleep, a continuación, se puede reemplazar con 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 

Y para probarlo me salvó los archivos a c:\ unidad y utiliza el código:

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 

En mi caso obtener una respuesta de:

STDOUT: Hola Margus.

STDOUT: Hola Margus.

Si has encontrado este útil, no se olvide de upvote: D

Answer 2

Su VBA puede escribir la salida en un archivo y Java puede sondear periódicamente las modificaciones de archivos y leer desde el archivo. Y vuelva a escribir los datos en VBA a través de otro archivo. VBA: la integración con Java es casi imposible, a menos que solo desee activar un programa Java desde el shell a través de System.execute (...).

Answer 3

Lo he utilizado .. Atención, utiliza javaw otra manera una ventana negro está surgiendo

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