My code is:
In Module 1-
Sub copyDataFromMultipleWorkbook()
Dim FolderPath As String
Dim Filepath As String, Filename As String
FolderPath = "C:\Myprg\"
Filepath = "*data1.xlsx*"
Filename = Dir(Filepath)
Dim lastrow As Long, lastcolumn As Long
Do While Filename <> ""
Workbooks.Open (FolderPath & Filename)
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(lastrow, lastcolumn)).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 4))
Filename = Dir
Loop
Application.DisplayAlerts = True
End Sub
In Module 2-
Sub cpyDataFromMultipleWorkbook()
Dim FolderPath As String
Dim Filepath As String, Filename As String
FolderPath = "C:\Myprg\"
Filepath = "*data2.xlsx*"
Filename = Dir(Filepath)
Dim lastrow As Long, lastcolumn As Long
Do While Filename <> ""
Workbooks.Open (FolderPath & Filename)
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lastcolumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(lastrow, lastcolumn)).Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range(Cells(erow, 1), Cells(erow, 4))
Filename = Dir
Loop
Application.DisplayAlerts = True
End Sub
The Programe is I want to copy : File1 to sheet1 of master file &
File2 to sheet2 of Master file.
My error is comming here
ActiveSheet.Paste Destination:=Worksheets("S
=> i wrote thi code also:
Private Sub Workbook_Open()
copyDataFromMultipleWorkbo
cpyDataFromMultipleWorkboo
End Sub