मैं विभिन्न वर्कबुक से डेटा लेना चाहता हूं (जिसमें समान संरचना हो) और सक्रिय वर्कबुक में प्राप्त डेटा को कॉपी और पेस्ट करने के लिए एक लूप बनाएं। मैंने यह कोशिश की, लेकिन यह काम नहीं करता है।
Sub loopMacro()
Dim Wb1 As Workbook, Wb2 As Workbook, Wb3 As Workbook
Dim MainBook As Workbook
"Open all workbooks:
Set Wb1 = Workbooks.Open("D:VBAfile1.xlsx")
Set Wb2 = Workbooks.Open("D:VBAfile2.xlsx")
Set Wb3 = Workbooks.Open("D:VBAfile3.xlsx")
Set MainBook = ThisWorkbook
For i = 1 To 3
For j = A To C
WB(i).Sheets("sheet1").Range("E4").Copy
MainBook.Sheets("DATA").Range(j & "1").PasteSpecial
WB(i).Sheets("sheet1").Range("E5").Copy
MainBook.Sheets("DATA").Range(j & "2").PasteSpecial
Next j
Next i
MainBook.Save
MainBook.Close End Sub
मूल रूप से मैक्रो से डेटा लेना चाहिएशीट 1 - Wb1, Wb2, Wb3 ... की E4 और E5 कोशिकाएं और सक्रिय कार्यपुस्तिका (कोशिकाओं A1 और A2) में Wb1 के डेटा को प्रिंट करें, कोशिकाओं B1 और B2 में Wb2 का डेटा, कोशिकाओं C1 में Wb3 का डेटा और सी 2। कोई मदद कर सकता है?
उत्तर:
जवाब के लिए 0 № 1आपकी समस्या यह है कि WB (i) Wb1, Wb2 आदि में परिणाम नहीं करता है।
बदलो for i साथ में
For Each wb In Array(Wb1, Wb2, Wb3)
और फिर सब wb(i) साथ में wb