एक विशिष्ट फ़ोल्डर में एक विशिष्ट फ़ाइल खोलें, एक विशिष्ट शीट के साथ

Question

नीचे दिया गया कोड एक विशिष्ट फ़ोल्डर में एक विशिष्ट फ़ाइल खोलता है, लेकिन एक विशिष्ट शीट नहीं:

Sub test() 
  Dim myfile As String           
  myfile = Cells(1, 1).Value & Cells(1, 2).Value & Cells(1, 3).Value           
  Application.Workbooks.Open Filename:=myfile          
End Sub 

कोड कैसे काम करता है:

• सेल A1 में पथ का उल्लेख करें D:\My Data/
• सेल B1 में उप-निर्देशिका का उल्लेख करें Kitchen/
• सेल C1 में फ़ाइल नाम का उल्लेख करें Test.xls

जब मैक्रो चलाया जाता है, तो यह निर्दिष्ट शीट, यानी वर्कशीट-टेस्ट खोलता है।

उपरोक्त कोड के लिए मुझे एक और अतिरिक्त की आवश्यकता है जिसमें यदि D1 में एक शीटनाम निर्दिष्ट किया गया है Examples मैक्रो को वर्कशीट टेस्ट खोलना चाहिए और शीटनाम उदाहरणों पर जाना चाहिए।

Comments

यह एक्सेल या ओपनऑफ़िस के लिए है या कुछ और है?

— user 99572 is fine

@ user99572isfine एक्सेल

— Bimmy

Answer 1

Workbook.Open शीटनाम निर्दिष्ट करने के लिए समर्थन नहीं करता है।

आपको करना होगा अपनी चादर पर स्विच करें के साथ मैन्युअल रूप से Workbooks.Sheets("Sheet1").Activate

Sub test()

    Dim myFilePath As String
    Dim myWorkbook As Workbook

    myFilePath = Cells(1, 1).Value & Cells(1, 2).Value & Cells(1, 3).Value
    mySheetname = Cells(1, 4).Value

    Set myWorkbook = Application.Workbooks.Open(Filename:=myFilePath)
    On Error Resume Next
    myWorkbook.Sheets(Cstr(mySheetname)).Activate
    On Error GoTo 0

End Sub

या छोटा कर दिया

Sub test()
    Set myWorkbook = Application.Workbooks.Open(Filename:=[A1] & [B1] & [C1])
    On Error Resume Next
    myWorkbook.Sheets(Cstr([D1])).Activate
    On Error GoTo 0
End Sub

Comments

सबसे पहले मुझे कहना है कि आप धन्यवाद। छोटा कोड चाल करता है, यदि D1 में पाठ या अल्फ़ान्यूमेरिक्स में प्रवेश किया जाता है, तो यह काम करता है, हालाँकि यदि संख्या दर्ज की जाती है तो यह आवश्यक कार्यपुस्तिका n शीट को खोलता है लेकिन मुझे एक पॉप-अप मिलता है - सबस्क्रिप्शन आउट ऑफ़ रेंज..इसके अलावा अगर कुछ भी उल्लेखित नहीं है डी 1 यह अभी भी किसी पॉप-अप संदेश के बिना निर्दिष्ट कार्यपुस्तिका को खोलना चाहिए। आपकी सहायता के लिए आभारी रहें।

— Bimmy

संपादित कोड काम करता है - THANKS - जैसा कि पहले उल्लेख किया गया है, यदि D1 को खाली छोड़ दिया जाता है, तो मुझे अभी भी पॉप-अप सबस्क्रिप्ट मिलती है। कुछ ऐसा किया जा सकता है (Pls मुझ पर मत छोड़ो) मैक्रो को आवश्यक कार्यपुस्तिका भी खोलनी चाहिए यदि D1 भरा हुआ है या खाली है

— Bimmy

ठीक वही जो मेरे द्वारा खोजा जा रहा था। मेरे सभी प्रश्नों का उत्तर देने के लिए धैर्य रखने के लिए धन्यवाद। अलग से सवाल पूछने के बारे में नहीं।

— Bimmy

@ बिम्मी नमस्ते बिम्मी। यदि यह उत्तर आपके प्रारंभिक प्रश्न को हल करता है, तो कृपया इसे स्वीकृत (हरा चेक मार्क) के रूप में चिह्नित करें या इसे आगे बढ़ाएं ताकि प्रश्न भविष्य में मुख्य पृष्ठ पर न टकराए।

— nixda