Форум программистов «Весельчак У»
Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Вам не пришло
письмо с кодом активации?
1 час
1 день
1 неделя
1 месяц
Навсегда
Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
Начало
Наши сайты
Галерея
Весельчак У
Наша Вики
Хранилище
Проекты
Правила
Правила форума
Правила русского языка
Помощь
Поиск
Календарь
Почта
Войти
Регистрация
Форум программистов «Весельчак У»
>
Программирование
>
VisualBasic
(Модератор:
Naghual
) > Тема:
Объединение книг
Страниц: [
1
]
Вниз
« предыдущая тема
следующая тема »
Печать
Автор
Тема: Объединение книг (Прочитано 9428 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ramuldyan
Гость
Объединение книг
«
:
18-05-2008 13:06 »
Всем доброго время суток, помогите с марросом, есть много файлов и нужно со всех этих файлов скопировать определенные ячейки в один отдельный файл. У меня есть макрос который на листе создает список файлов из которых нужно скопировать. Продолжение вижу в написании еще одного макраса который будет открывать эти файлы и копировать из них информацию. как это сделать незнаю:)
Записан
HandKot
Молодой специалист
Offline
Re: Объединение книг
«
Ответ #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
Гость
Re: Объединение книг
«
Ответ #2 :
19-05-2008 11:29 »
Цитата: HandKot от 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 - ячейка, из которой беруться значения
ели я правельно понял этот макрос получает значения из одной какойто книги, а у меня есть список книг в экселе из которых надо получить данные
Записан
Sla
Команда клуба
Offline
Пол:
Re: Объединение книг
«
Ответ #3 :
19-05-2008 11:48 »
ramuldyan
, так в чем проблема?
пробегаешь по списку книг - вуаля!
Записан
Мы все учились понемногу... Чему-нибудь и как-нибудь.
ramuldyan
Гость
Re: Объединение книг
«
Ответ #4 :
19-05-2008 11:57 »
для начинающего, то что ты сказал кажется не очень понятным
Записан
Sla
Команда клуба
Offline
Пол:
Re: Объединение книг
«
Ответ #5 :
19-05-2008 12:16 »
ок,
у тебя есть макрос, создающий список файлов
пишешь процедуру, в которой есть цикл по этому списку
в цикле выполняешь функцию предложенную HandKot
Записан
Мы все учились понемногу... Чему-нибудь и как-нибудь.
HandKot
Молодой специалист
Offline
Re: Объединение книг
«
Ответ #6 :
20-05-2008 04:46 »
полностью согласен со
Sla
на вход ф-ции подаются параметры: path, file, sheet, ref
Вы можете их менять и получать то, что надо
Цитата
получает значения из одной какойто книги
не какой-то, а той, которую передали в параметрах (точнее путь до файла и имя файла)
повторюсь еще раз, меняете параметры на вход ф-ции и ...
Записан
I Have Nine Lives You Have One Only
THINK!
Страниц: [
1
]
Вверх
Печать
« предыдущая тема
следующая тема »
Форум программистов «Весельчак У»
>
Программирование
>
VisualBasic
(Модератор:
Naghual
) > Тема:
Объединение книг
Загружается...