Excel VBA रनटाइम त्रुटि 9 सबस्क्रिप्ट सीमा के बाहर है

Question

कार्यपुस्तिका को बंद करते समय मुझे मिल रहा है:

Run-time error 9 subscript out of range

यह VBA कोड है:

Set wbk = Workbooks.Open(path & filename)
  wbk.Sheets(sheetname).Range("b6").Resize(row_count, col_count).Copy
  ThisWorkbook.Sheets(sheetname).Range("b6").Resize(1, col_count).PasteSpecial xlPasteValues
wbk.close

क्या कोई मुझे इस त्रुटि से बाहर निकालने में मदद कर सकता है?

Comments

यह काम करेगा? google.co.in/...

— manjesh23

Answer 1

उस तरह की त्रुटि इंगित करती है कि आप एक गैर-मौजूद का संदर्भ दे रहे हैं सेल या रेंज । आपके मामले में मुझे लगता है कि समस्या बंद नहीं हो रही है, लेकिन इनमें से एक लाइन में:

  wbk.Sheets(sheetname).Range("b6").Resize(row_count, col_count).Copy
  ThisWorkbook.Sheets(sheetname).Range("b6").Resize(1, col_count).PasteSpecial xlPasteValues

सत्यापित करो कि sheetname, row_count तथा col_count एक वैध मूल्य होता है।

Answer 2

आप पेस्ट में ".Resize" विधि का उपयोग क्यों कर रहे हैं? जिस तरह से मैं यह देख रहा हूं कि आप 3x4 सेल कह सकते हैं और 1x4 सेल में पेस्ट कर सकते हैं। यह संभव नहीं है। पेस्ट को आकार दिए बिना प्रयास करें:

Set wbk = Workbooks.Open(path & filename)
  wbk.Sheets(sheetname).Range("b6").Resize(row_count, col_count).Copy
  ThisWorkbook.Sheets(sheetname).Range("b6").PasteSpecial xlPasteValues
wbk.close

मैंने अन्य पोस्ट में एक से अधिक वर्कशीट से डेटा कॉपी करने का तरीका देखा:

Public Sub CopyMultipleData()
    Dim ws  As Worksheet, LR1 As Long, LR2 As Long
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Master" Then
            LR1 = Sheets("Master").Range("A" & Rows.Count).End(xlUp).row + 1
            LR2 = ws.Range("D" & Rows.Count).End(xlUp).row
            ws.Range("A1:J" & LR2).Copy Destination:=Sheets("Master").Range("A" & LR1)
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

Comments

मुझे कई शीटों से डेटा को कॉपी करने और एक ही शीट में पेस्ट करने की आवश्यकता है।

— user578784

केवल कुछ कार्यपुस्तिकाओं के लिए रनटाइम त्रुटि हो रही कोड iam चलाते समय, बाकी सभी कार्यपुस्तिकाएं सही ढंग से बंद हो रही हैं।

— user578784

पोस्ट को अपडेट किया

— Shai Alon

और आप मानते हैं कि आप नहीं जानते कि प्रत्येक कार्यपुस्तिका में कितना डेटा है?

— Shai Alon

प्रत्येक कार्य पुस्तिका में चार पत्रक होते हैं और हम यह नहीं जानते हैं कि हमें किस शीट के तहत डेटा और कितनी पंक्तियाँ मिलेंगी।

— user578784