Поиск файлов при изменяющемся окончании - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы