Найти и открыть файл

[Olegspb]

Необходимо найти в папке файлы, отвечающие определенныем требованиям, и открыть их. Пишу:

Sub поискфайлов()
Set fs = Application.FileSearch
 
With fs
    .LookIn = "K:\Реестры платежей\оплаты апреля"
    .Filename = "r*.xls"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
               
            Workbooks.Open ("K:\Реестры платежей\оплаты апреля\" & FoundFiles.Name)
       
            Else
        MsgBox "Нету таких файлов, однако"
    End If
End With
End Sub


VBA отвечает: "object required"

Подскажите, пожалуйста, в чем туплю.

[PooH]

а перед FoundFiles точки разве не надо?

[Olegspb]

И с точкой не работает.

[PooH]

попробуй вместо

Код:

 Workbooks.Open ("K:\Реестры платежей\оплаты апреля\" & FoundFiles.Name)

написать

Код:

        For i = 1 To .FoundFiles.Count
            Workbooks.Open ( .FoundFiles(i))
        Next i

[RomCom]

PooH, прав. FoundFiles это коллекция.
Вообщето в хелпе пример явно это показывает

[PooH]

ну дык я в хелпе по FoundFiles и посмотрел

[Olegspb]

И я смотрел, да, видно, плохо.
Спасибо, макрос работает. Ну, и не сочтите за наглость еще один вопрос. Как мне вставить в ячейку название открытого файла, либо название активного листа этого файла (они одинаковы)?

[PooH]

В какую именно ячейку?
Текст, можно вставить, например, так:

Код:

Sub test()
    ActiveCell.Value = ActiveSheet.Name
End Sub

[Olegspb]

В ячейку в другом файле. Идея макроса в следующем: найти файл r1.xls, открыть, из него скопировать таблицу и вставить в файл "общая". Теперь, чтобы идентифицировать каждую строку вставленной таблицы, нужно проставить название этого файла в каждую строку. Затем закрыть файл r1.xls.(либо удалить его). Отркрыть файл r2.xls и т.д.
Проблема в том, что я не знаю  как вставить название файла в ячейку.

[PooH]

Имя файла в .FoundFiles(i). Нужно ячейку сделать активной (смотри хелп по Selection и Range) и в ActiveCell.Value записать текст.

[Olegspb]

Вот, что получилось:

Set fs = Application.FileSearch
Workbooks.Open ("K:\Реестры платежей\оплаты апреля\общая за апрель.xls")

With fs
    .LookIn = "K:\реестры платежей\оплаты апреля"
    .Filename = "r*.xls"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
           
    For i = 1 To .FoundFiles.Count
      Workbooks.Open (.FoundFiles(i))
     Workbooks("общая за апрель.xls").Sheets("общая").Range("a1").Value = (.FoundFiles(i))
    Next i
    Else
        MsgBox "нет таких файлов"
    End If
End With

Все работает, правда, хотелось бы, чтобы вставлялось только имя файла, а не весь путь. Ну, да ладно. Отрежу.
Спасибо за помощь.

[RomCom]

 Workbooks("общая за апрель.xls").Sheets("общая").Range("a1").Value =Dir(.FoundFiles(i))

[Olegspb]

Все гениальное просто. )

[Olegspb]

Открыл файл. Скопировал таблицу. Теперь мне необходимо закрыть файл r1.xls, переименовать его в 1.xls и так все файлы r*.xls. Как это сделать не пойму. Подскажите кто знает.

[RomCom]

Покажи скрипт. Хотябы схематично.
На вскидку надо примерно так делать:

Код:

Workbook.Close 'закрываем файл
Name oldpathname As newpathname 'переименоваваем

[RomCom]

И еще один момент.
Если для коррекности результата в "общем" файле необходимо что бы все данные из r*.xls перенеслись корректно (без ошибок). Преавилнее будет переименовывать уже после обработки всех файлов:

Код:

   .LookIn = "K:\реестры платежей\оплаты апреля\"
   ........
   For i = 1 To .FoundFiles.Count
      Workbooks.Open (.FoundFiles(i))
     Workbooks("общая за апрель.xls").Sheets("общая").Range("a1").Value = (.FoundFiles(i))
     ... 'что то делам с данными
   Next i

  'переименовываем скопом
   For i = 1 To .FoundFiles.Count
      Name .LookIn & Dir(.FoundFiles(i)) As .LookIn & i & ".xls"
   Next