Добрый день! подсобите кто чем сможет. заранее благодарен! В макросах очень зелен, всегда справлялся формулами, но тут необходимо извлечение информации из закрытых книг... дано: 300 файлов карточек клиентов на папке в сервере, куда юзеры лазят и обновляют данные (допустим путь \\PET\Archive\Customer Profiles\Имя_клиента1.xls), и суммарный файл со списком названий этих файлов (карточек клиентов). Задача: создать свод в таблице, где напротив наименования каждого файла подтягиваются значения из итоговой строчки этих файлов... надеюсь понятно объяснил, создал пример сохраняя логику в названиях файлов и значениях ячеек.
Добрый день! подсобите кто чем сможет. заранее благодарен! В макросах очень зелен, всегда справлялся формулами, но тут необходимо извлечение информации из закрытых книг... дано: 300 файлов карточек клиентов на папке в сервере, куда юзеры лазят и обновляют данные (допустим путь \\PET\Archive\Customer Profiles\Имя_клиента1.xls), и суммарный файл со списком названий этих файлов (карточек клиентов). Задача: создать свод в таблице, где напротив наименования каждого файла подтягиваются значения из итоговой строчки этих файлов... надеюсь понятно объяснил, создал пример сохраняя логику в названиях файлов и значениях ячеек.Alukard
создал пример сохраняя логику в названиях файлов и значениях ячеек
Ну, если у вас прям все в точности, как в примере, то вот так должно работать
[vba]
Код
Option Explicit Option Base 1
Sub Macros() Dim i&, r&, c&, s$, v(), f() With [C2:G21] r = .Rows.Count i = .Columns.Count v = .Columns(0).Value ReDim f(r, i) For r = 1 To r s = "='\\PET\Archive\Customer Profiles\[" & v(r, 1) & ".xls]Карточка клиента'!R4C" For c = 1 To i f(r, c) = s & c * 2 + 1 Next c, r .FormulaR1C1 = f End With End Sub
создал пример сохраняя логику в названиях файлов и значениях ячеек
Ну, если у вас прям все в точности, как в примере, то вот так должно работать
[vba]
Код
Option Explicit Option Base 1
Sub Macros() Dim i&, r&, c&, s$, v(), f() With [C2:G21] r = .Rows.Count i = .Columns.Count v = .Columns(0).Value ReDim f(r, i) For r = 1 To r s = "='\\PET\Archive\Customer Profiles\[" & v(r, 1) & ".xls]Карточка клиента'!R4C" For c = 1 To i f(r, c) = s & c * 2 + 1 Next c, r .FormulaR1C1 = f End With End Sub
KSV, добрый день! Как бы я ни пытался, но не могу сообразить как модифицировать кодировку под фактические строки и колонки, совсем не петрю в макросах, все только ломаю! Прошу помочь, выкладываю рабочие файлы Извиняюсь за паузу, думал что необходимость отпала, но нет... Заранее благодарен!!!
KSV, добрый день! Как бы я ни пытался, но не могу сообразить как модифицировать кодировку под фактические строки и колонки, совсем не петрю в макросах, все только ломаю! Прошу помочь, выкладываю рабочие файлы Извиняюсь за паузу, думал что необходимость отпала, но нет... Заранее благодарен!!!Alukard
Супер, работает шайтан машина!!! Спасибо огромное! А можно обнаглеть и попросить добавить строчку которая будет работать по условию, если имя файла в папке не найдено, т.е. в сводном файле оно значится но лист еще не создан и не заполнен, то макрос не запрашивает обновление ссылок на файл, а проставляет знаки вопросов по строке.... очень нужно потому как не все файлы еще созданы и постоянно щелкать ескейп не вариант.
Супер, работает шайтан машина!!! Спасибо огромное! А можно обнаглеть и попросить добавить строчку которая будет работать по условию, если имя файла в папке не найдено, т.е. в сводном файле оно значится но лист еще не создан и не заполнен, то макрос не запрашивает обновление ссылок на файл, а проставляет знаки вопросов по строке.... очень нужно потому как не все файлы еще созданы и постоянно щелкать ескейп не вариант.Alukard