मैं दैनिक आधार पर 6 एक्सेल वर्कबुक से डेटा कैसे आयात करूं?

Question

मुझे 6 अलग-अलग एक्सेल वर्कबुक्स से डेटा खींचने में सक्षम होने की आवश्यकता है, जो सभी एक ही स्वरूपित हैं, पहली पंक्ति सभी छह में एक ही हैडर हो रही है और फिर नीचे शुरू होने वाली 2 पंक्ति शुरू होने वाले डेटा को सभी 6 में समान स्वरूपित किया जा रहा है।

हम मूल रूप से काम में छोटे मेलिंग के लिए इसका उपयोग कर रहे हैं और ऐसे कर्मचारी "एक्सेल" एक्सेल वर्कबुक में नामों के साथ पते चिपकाते हैं, हमेशा पहली शीट पर हमेशा 2 पंक्ति से शुरू करते हैं।

मेरे पास एक मास्टर "पोस्ट" वर्कबुक है, और फिलहाल मुझे मैन्युअल रूप से हर किसी में जाना है और उनके लेबल को काटकर उन्हें मास्टर एक में डालना है और फिर प्रिंट करना है।

मैं पोस्ट लेबल (मूल रूप से कॉलम के एक जोड़े में दाएं से बाएं लिखे गए डेटा) को काटने और इसे मास्टर एक्सेल शीट में चिपकाने को कैसे स्वचालित करूंगा? (डेटा को 6 वर्कबुक से डिलीट करने की जरूरत है)।

मैंने बहुत सारी मदद की जानकारी लेने की कोशिश की है जो मुझे मिल सकती है और बहुत खोज की है, लेकिन मैं अभी इस पर काम नहीं कर सकता।

मैं हेडर को मास्टर फ़ाइल में पोस्ट नहीं करना चाहता, मास्टर फ़ाइल में पहले से ही छंटाई के लिए हेडर हैं।

धन्यवाद। (कार्यालय 2007 या 2013 के निर्देश ठीक होंगे।)

Comments

मेरा सुझाव है कि एक स्प्लिट डेटाबेस इस स्थिति में आपके लिए सबसे अच्छा समाधान हो सकता है जो आपको आपके प्रत्येक कर्मचारी के सामने के छोर पर एक फॉर्म इंटरफेस प्रदान करेगा, जबकि आपके डेटा को बैक-एंड में कैप्चर करेगा। लंबे समय में, यह उस विधि की तुलना में बहुत कम दैनिक कार्य होगा जो आप वर्तमान में एक्सेल का उपयोग करके वर्णन करते हैं।

— OSol1tair3

जैसे @ OSol1tair3 कहता है, एक डेटाबेस ऐसा कर सकता था। प्रवेश पर एक नज़र डालें।

— f p

सही काम के लिए सही उपकरण, मैं एक डेटाबेस में यह कर रहा हूँ

— Wayne In Yak

सुझाव : नेटवर्क स्थान पर कार्यपुस्तिका साझा करें ताकि हर कोई अपना डेटा उस पर जोड़ सके। फिर आप इसे खोल सकते हैं, अपने लेबल प्रिंट कर सकते हैं और सामग्री को साफ कर सकते हैं ताकि वे अधिक जोड़ सकें। यह इसे एक फाइल में रखता है।

— CharlieRB

हे CharileRB, आपका सुझाव काम नहीं करता है क्योंकि एक समय में केवल एक उपयोगकर्ता लेबल जोड़ सकता है, और यह काम करने वाला नहीं है।

— Teeest

Answer 1

यह निर्भर करता है कि नियम कितने सख्त हैं / आपके सहकर्मी कितने सक्षम हैं, समाधान अलग-अलग हैं:

• साझा कार्यपुस्तिका: हर कोई सब कुछ समझता है और उसके साथ भरोसा किया जाता है आँकड़े।
• स्प्लिट डेटाबेस: सभी को एक इनपुट फॉर्म मिलता है और आप सभी को समान डेटासेट से काम; उन्हें डेटा पर भरोसा नहीं है लेकिन आराम से उपयोग करने के लिए सभी सक्षम हैं
• अलग डेटाबेस: एक मैक्रो सभी डायस्पोरिक से एक परिशिष्ट क्वेरी चलाता है मास्टर टेबल पर डेटासेट और फिर मास्टर को डिलीट क्वेरी चलाता है
• एक्सेल फ़ाइल अधीनस्थ लोगों को खोलने (एक लूपिंग फैशन में), की नकल डेटा, फिर डिलीट करना, फिर क्लोजिंग पर सेव करना।
  आप कितना खाली समय व्यतीत करते हैं है?

Comments

खैर, फिलहाल, हर किसी के पास अपना एक है और इसे एक में मिलाना है। एक साझा कार्यपुस्तिका के साथ यह वास्तव में काम नहीं करता है क्योंकि केवल एक ही समय में इसे जोड़ सकता है जब तक कि हम इसे कार्यालय ऑनलाइन के साथ नहीं करते हैं जो हम वास्तव में नहीं करना चाहते हैं। मैं मूल रूप से सबसे आसान उपाय है।

— Teeest

ए साझा कार्यपुस्तिका एक साझा ड्राइव पर लगभग अनंत उपयोगकर्ताओं के लिए उपलब्ध है (मुझे लगता है कि एक ही समय में 20)। सुनिश्चित करें कि लोग बार-बार बचाते हैं, आटोसेव जाता है मुझे लगता है कि हर 5 मिनट में।

— sicarius92

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

— Teeest

Answer 2

एक नई कार्यपुस्तिका खोलें, ALT + F11 दबाएँ।

एक नया मॉड्यूल जोड़ें, और निम्नलिखित vba कोड पेस्ट करें:

Sub mergexlfiles()
Dim actwb As Workbook

Dim LastRow As Long
Dim DestRow As Long

Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")

Set dirObj = mergeObj.Getfolder("C:\folder\") 'update folder path
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set actwb = Workbooks.Open(everyObj)

LastRow = actwb.Worksheets(1).Cells.Find(What:="*", _
             After:=actwb.Worksheets(1).Cells.Range("A1"), _
             SearchDirection:=xlPrevious, _
             LookIn:=xlFormulas, _
             SearchOrder:=xlByRows).Row

Range("A2:S" & LastRow).Copy 'amend "S" to last column letter in source files

ThisWorkbook.Worksheets(1).Activate

Range("A" & ThisWorkbook.Worksheets(1).UsedRange.Rows.Count).Offset(1, 0).Value = actwb.Name
Range("B" & ThisWorkbook.Worksheets(1).UsedRange.Rows.Count).Offset(1, 0).PasteSpecial

Application.CutCopyMode = False
actwb.Close
Next
End Sub

टिप्पणी अनुभागों को अपडेट करना सुनिश्चित करें, और मैक्रो को चलाएं।

स्क्रिप्ट प्रत्येक फ़ोल्डर को बदले में आपके द्वारा निर्दिष्ट फ़ोल्डर में खोलेगी, और सामग्री को एक नई कार्यपुस्तिका में पेस्ट करेगी।

जब स्क्रीन अपडेट होती है, तो आपके पास सभी सामग्रियों के साथ एक एकल एक्सेल शीट होगी।

उम्मीद है की वो मदद करदे।

(मैं कुछ vba मैंने कहीं और पाया, मैं मूल स्रोत के अनिश्चितता के लिए माफी माँगता हूँ।)

Comments

क्या इस आदेश के लिए यह संभव नहीं है कि सामग्री को हमेशा एक ही कार्यपुस्तिका में पेस्ट किया जाए और हर बार एक नया निर्माण न किया जाए? हमारे पास कुछ विशिष्ट पंक्तियाँ हैं, जिन्हें हम छाँटने से पहले छँटाई और सफाई के लिए रखना चाहते हैं। धन्यवाद।

— Teeest

Answer 3

आप एक्सेल में डेटा कनेक्शन का उपयोग करके किसी भी अन्य कार्यपुस्तिका से अपनी मास्टर वर्कबुक में डेटा आयात कर सकते हैं। मैंने समय के साथ ऐसा किया था और इसने बहुत अच्छा काम किया। यह एमएस ऑफिस वेबपेज बताता है कि इसे कैसे सेट करना है। आप अपने डेटा को अलग-अलग सेल रेंज में भी रख सकते हैं जैसे कि किसकी मेलिंग बाहर जा रही है।

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

पता नहीं चला है कि आप अपने द्वारा पहले ही आयात किए गए डेटा की व्यक्तिगत कार्यपुस्तिकाओं को कैसे साफ़ कर सकते हैं लेकिन यह एक अच्छी शुरुआत हो सकती है।

Comments

मैंने पहले ही उस लेख को ढूंढ लिया है और डेटा कनेक्शन के साथ खेलने की कोशिश की है, लेकिन मैं इसे काम नहीं कर सकता। यह केवल डेटा के बजाय हेडर को चिपकाए रखता है, और जैसे कि, यह मेरे लिए बेकार है ...

— Teeest