FYI: One macro really helped for capturing data from multiple workbook stored in a specific folder to one excel file only
Sub Use_of_FileSearch()
Dim MyDumpFiles As String Dim MyPath As String Set fs = Application.FileSearch MyPath = "C:\Count" 'Change the folder location' With fs .LookIn = MyPath .SearchSubFolders = True .Filename = "*.xls" If .Execute() 0 Then MsgBox "Number of excel file(s) found a " & .FoundFiles.Count For i = 1 To .FoundFiles.Count MyDumpFiles = .FoundFiles(i) Workbooks.Open MyDumpFiles Worksheets(1).Activate Range("A1:C10").Copy ActiveWindow.ActivateNext Worksheets(1).Activate Range("A1:C10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Rows("1:11").Select Selection.Insert Shift:=xlDown ActiveWindow.ActivateNext ActiveWorkbook.Close Savechanges = False Next i Else MsgBox "No Excel File(s) Found" End If End With End Sub |
All times are GMT +1. The time now is 03:16 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com