Для одного из моих проектов мне нужно Скопировать данные из нескольких книг Excel в папке на мастер-лист.
Ранее требовалось просто скопировать лист1 из всех файлов, но с новым изменением I необходимо скопировать лист 1 и лист 4 из всех файлов.
Заголовки на всех листах одинаковы
Я пробовал различный код для внесения изменений в текущий код, но не может управлять каким-либо результат.
Поэтому хотел бы проконсультироваться с экспертами здесь, если вы сталкивались с такой проблемой и можете предложить возможные предложения относительно того же.
Большое спасибо за ваше время и усилия заранее.
*Sub FILESMERGE()
Dim wb As Workbook, sh As Worksheet, fPath As String, fName As String
Set sh = ThisWorkbook.Sheets(1)
fPath = "C:\Users\Desktop\FTC" 'Provide folder path here
If Right(fPath, 1) <> "\" Then fPath = fPath & "\" 'Make sure separator is on end of path
fName = Dir(fPath & "*.xlsx*") 'get all Excel files in directory
Do
If fName <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(fPath & fName)
With wb.Sheets(1)
If Application.CountA(.Rows(2)) > 0 Then
.UsedRange.Offset(1).Copy sh.Cells(Rows.Count, 1).End(xlUp)(2)
End If
End With
wb.Close False
End If
fName = Dir
Loop While fName <> ""
End Sub*