मेरे पास एक फ़ाइल है जिसे newcurl.batवर्तमान निर्देशिका के अंदर बैठे कहा जाता है कि मेरी एक्सेल फ़ाइल है
मैं इस फ़ाइल को चलाने के लिए excelVBA चाहता हूं
मैंने कोशिश की:
Shell "cmd.exe /k ""cd " & """ & ThisWorkbook.path & """ & " newcurl.bat"""
लेकिन यह केवल वर्तमान फ़ोल्डर पथ के लिए सीडी है, लेकिन newcurl.batफ़ाइल को भौतिक रूप से नहीं चलाता है
जवाबों:
मैंने इसे समाप्त करने की योजना बनाई।
मेरे पास एक व्यक्तिगत .xbb मैक्रोबुक thisworkbook.pathथा इसलिए गलत वर्कबुक का संदर्भ दे रहा था ।
मैंने यह करने के बजाय समाप्त किया:
Dim folderPath As String
Dim shellCommand As String
folderPath = Application.ActiveWorkbook.Path
shellCommand = """" & folderPath & "\" & "newcurl.bat" & """"
Call Shell(shellCommand, vbNormalFocus)
आपने दोहरे उद्धरणों को गड़बड़ कर दिया - ThisWorkbook.pathवस्तुतः कमांड में उपयोग किया जाता है।
यदि आप कमांड को कंसोल पर प्रिंट करते हैं, तो आप खुद देख सकते हैं:
Dim strCommand As String
strCommand = "cmd.exe /k ""cd " & """ & ThisWorkbook.path & """ & " newcurl.bat"""
Debug.Print strCommand
Shell strCommand