Объединение книг

[ramuldyan]

Всем доброго время суток, помогите с марросом, есть много файлов и нужно со всех этих файлов скопировать определенные ячейки в один отдельный файл. У меня есть макрос который на листе создает список файлов из которых нужно скопировать. Продолжение вижу в написании еще одного макраса который будет открывать эти файлы и копировать из них информацию. как это сделать незнаю:)

[HandKot]

получить значения из закрытой книги

Код:

Private Function Getvalue(path, file, sheet, ref)
    Dim Arg As String
    Arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
    Getvalue = ExecuteExcel4Macro(Arg)
End Function

где
path - путь к файлу
file - имя файла
sheet - имя листа
ref - ячейка, из которой беруться значения

[ramuldyan]

получить значения из закрытой книги

Код:

Private Function Getvalue(path, file, sheet, ref)
    Dim Arg As String
    Arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
    Getvalue = ExecuteExcel4Macro(Arg)
End Function

где
path - путь к файлу
file - имя файла
sheet - имя листа
ref - ячейка, из которой беруться значения

ели я правельно понял этот макрос получает значения из одной какойто книги, а у меня есть список книг в экселе из которых надо получить данные

[Sla]

ramuldyan, так в чем проблема?
пробегаешь по списку книг - вуаля!

[ramuldyan]

для начинающего, то что ты сказал кажется не очень понятным

[Sla]

ок,
у тебя есть макрос, создающий список файлов
пишешь процедуру, в которой есть цикл по этому списку
в цикле выполняешь функцию предложенную HandKot

[HandKot]

полностью согласен со Sla
на вход ф-ции подаются параметры: path, file, sheet, ref
Вы можете их менять и получать то, что надо

получает значения из одной какойто книги

не какой-то, а той, которую передали в параметрах (точнее путь до файла и имя файла)
повторюсь еще раз, меняете параметры на вход ф-ции и ...