जावा प्रोग्राम चलाने के लिए माइक्रोसॉफ्ट एक्सेल मैक्रो

Question

मैंने जेएक्सएल और पीओआई एपीआई की सहायता से जावा प्रोग्राम का उपयोग करके एक्सेल फ़ाइल को पढ़ और लिखना सीखा है। मैक्रोज़ की मदद से जावा प्रोग्राम चलाने के लिए संभव है?

Answer 1

हां, यह संभव है।

वास्तव में कुछ तरीके हैं और मुझे उम्मीद है कि आप मेरे उदाहरण पसंद करेंगे।

इस प्रदर्शन करने के लिए, मैं एक कार्यक्रम है जहाँ कुछ पाठ यह के परिवर्तित संस्करण के साथ प्रतिक्रिया करता है तर्कों और कार्यक्रम के रूप में भेज रहा है बनाएँ। मैंने इसका एक चलने वाला जार बनाया। पहला उदाहरण तर्क से तर्क और मानक इनपुट से अन्य को पढ़ता है।

फ़ाइल 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()); 
    } 
} 

आप उन्हें एक में बचा सकता है एकल जार, लेकिन फिर आपको बनाने की आवश्यकता है और use a manifest (यह थोड़ा अधिक है)।

अब एक्सेल में मैं एक मॉड्यूल और विंडोज स्क्रिप्ट होस्ट ऑब्जेक्ट का संदर्भ जोड़ता हूं। आप 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 

मेरे मामले मैं में

STDOUT:: नमस्ते Margus की एक प्रतिक्रिया मिलता है।

STDOUT: हैलो मार्गस।

आप पाया अगर यह उपयोगी है, मत भूलना वोट दें करने के लिए: डी

Answer 2

आपका VBA एक फाइल करने के लिए उत्पादन में लिख सकते हैं और जावा फ़ाइल संशोधन के लिए समय-समय पर मतदान और फ़ाइल से पढ़ सकते हैं। और डेटा को दूसरी फ़ाइल के माध्यम से वीबीए में वापस लिखें। वीबीए - जावा एकीकरण असंभव के बगल में है जब तक कि आप सिर्फ system.execute (...) के माध्यम से खोल से जावा प्रोग्राम को आग नहीं करना चाहते हैं।

Answer 3

मैं इसे का उपयोग किया है .. ध्यान दें, javaw का उपयोग अन्यथा एक काले रंग की खिड़की

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