वीबीए मैक्रो बड़े पैमाने पर एक ही स्थान पर एकाधिक फ़ाइलों को अद्यतन करने के लिए

Question

इस पर बहुत नया है कृपया मदद करें। मैं एक स्थिर फ़ोल्डर स्थान में फ़ाइलों को बड़े पैमाने पर अद्यतन करने की कोशिश कर रहा हूं, एक फ़ोल्डर में कई फाइलें।

क्या मैं करना चाहता हूँ, गोटो किसी नेटवर्क स्थान फ़ोल्डर में Excel 2010 में

• रन VBA मैक्रो है
• फ़ोल्डर में पहले फ़ाइल खोलें।
• असुरक्षित कार्यपुस्तिका और कार्यपत्रक फोन को चलाने के लिए एक और मार्को बदलता है
• तो रक्षा कार्यपत्रक फ़ाइल
• को बंद करने और फिर अगले फ़ाइल पर ले जाने फ़ोल्डर में जब तक सभी फाइलों को सही किया गया है।

मैं परिवर्तन करने के लिए मार्को बनाया है, यह "संपादित करें"

फ़ाइल प्रकार xlsm और कार्यपुस्तिका और कार्यपत्रक पासवर्ड से सुरक्षित कर रहे हैं कैसे मैं स्वचालित रूप से गोटो नेटवर्क स्थान पर मैक्रो चला सकते हैं कर रहे हैं कहा जाता है और श्रृंखला में प्रत्येक फ़ाइल को खोलें, असुरक्षित, मैक्रो को कॉल करें, फिर दस्तावेज़ को बंद फ़ाइल की रक्षा करें और अगली फ़ाइल पर तब तक जाएं जब तक वे सभी अपडेट नहीं हो जाते।

Sub Auto_open_change() 

Dim WrkBook As Workbook 
Dim StrFileName As String 
Dim FileLocnStr As String 
Dim LAARNmeWrkbk As String 

PERNmeWrkbk = ThisWorkbook.Name 
StrFileName = "*.xlsx" 
FileLocnStr = ThisWorkbook.Path 
Workbooks.Open (FileLocnStr & "\" & StrFileName) 
Workbooks(StrFileName).Activate 

With Application.FindFile 
SearchSubFolders = False 
LookIn = "Network location" 
Filename = "*.xlsm" 
If .Execute > 0 Then 
    Debug.Print "There were " & .FoundFiles.Count & " file(s) found." 
    For i = 1 To .FoundFiles.Count 
     WrkBook = Workbooks.Open(Filename:=.FoundFiles(i)) 
     WrkBook.Worksheets(1).Select 
     ThisWorkbook.Worksheets(1).Cells(DestinationRange) = WrkBook.Worksheets(1).Cells(SourceRange).Value 
    Next i 
Else 
    Debug.Print "There were no files found." 

End If 

इम प्रबंध फ़ाइल अद्यतन असुरक्षित और फ़ाइल ठीक reprotect के लिए, बस नहीं कर सकते नेटवर्क स्थान से फ़ाइल मिलता है।

Answer 1

मैं एक्सेल 07 का उपयोग कर रहा हूं, जो एप्लिकेशन को अनुमति नहीं देता है। फिंडफाइल, इसलिए मैं इसका परीक्षण नहीं कर सकता। हालांकि, मेरा मानना ​​है कि समस्या यह हो सकती है कि आपको Set वैरिएबल Wrkbook की आवश्यकता है, न कि इसे असाइन करें।

बदलें

WrkBook = Workbooks.Open(Filename:=.FoundFiles(i)) 

को

Set WrkBook = Workbooks.Open(Filename:=.FoundFiles(i)) 

और मुझे पता है कि कैसे पता चला है!