Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Объединение книг  (Прочитано 9428 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ramuldyan
Гость
« : 18-05-2008 13:06 » 

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

ru
Offline Offline

« Ответ #1 : 19-05-2008 04:42 » 

получить значения из закрытой книги
Код:
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 - ячейка, из которой беруться значения
Записан

I Have Nine Lives You Have One Only
THINK!
ramuldyan
Гость
« Ответ #2 : 19-05-2008 11:29 » 

получить значения из закрытой книги
Код:
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
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 19-05-2008 11:48 » 

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

Мы все учились понемногу... Чему-нибудь и как-нибудь.
ramuldyan
Гость
« Ответ #4 : 19-05-2008 11:57 » 

для начинающего, то что ты сказал кажется не очень понятным Улыбаюсь
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 19-05-2008 12:16 » 

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

Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #6 : 20-05-2008 04:46 » 

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

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

I Have Nine Lives You Have One Only
THINK!
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines