Всем здрасти! Всех с весной, студентов с сессией!

В директории есть некоторое количество текстовых фалов с одинаковой структурой. Так вот «результат» каждого из этих файлов нужно скопировать на строчку ниже предыдущего «результата». «Результат» это маленький макрос, убирающий всё лишнее и выстраивающий данные в одну строчку.

Вопрос как запустить макрос на все файлы в директории?

Поиск на русском не работает, а по англицки не знаю... хотя точно помню, что такой вопрос уже задавали.

Спасибо!

Вот почитайте (на этом форуме не нашёл подходящих тем)

http://bbs.vbstreets.ru/viewtopic.php?t=32669&highlight=dir

http://bbs.vbstreets.ru/viewtopic.php?t=9987&highlight=dir

http://bbs.vbstreets.ru/viewtopic.php?t=3895&highlight=dir

Смысл такой

Sub Макрос1()
    Dim iPath$, iFileName$
    iPath = "C:\Temp\"
    iFileName = Dir(iPath) 'тут же можно прописать расширения, например, iPath & "*.txt"
    Do While iFileName <> ""
        'тут что-то делаете с каждым файлом,
        '............................
        
        iFileName = Dir 'передача названия другого файла
    Loop
End Sub

Attribute VB_Name = "Module1"
Option Explicit

Sub GetImportFileName()
    Dim Filt As String
    Dim FilterIndex As Integer
    Dim FileName As Variant
    Dim Title As String
   
'   Настройка списка фильтров
    Filt = "Текстовые файлы (*.txt),*.txt," & _
           "Файлы печати (*.prn),*.prn," & _
           "Разделенные запятой (*.csv),*.csv," & _
           "ASCII (*.asc),*.asc," & _
           "Все файлы (*.*),*.*"

'   По умолчанию используется фильтр *.*
    FilterIndex = 5

'   Заголовок окна
    Title = "Выберите импортируемый файл"

'   Получение имени файла
    FileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Title)

'   При отмене выйти из окна
    If FileName = False Then
        MsgBox "Файл не выбран."
        Exit Sub
    End If
  
'   Отображение полного имени и пути
    MsgBox "Вы выбрали " & FileName
End Sub

Sub GetImportFileName2()
    Dim Filt As String
    Dim FilterIndex As Integer
    Dim FileName As Variant
    Dim Title As String
    Dim i As Integer
    Dim Msg As String
'   Настройка фильтров файлов
    Filt = "Текстовые файлы (*.txt),*.txt," & _
            "Файлы печати (*.prn),*.prn," & _
            "Разделенные запятой (*.csv),*.csv," & _
            "ASCII (*.asc),*.asc," & _
            "Все файлы (*.*),*.*"
'   По умолчанию используется фильтр *.*
    FilterIndex = 5

'   Заголовок окна
    Title = "Выберите импортируемый файл"

'   Get the file name
    FileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
         FilterIndex:=FilterIndex, _
         Title:=Title, _
         MultiSelect:=True)

'   Закрытие окна при использовании кнопки Отмена
    If Not IsArray(FileName) Then
        MsgBox "Файл не выбран."
        Exit Sub
    End If
Как сюда запихнуть мкрос который будет запускать каждый файл одельно?
'   Отображение полного имени и пути
    For i = LBound(FileName) To UBound(FileName)
        Msg = Msg & FileName(i) & vbCrLf
    Next i
    MsgBox "Вы выбрали:" & vbCrLf & Msg
End Sub