एक्सेल वीबीए मैक्रो

Question

से .bat फ़ाइल निष्पादित करें मुझे अपने एक्सेल वीबीए मैक्रो के साथ कोई समस्या है। मुझे बैच फ़ाइल निष्पादित करने की आवश्यकता है जो एक्सेल कार्यपुस्तिका के समान फ़ोल्डर में है। कोड कभी-कभी अच्छी तरह से काम करता है। मुझे नहीं पता कि त्रुटि क्या हो रही है। यहां कोड है:

Sub writebatch() 
    Sheets("code").Select 
    Application.DisplayAlerts = False 
    ActiveWorkbook.SaveAs FileName:=ThisWorkbook.path & "\code.bat", 
    FileFormat:=xlTextPrinter, CreateBackup:=False 
    Application.DisplayAlerts = True 
    ThisWorkbook.Saved = True 
    Shell "cmd.exe /k cd " & ThisWorkbook.path & "&&code.bat" 
    Application.Quit 
End Sub 

यह बैच फ़ाइल लिखता है, लेकिन फिर इसे निष्पादित नहीं करता है। केवल एक बार जब मुझे कमांड विंडो बंद नहीं हुई और उसने कहा कि code.bat फ़ाइल नहीं मिल सका। तो बदले गए कमांड ने काम किया। क्या cmd.exe को चलाने के लिए संभव है और code.bat को बदले बिना सापेक्ष पथ के साथ चलाएं?

Answer 1

सबसे पहले, जब आप एक अध्यक्ष एवं प्रबंध निदेशक उदाहरण लांच आप पूरे सीएमडी तर्क संलग्न करने की अगर आप ऑपरेटरों के किसी भी प्रकार के (&) का उपयोग की जरूरत है तर्क, इस तरह:

:

CMD /K "command "path with spaces" & command" 

तो तुम कुछ इस तरह करने की जरूरत है

नोटिस मैंने उद्धरण से बचने के लिए "" प्रयोग किया है, लेकिन मुझे वीबीए में उद्धरण से बचने का तरीका नहीं पता है।

पीएस: यदि आपके पास रिक्त स्थान हैं, तो code.bat को भी संलग्न करना याद रखें, लेकिन केवल तभी यदि आपके पास रिक्त स्थान हैं।

Answer 2

मैं बहुत यकीन है कि समस्या इस लाइन

Shell "cmd.exe /k cd " & ThisWorkbook.path & "&&code.bat" 

आप && के सामने एक जगह की जरूरत cd आदेश से अलग करने के लिए करने के लिए नीचे है और यह code.bat से अलग करने के बाद कर रहा हूँ।

CMD /K "command1 & command2" 

और फिर उप आंतरिक संलग्न:

Shell "cmd.exe /k cd " & ThisWorkbook.path & " && code.bat" 

Answer 3

शैल "cmd.exe/k सीडी/डी" & ThisWorkbook.path & "& & code.bat"

यहाँ

,/डी cmd में खुलेगा दस्तावेज़ फ़ोल्डर के बिना। डी/डी में यह डी ड्राइव में खुल जाएगा, आप इसे अपने आसान के अनुसार बदल सकते हैं। एक उद्धरण (") को सम्मिलित करने के

Answer 4

एक ही रास्ता()