Макрос текст из "Надпись"

[bedrock90]

Проблема в том, что файлы находятся в разных папках и у них разные уникальные имена (f134_01.08.2012 или 134-010812-1971). Нельзя ли сделать, кнопку на ленте, которая работала для всех файлов?

[Hugo121]

Ну вообще конечно можно написать код, который будет открывать все файлы Экселя, доступные на всех носителях, доступных с этого компьютера, там на всех листах искать такой Shapes("adrorg"), и копировать его текст в В2. И сохранять.
Думаю, у меня с сетевыми дисками за неделю управился бы...
Шутка

[bedrock90]

Похожий вопрос задавался здесь - http://www.programmersforum.ru/showthread.php?t=46380. Какие еще варианты, есть? А если попробовать с надстройкой, т.е. открыл файл, нажал кнопку, закрыл, вручную.

[EducatedFool]

Какие еще варианты, есть?

Вариант чего?
В любом случае, нужен макрос.
Как именно он будет работать - это уже другой вопрос (примерный алгоритм я описывал)

А если попробовать с надстройкой, т.е. открыл файл, нажал кнопку, закрыл, вручную.

Попробуйте. Разрешаю)
Вам не лень 700 файлов так обрабатывать?
Может, все-таки проще написать цикл (из 10 строк кода)?

[Hugo121]

Да в общем можно и без надстройки - положите этот уже готовый код в любой файл (добавьте 2 строки - начало и конец), на панель быстрого запуска (в 2007/10) кнопку к нему (или можно вызывать заданным сочетанием клавиш, что думаю будет в итоге практичнее).
Далее открываете в фоне этот файл, затем обрабатываемый файл, горячими клавишами выполняете код (можно туда ещё сохранение и закрытие файла дописать). Затем открываете следующий обрабатываемый...
Это если обрабатывать пару текущих файлов ежедневно.
Но на 700 я бы сделал как сказал тёзка ( ) - цикл по файлам выбранной в диалоге или специальной постоянной (если лень писать диалог или в той папке много мусора) папки и обработка всех подходящих.

[bedrock90]

Большое всем спасибо, буду делать дальше.

[Казанский]

Шайзе, кросспостинг: http://www.cyberforum.ru/vba/thread635151.html