Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматическое заполнение таблицы путями к файлам - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое заполнение таблицы путями к файлам (Макросы Sub)
Автоматическое заполнение таблицы путями к файлам
co4u Дата: Понедельник, 17.02.2014, 09:51 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Доброго времени суток!
Появилась задача такого рода:
Есть файл (лежит в корневой папке), в котором есть две таблицы:
- в 1-ю необходимо заполнить адресами к файлам с описью, во 2-ю заносим данные и файлов описи (дата договора, номер договора и т.п.)
- Сам файл описи располагается во вложенных папках и содержит информацию о договоре (ДатаДоговора, НомерДоговорра и т.п.)
Необходимо чтобы "корневой файл" обновлялся автоматически при добавлении новой папки с договором, при этом файл описи всегда называется одинаково 99_Опись.xlsm и содержит одинаковое наименование ячеек (определенных через Диспетчер имен).
При этом необходимо предусмотреть чтение из закрытого файла Excel
К сообщению приложен файл: 4739359.zip (49.5 Kb)
 
Ответить
СообщениеДоброго времени суток!
Появилась задача такого рода:
Есть файл (лежит в корневой папке), в котором есть две таблицы:
- в 1-ю необходимо заполнить адресами к файлам с описью, во 2-ю заносим данные и файлов описи (дата договора, номер договора и т.п.)
- Сам файл описи располагается во вложенных папках и содержит информацию о договоре (ДатаДоговора, НомерДоговорра и т.п.)
Необходимо чтобы "корневой файл" обновлялся автоматически при добавлении новой папки с договором, при этом файл описи всегда называется одинаково 99_Опись.xlsm и содержит одинаковое наименование ячеек (определенных через Диспетчер имен).
При этом необходимо предусмотреть чтение из закрытого файла Excel
Автор - co4u
Дата добавления - 17.02.2014 в 09:51
KuklP Дата: Понедельник, 17.02.2014, 10:14 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата co4u, 17.02.2014 в 09:51, в сообщении № 1
Появилась задача...
необходимо...
Необходимо чтобы ...
При этом необходимо...
Я не пойму, Вы хвастаетесь, или жалуетесь? %)
А стол заказов если что, находится здесь:
http://www.excelworld.ru/forum/6

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Цитата co4u, 17.02.2014 в 09:51, в сообщении № 1
Появилась задача...
необходимо...
Необходимо чтобы ...
При этом необходимо...
Я не пойму, Вы хвастаетесь, или жалуетесь? %)
А стол заказов если что, находится здесь:
http://www.excelworld.ru/forum/6
Автор - KuklP
Дата добавления - 17.02.2014 в 10:14
co4u Дата: Понедельник, 17.02.2014, 10:37 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
KuklP, Я не хвастаюсь и не жалуюсь, я прошу совета или помощи в поиске решения данной задачи.
Мне самое главное понять как реализовать чтение из закрытого файла. Функции ДВССЫЛ и ТЕКСТССЫЛ не работают.
 
Ответить
СообщениеKuklP, Я не хвастаюсь и не жалуюсь, я прошу совета или помощи в поиске решения данной задачи.
Мне самое главное понять как реализовать чтение из закрытого файла. Функции ДВССЫЛ и ТЕКСТССЫЛ не работают.
Автор - co4u
Дата добавления - 17.02.2014 в 10:37
KuklP Дата: Понедельник, 17.02.2014, 10:43 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата co4u, 17.02.2014 в 10:37, в сообщении № 3
я прошу совета или помощи
Вот этого я как раз в Вашем сообщении и не заметил. Совсем плохо со зрением. Зато заметил то, что процитировал.
Цитата co4u, 17.02.2014 в 10:37, в сообщении № 3
как реализовать чтение из закрытого файла
Никак. Разве что силу мысли натренируете. Для того, чтоб что-то прочитать(или записать) из файла, он должен быть открыт так или иначе. Раз уж Вы создали тему в ветке ВБА, то обычно делается так: открываем файл, читаем данные - закрываем.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Цитата co4u, 17.02.2014 в 10:37, в сообщении № 3
я прошу совета или помощи
Вот этого я как раз в Вашем сообщении и не заметил. Совсем плохо со зрением. Зато заметил то, что процитировал.
Цитата co4u, 17.02.2014 в 10:37, в сообщении № 3
как реализовать чтение из закрытого файла
Никак. Разве что силу мысли натренируете. Для того, чтоб что-то прочитать(или записать) из файла, он должен быть открыт так или иначе. Раз уж Вы создали тему в ветке ВБА, то обычно делается так: открываем файл, читаем данные - закрываем.
Автор - KuklP
Дата добавления - 17.02.2014 в 10:43
co4u Дата: Понедельник, 17.02.2014, 16:45 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Пробовал так, но функция не возвращает значение
 
Ответить
СообщениеПробовал так, но функция не возвращает значение
Автор - co4u
Дата добавления - 17.02.2014 в 16:45
co4u Дата: Понедельник, 17.02.2014, 16:50 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
[vba]
Код
Function ПолучитьЗначение(ПутьКПапке,ИмяФайла,ИмяЛиста,Ячейка)
arg$ = "'" & ПутьКПапке & "[" & ИмяФайла & "]" & ИмяЛиста & "'!" & Range(Ячейка).Range("A1").Address(, , xlR1C1)
ПолучитьЗначение= ExecuteExcel4Macro(arg$)
End Function
[/vba]
 
Ответить
Сообщение[vba]
Код
Function ПолучитьЗначение(ПутьКПапке,ИмяФайла,ИмяЛиста,Ячейка)
arg$ = "'" & ПутьКПапке & "[" & ИмяФайла & "]" & ИмяЛиста & "'!" & Range(Ячейка).Range("A1").Address(, , xlR1C1)
ПолучитьЗначение= ExecuteExcel4Macro(arg$)
End Function
[/vba]
Автор - co4u
Дата добавления - 17.02.2014 в 16:50
KuklP Дата: Понедельник, 17.02.2014, 16:56 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
:D Вот вместо этого точно лучше прямая ссылка на ячейку в другой книге. Хлопот меньше.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение:D Вот вместо этого точно лучше прямая ссылка на ячейку в другой книге. Хлопот меньше.
Автор - KuklP
Дата добавления - 17.02.2014 в 16:56
co4u Дата: Понедельник, 17.02.2014, 17:05 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
KuklP, У меня ссылки на путь к файлам будут хранится в таблице (данные в которую добавляются автоматически на основании поиска файлов с описью) на листе 1, а на лист 2 я хочу добавлять данные из этих файлов.
Т.е. допустим на лист 2 в ячейку а1 я пишу =ПолучитьЗначение(Лист1!A1;Лист1!A2;Лист1!A3;"C1")
 
Ответить
СообщениеKuklP, У меня ссылки на путь к файлам будут хранится в таблице (данные в которую добавляются автоматически на основании поиска файлов с описью) на листе 1, а на лист 2 я хочу добавлять данные из этих файлов.
Т.е. допустим на лист 2 в ячейку а1 я пишу =ПолучитьЗначение(Лист1!A1;Лист1!A2;Лист1!A3;"C1")
Автор - co4u
Дата добавления - 17.02.2014 в 17:05
KuklP Дата: Понедельник, 17.02.2014, 17:44 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
co4u, не поленился, открыл Ваш пример. Ни в одном файле нет ни ссылок ни данных. Зачем это выкладывать? Нам самим на свое усмотрение чего-то позаполнять? Ладно, мне неинтересно уже. Совет на будущее - Вы автор темы, никогда без особой надобности не обращайтесь к участникам обсуждения персонально. Остальные участники, к-рым тема интересна, как люди вежливые, просто пройдут мимо. Лучше обращаться обезличенно, к форуму. Т.е. вместо:
Цитата
KuklP, У меня ссылки на путь к файлам...
лучше будет:
Цитата
У меня ссылки на путь к файлам...
Есть больше шансов, что найдется кто-нить подогадливей меня(или другого, к кому обратитесь персонально).

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщениеco4u, не поленился, открыл Ваш пример. Ни в одном файле нет ни ссылок ни данных. Зачем это выкладывать? Нам самим на свое усмотрение чего-то позаполнять? Ладно, мне неинтересно уже. Совет на будущее - Вы автор темы, никогда без особой надобности не обращайтесь к участникам обсуждения персонально. Остальные участники, к-рым тема интересна, как люди вежливые, просто пройдут мимо. Лучше обращаться обезличенно, к форуму. Т.е. вместо:
Цитата
KuklP, У меня ссылки на путь к файлам...
лучше будет:
Цитата
У меня ссылки на путь к файлам...
Есть больше шансов, что найдется кто-нить подогадливей меня(или другого, к кому обратитесь персонально).
Автор - KuklP
Дата добавления - 17.02.2014 в 17:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое заполнение таблицы путями к файлам (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!