Excel में एम्बेड EXE फ़ाइल फ़ाइल

Question

मैं का उपयोग करें:

retVal = Shell("program.EXE " & filename, vbNormalFocus) 

मेरी एक्सेल स्प्रेडशीट के लिए एक कार्यक्रम की जरूरत पर अमल करने के लिए।

एक्सेल फ़ाइल में EXE फ़ाइल को एम्बेड करना संभव है?

और फिर मैं इसे कैसे निष्पादित करूं?

ideias:

1 - एक bin2str समारोह के कुछ प्रकार स्ट्रिंग (तो मैं और एक चर के रूप में कार्यक्रम में यह स्टोर कर सकते हैं एक str2bin (विपरीत)

को बाइनरी चालू करने के लिए 2 - मैं कुछ पढ़ा के बारे में OLE नियंत्रण (आप इसे वहाँ एम्बेड कर सकते हैं), लेकिन मैं वास्तव में जहां यह एक

Answer 1

पर शुरू करने के लिए यहाँ एक रूपरेखा समाधान है कि OLE से बचा जाता है नहीं जानता:

1. एक छिपी वर्कशीट बनाएं।
2. exe ​​को टेक्स्ट में कनवर्ट करने के लिए एन्कोड किए गए बेस 64 का उपयोग करें।
3. छुपा कार्यपत्रक पर वर्कशीट कोशिकाओं में वह टेक्स्ट स्टोर करें। चूंकि किसी सेल (32,767) में वर्णों की संख्या पर एक सीमा है, इसलिए आपको स्ट्रिंग को स्ट्रंक में तोड़ने की आवश्यकता होगी।

स्पष्ट रूप से आपको इस प्रक्रिया को उलटना होगा जब आप exe फ़ाइल को सहेजना और निष्पादित करना चाहते हैं।

Answer 2

आप इसका उपयोग करके ऐसा कर सकते हैं: ऑब्जेक्ट डालें और फिर 'फ़ाइल से बनाएं' का चयन करें।

अपने चादर में जोड़ने के लिए का उपयोग कर VBA:

Dim o As OLEObject 
Set o = ActiveSheet.OLEObjects.Add(Filename:="C:\program.exe") 

तो इस आदेश program.exe निष्पादित करने के लिए है:

o.Verb Verb:=xlPrimary 

सुनिश्चित नहीं हैं कि यह करने के लिए तर्क पारित करने के लिए हालांकि, (उदाहरण के लिए आपका filename)।

नोट: अविश्वसनीय अनुप्रयोग जब आप उन्हें चलाते हैं तो एक चेतावनी संकेत देते हैं।