My steps to create a new excel, Alt + F11 run the following code, the code includes merger and antitone
Sub the Find ()
Application. ScreenUpdating=False
Dim MyDir As String
MyDir=ThisWorkbook. Path & amp; ""
ChDrive Left (MyDir, 1) 'find all the excel files
ChDir MyDir
Match=Dir $(" ")
Do
If Not LCase (Match)=LCase (ThisWorkbook. Name) Then
Workbooks. Open Match, 0 'Open
ActiveSheet. Copy Before:=ThisWorkbook. Sheets (1) 'Copy sheet
Windows (Match). Activate
ActiveWindow. Close
End the If
Match=Dir $
Loop Until Len (Match)=0
Application. ScreenUpdating=True
On the Error Resume Next
For I=1 To Worksheets. Count - 1
Sheets (1). A Move after:=Sheets (Worksheets. Count - I + 1)
Next
End Sub
Now there are thousands of folders, I recorded a button script, but still slow and stupid, how can I do the same thing at the same time for the thousands of folder?
Detailed method of pure white, ~ ~
CodePudding user response:
If it's me, may be make out of this merge module workbook open function, when thousands of folder to form a list (in the file or real-time generation), DOS batch copy the workbook to each folder, open it, run automatically collected to merge, and then shut down,CodePudding user response:
Have a combined online software