मैं वर्कबुक के साथ कुछ वर्कबुक लोड करने का प्रयास कर रहा हूं। ओपन और हर मामले में, मुझे "रनटाइम एरर '424': ऑब्जेक्ट आवश्यक" मिलता है।

अपमानजनक कोड है:

Const path As String = "\\networkpath\data\"

Sub LoadReports()
Dim date_ext As String
date_ext = "_" & Format(Date, "yyyy-mm-dd") & ".xlsm"

Workbook.Open path & "ReportX" & date_ext   ' This is where the runtime error occurs
End Sub

यदि दिनांक 7/14/2017 है, तो पथ और फ़ाइल नाम "\\networkpath\data\ReportX_2017-07-14.xlsm" को हल करना चाहिए।

जब मैं कार्यपुस्तिका पर टिप्पणी करता हूं। पूर्ण मैक्रो चलाने से पहले फ़ाइलें खोलें और मैन्युअल रूप से खोलें, सब कुछ ठीक काम करता है। इससे भी अधिक हैरान करने वाली बात यह है कि अन्य कार्यपुस्तिकाओं में अन्य मैक्रोज़ में, ठीक वही कोड ठीक काम करता है। जब मैंने रनटाइम त्रुटि 424 और/या वर्कबुक की खोज की। ओपन, मुझे कुछ भी नहीं मिला जो मुझे पहले से नहीं पता था, जैसे कि फ़ाइल नाम पैरामीटर एक स्ट्रिंग की तलाश में है जिसमें पथ शामिल है। मुझे यकीन नहीं है कि यहाँ क्या गलत है। किसी भी मदद की सराहना की जाती है, धन्यवाद!

-1
Turkish 14 जुलाई 2017, 22:29
Workbooks.Open, Workbook.Open नहीं
 – 
YowE3K
14 जुलाई 2017, 22:32

1 उत्तर

सबसे बढ़िया उत्तर

सर्वर पर एक परीक्षण कार्यपुस्तिका डालकर प्रारंभ करें। इसे नाम दें abc123.xlsm

फिर इसे आजमाएं

Sub testLoadReport()
    Workbooks.Open "\\networkpath\data\abc123.xlsm"
End Sub
1
jsotola 15 जुलाई 2017, 00:31
यह प्रश्न का उत्तर नहीं देता है। यह सिर्फ दिखाता है कि टाइपो को ठीक करने से यह काम करेगा, लेकिन आप यह उल्लेख नहीं करते कि टाइपो समस्या है। और टाइपो के कारण होने वाले प्रश्न SO पर ऑफ-टॉपिक हैं ("यह प्रश्न एक ऐसी समस्या के कारण हुआ था जिसे अब पुन: प्रस्तुत नहीं किया जा सकता है या एक साधारण टाइपोग्राफ़िकल त्रुटि है।") इसलिए उत्तर पोस्ट करने की कोई वास्तविक आवश्यकता नहीं है - बस टाइपो को इंगित करें एक टिप्पणी।
 – 
YowE3K
15 जुलाई 2017, 02:50
मुझे नहीं पता कि यह टाइपो है जो समस्या का कारण बनता है। वास्तविक समस्या क्या हो सकती है, यह जानने का प्रयास करने से पहले इस कोड स्निपेट को यह पुष्टि करनी चाहिए कि क्या कोई फ़ाइल वास्तव में उस निर्देशिका में पहुंच योग्य है। मैं @Turkish को सलाह देने की भी कोशिश कर रहा हूं कि समान परिस्थितियों में क्या करना है। (यानी संदिग्ध पूल से जितना संभव हो उतना कोड हटा दें)
 – 
jsotola
15 जुलाई 2017, 04:51
टाइपो के कारण "Runtime Error '424': Object Required" और उस लाइन पर कोई ऑब्जेक्ट नहीं होने के कारण, मैं आपको गारंटी दे सकता हूं कि यह त्रुटि उत्पन्न करने वाला टाइपो है
 – 
YowE3K
15 जुलाई 2017, 05:21
धन्यवाद, यह टाइपो था और मैं इसे याद करने के लिए एक बेवकूफ की तरह महसूस करता हूं ... मैंने सचमुच 2 घंटे दीवार के खिलाफ अपने सिर को कोसते हुए बिताए ... एक टाइपो के लिए!
 – 
Turkish
18 जुलाई 2017, 23:52
मेरा सुझाव है कि आप इस प्रश्न को हटा दें - टाइपो के कारण होने वाली त्रुटियां स्टैक ओवरफ्लो पर ऑफ-टॉपिक हैं
 – 
YowE3K
19 जुलाई 2017, 01:17