Поиск файлов при изменяющемся окончании - VBA
Формулировка задачи:
Добрый день!
Подскажите пожалуйста. у меня макрос в екселе открывает ексель файлы. они в будущем будут меняться. в названии будет меняться только окончание. как прописать чтобы он на окончание не смотрел?
Сейчас вот так делаю:
потом этот файл будет изменяться на A011_000_47.xls, A011_000_49.xls и тд.
Решение задачи: «Поиск файлов при изменяющемся окончании»
textual
Листинг программы
Private Sub Test2() Dim iPath$, iFileName$, iArr As Variant, iCount& iArr = Array("A011_000", "Е101_00", "Е002_000", "К_002", "Р_001", "М1001_000") iPath = ActiveWorkbook.Path & "\bdx16\" Application.ScreenUpdating = False For iCount = 0 To UBound(iArr) iFileName = Dir(iPath & iArr(iCount) & "*_.xls") If iFileName <> "" Then With Workbooks.Open(iPath & iFileName, 0) .Worksheets("Table 1").[A1:M1500].Copy Workbooks("280.xlsm").Worksheets("List" & iCount + 2).[A1] '.Worksheets(1).UsedRange.Copy Workbooks("280.xlsm").Worksheets(iCount + 2).[A1] .Close False End With End If Next Application.ScreenUpdating = True End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д