दिलचस्प पोस्ट
जुड़ा हुआ नोड के ग्राफ़ का प्रतिनिधित्व करने वाले पेड़ को कैसे खींचना है? विज़ुअल स्टूडियो के साथ गिट का इस्तेमाल करना ग्नोस्कोप और एक्सीलरोमीटर डेटा को जोड़ना एक जावा सरणी को परिवर्तित करना एक जावास्क्रिप्ट सरणी के लिए स्ट्रिंग्स की सूची एंड्रॉइड स्टूडियो – एंड्रॉइड एसडीके पथ को कैसे बदलें आपका पसंदीदा प्रोफ़ाइल उपकरण क्या है (सी ++ के लिए) जावा में Enum पर स्विच करें जावा में ट्री कार्यान्वयन (जड़, माता-पिता और बच्चों) GetLocationOnScreen / getLocationInWindow से गलत निर्देशांक ओरेकल 11 जी में एक उपयोगकर्ता कैसे बनायें और अनुदान अनुमतियां दें JavaScript का उपयोग करके <textarea> पंक्तियों की संख्या कैसे प्राप्त करें? Node.js Mongoose.js स्ट्रिंग ObjectId फ़ंक्शन के लिए रंग लुप्त होती एल्गोरिथ्म? फोरट्रान में एक वेरिएबल के फ़ंक्शन के रूप में एकाधिक चर के बाहरी फ़ंक्शन उत्तीर्ण करना आरजीबीए रंग को आरजीबी में कनवर्ट करें

किसी अन्य कार्यपुस्तिका से VBA के माध्यम से डेटा कॉपी करें

लोग यहां हैं कि मैं क्या करना चाहता हूं और मुझे थोड़ा परेशानी है। मेरे पास 1 कार्यपुस्तिका है जहां मैं इस तरह से कुछ करने वाली फ़ाइलों से डेटा एकत्र करना चाहता हूं।

Do While THAT_DIFFERENT_FILE_SOMEWHERE_ON_MY_HDD.Cells(Rand, 1).Value <> "" And Rand < 65536 then 'I will search if the last row in my main worksheet is in this file... End Loop 

अगर यह है कि मैं लूप को छोड़ दूँगा, अगर ऐसा नहीं है तो मैं सब कुछ कॉपी करूंगा। असल में यह काम नहीं करेगा जैसा मैं चाहता हूं लेकिन मुझे सही एल्गोरिथम ढूँढने में परेशानी नहीं होगी।

मेरी समस्या यह है कि मुझे नहीं पता कि विभिन्न कार्यपुस्तिकाओं को कैसे उपयोग करना है

Solutions Collecting From Web of "किसी अन्य कार्यपुस्तिका से VBA के माध्यम से डेटा कॉपी करें"

आपको फ़ंक्शन GetInfoFromClosedFile () पसंद हो सकता है


संपादित करें: चूंकि उपर्युक्त लिंक अब काम नहीं करता है, इसलिए मैं वैकल्पिक लिंक 1 और वैकल्पिक लिंक 2 + कोड जोड़ रहा हूं:

 Private Function GetInfoFromClosedFile(ByVal wbPath As String, _ wbName As String, wsName As String, cellRef As String) As Variant Dim arg As String GetInfoFromClosedFile = "" If Right(wbPath, 1) <> "" Then wbPath = wbPath & "" If Dir(wbPath & "" & wbName) = "" Then Exit Function arg = "'" & wbPath & "[" & wbName & "]" & _ wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1) On Error Resume Next GetInfoFromClosedFile = ExecuteExcel4Macro(arg) End Function 

एक कार्यपुस्तिका से दूसरे डेटा को कॉपी करने का सर्वोत्तम (और सबसे आसान) तरीका Excel के ऑब्जेक्ट मॉडल का उपयोग करना है

 Option Explicit Sub test() Dim wb As Workbook, wb2 As Workbook Dim ws As Worksheet Dim vFile As Variant 'Set source workbook Set wb = ActiveWorkbook 'Open the target workbook vFile = Application.GetOpenFilename("Excel-files,*.xls", _ 1, "Select One File To Open", , False) 'if the user didn't select a file, exit sub If TypeName(vFile) = "Boolean" Then Exit Sub Workbooks.Open vFile 'Set targetworkbook Set wb2 = ActiveWorkbook 'For instance, copy data from a range in the first workbook to another range in the other workbook wb2.Worksheets("Sheet2").Range("C3:D4").Value = wb.Worksheets("Sheet1").Range("A1:B2").Value End Sub 

Excel में एकाधिक कार्यपुस्तिकाओं को खोलने के लिए बहुत कम कारण है कोड की मुख्य पंक्तियां हैं:

 Application.EnableEvents = False Application.ScreenUpdating = False 

… तो आप कोड चलाते समय कुछ भी नहीं देख पाएंगे, और दूसरी कार्यपुस्तिका के उद्घाटन के साथ कोई कोड नहीं चलेंगे। तो फिर …

 Application.DisplayAlerts = False Application.Calculation = xlManual 

… ताकि आप दूसरी फ़ाइल की सामग्री से संबंधित पॉप-अप संदेशों को रोक सकें, और किसी भी धीमी री-गणना से बचने के लिए सुनिश्चित करें कि आप अपने प्रोग्रामिंग के अंत में सत्य / एक्सएलएओमैटॉमिक पर वापस सेट करें

अगर दूसरी वर्कबुक खोलना प्रदर्शन संबंधी समस्याओं का कारण नहीं बनना है, तो आप यह भी कर सकते हैं। वास्तव में, दूसरी वर्कबुक खोलने से इसे बहुत फायदेमंद होगा जब आपके कोड को डिबग करने का प्रयास करते हैं यदि कुछ माध्यमिक फाइल अपेक्षित प्रारूप के अनुरूप नहीं होती हैं

यहां कई विशेषज्ञों का मार्गदर्शन किया जाता है, जिसमें कई एक्सेल फाइलें होती हैं, जो डेटा को संदर्भित करने के लिए उपलब्ध विभिन्न तरीकों का अवलोकन करती हैं

एक विस्तार प्रश्न होगा कि एक ही फ़ोल्डर में मौजूद कई फ़ाइलों के माध्यम से कैसे चक्कर किया जाए। आप Windows फ़ोल्डर पिकर का उपयोग कर उपयोग कर सकते हैं:

 With Application.FileDialog(msoFileDialogFolderPicker) .Show If .Selected.Items.Count = 1 the InputFolder = .SelectedItems(1) End With FName = VBA.Dir(InputFolder) Do While FName <> "" '''Do function here FName = VBA.Dir() Loop 

उम्मीद है कि ऊपर के कुछ उपयोग होंगे

क्या आप उन्हें खोलने के लिए वाक्यविन्यास की तलाश कर रहे हैं:

 Dim wkbk As Workbook Set wkbk = Workbooks.Open("C:\MyDirectory\mysheet.xlsx") 

उसके बाद, आप wkbk.Sheets(1).Range("3:3") उपयोग कर सकते हैं। wkbk.Sheets(1).Range("3:3") (या जो भी आपको आवश्यकता है)