Добрий день!
Есть макрос которий перебирая только файли в папке C:\TMP1 , удаляет дубли в файле, а нужно еще перебирать и в подпапках, напимер C:\TMP1\Test
Подправте макрос для перебора в подпапках паки C:\TMP1
Есть макрос которий перебирая только файли в папке C:\TMP1 , удаляет дубли в файле, а нужно еще перебирать и в подпапках, напимер C:\TMP1\Test
Подправте макрос для перебора в подпапках паки C:\TMP1
Код |
---|
Sub uble_rem2() Dim Папка$, Имя$ Dim wb As Workbook Dim smallrng As Range Dim WS_Count As Integer Dim lRow As Long Dim T As Integer Application.ScreenUpdating = False Папка = "C:\TMP1" & "\" Имя = Dir(Папка & "*.xls") Do While Имя <> "" file = Папка & Имя Workbooks.Open file, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, UpdateLinks:=True WS_Count = ActiveWorkbook.Worksheets.Count lRow = Cells(Rows.Count, 1).End(xlUp).Row Range("A5:Z" & lRow).RemoveDuplicates Array(1, 2, 26) wb.Sheets(1).Activate ActiveWorkbook.Save ActiveWorkbook.Close Имя = Dir Loop Application.ScreenUpdating = True End Sub |