Вообщем дело в следующем...есть табличка с названиями файлов...есть файлы (в первом случае в одной папке с файлом excel, во втором - раскиданы по разным папкам...)...нужно чтобы макрос присвоил гиперссылки ячейкам с названиями файлов на сами файлы...для первого случая находил макрос для 2003 офиса...в 2007 убрали функцию которая там использовалась, адаптировать так и не смог. Если это не сложно - сделайте набросок макроса....у меня не получилось.
Вообщем дело в следующем...есть табличка с названиями файлов...есть файлы (в первом случае в одной папке с файлом excel, во втором - раскиданы по разным папкам...)...нужно чтобы макрос присвоил гиперссылки ячейкам с названиями файлов на сами файлы...для первого случая находил макрос для 2003 офиса...в 2007 убрали функцию которая там использовалась, адаптировать так и не смог. Если это не сложно - сделайте набросок макроса....у меня не получилось.nick7zmail
Sub nick7zmail() Dim cells As Range For Each cells In Range("a1:a10") cells.Hyperlinks.Add Anchor:=cells, Address:=cells.Value, TextToDisplay:=cells.Value Next cells End Sub
[/vba]
ЗЫ Смотрите в какой раздел постите! Тему перенёс
[vba]
Код
Sub nick7zmail() Dim cells As Range For Each cells In Range("a1:a10") cells.Hyperlinks.Add Anchor:=cells, Address:=cells.Value, TextToDisplay:=cells.Value Next cells End Sub
[/vba]
ЗЫ Смотрите в какой раздел постите! Тему перенёсSerge_007
Прошу прощения. Это был первый пост. Увидел в той ветке вопрос про макрос, запостил туда же. Для 1го варианта помогло) благодарю. А для 2го есть что нить столь же простенькое? Связанное с функцией поиска по фс, и нахождения в именах файлов текста ячейки?
Цитата (Serge_007)
ЗЫ Смотрите в какой раздел постите!
Прошу прощения. Это был первый пост. Увидел в той ветке вопрос про макрос, запостил туда же. Для 1го варианта помогло) благодарю. А для 2го есть что нить столь же простенькое? Связанное с функцией поиска по фс, и нахождения в именах файлов текста ячейки?nick7zmail
в первом случае в одной папке с файлом excel, во втором - раскиданы по разным папкам...
пример -в ячейках а1:а3 текст 1, 2, 3, файлы в папках Thisworkbook.Path\1\1\1.txt Thisworkbook.Path\1\2\2.doc Thisworkbook.Path\2\2\3.jpg...нужно чтобы в ячейках а1:а3 были гиперссылки на эти файлы...т.е. использовать поиск по фс (желательно с выставлением папки поиска...точнее скорее всего это обязательный параметр для функции будет), скопировать путь файла, выставить его в гиперссылке. (для моего случая мне бы хватило варианта, если бы расширения были одинаковыми...но с разными расширениями интереснее)) - просто узнать на будущее)
Цитата (Serge_007)
Это Вы о чём?
Цитата (nick7zmail)
в первом случае в одной папке с файлом excel, во втором - раскиданы по разным папкам...
пример -в ячейках а1:а3 текст 1, 2, 3, файлы в папках Thisworkbook.Path\1\1\1.txt Thisworkbook.Path\1\2\2.doc Thisworkbook.Path\2\2\3.jpg...нужно чтобы в ячейках а1:а3 были гиперссылки на эти файлы...т.е. использовать поиск по фс (желательно с выставлением папки поиска...точнее скорее всего это обязательный параметр для функции будет), скопировать путь файла, выставить его в гиперссылке. (для моего случая мне бы хватило варианта, если бы расширения были одинаковыми...но с разными расширениями интереснее)) - просто узнать на будущее)nick7zmail
Сообщение отредактировал nick7zmail - Вторник, 14.05.2013, 08:08
если в ячейке FullName. А если просто Name, то не тупо, а Thisworkbook.Path & Name
Верно! Я взял случайный файл - в нём были полные названия. Автор сам виноват - не соблюдает правила форума, отсюда и результат. Зарекался не помогать в таких случаях, да вот забыл...
Цитата (RAN)
если в ячейке FullName. А если просто Name, то не тупо, а Thisworkbook.Path & Name
Верно! Я взял случайный файл - в нём были полные названия. Автор сам виноват - не соблюдает правила форума, отсюда и результат. Зарекался не помогать в таких случаях, да вот забыл...Serge_007
Простите, чем же? Вопрос задал вполне конкретно, на что получил конкретный ответ который полностью устроил для решения 1ой ситуации, за что очень благодарен. Сделать полные ссылки вместо относительных не проблема. Вторую проблему расписал конкретнее в предыдущем посте. Буду еще более благодарен форумчанам если и это решится.
Цитата (Serge_007)
Автор сам виноват - не соблюдает правила форума
Простите, чем же? Вопрос задал вполне конкретно, на что получил конкретный ответ который полностью устроил для решения 1ой ситуации, за что очень благодарен. Сделать полные ссылки вместо относительных не проблема. Вторую проблему расписал конкретнее в предыдущем посте. Буду еще более благодарен форумчанам если и это решится.nick7zmail
Я их читал еще при создании темы, и все же в своих словах не нашел ничего не соответствующее...поэтому и прошу указать пункт который нарушен хотя бы... 1) поиском пользовался...находил пару отлично сделанных макросов и файлов excel по созданию списка файлов...очень понравились, но не то (как я уже говорил хотелось бы и в первом макросе сравнение с фс добавить (т.е. смотрим что написано в ячейке > ищем, есть ли такой файл в папке > если есть, делаем на него гиперссылку)... 2) тема вполне конкретная, точнее не назовешь... 3) задачи описаны полностью (для второго случая привел полнейшее разьяснение, первый в принципе решен, но см.выше, так было бы гораздо продуктивнее и интереснее))...кстати этот же макрос решил бы и 2ю задачу, т.к. глубина поиска задается)
прикладывать файлы никакие не вижу смысла...т.к. ситуация описана в общем случае в полном объеме, и смоделировать ее не проблема...могу конечно приложить excel файлик с ячейками a1:a3 с надписями 1,2,3 и заархивированый кусок дерева фс, но это помоему бессмысленно.
Дальнейший спор на эту тему я считаю - глупость и оффтоп. Зачем ссорится граждане форумчане =). Да и решения до сих пор нет... Как я уже говорил, пару лет назад находил макрос для 2003 офиса, и желающих увидеть его адаптацию под 2007+ (там он не работал, ибо убрали какую то функцию) было очень много судя по просьбам, комментам на форумах и тп...у меня это не получилось...и к сожалению повторно я его не смог найти. Но работал по той же схемке
Цитата (Я)
смотрим что написано в ячейке > ищем, есть ли такой файл в папке > если есть, делаем на него гиперссылку)
Пишите, у кого есть идеи, жду ответа. Заранее благодарен.
Цитата (Serge_007)
А Вы их почитайте
Я их читал еще при создании темы, и все же в своих словах не нашел ничего не соответствующее...поэтому и прошу указать пункт который нарушен хотя бы... 1) поиском пользовался...находил пару отлично сделанных макросов и файлов excel по созданию списка файлов...очень понравились, но не то (как я уже говорил хотелось бы и в первом макросе сравнение с фс добавить (т.е. смотрим что написано в ячейке > ищем, есть ли такой файл в папке > если есть, делаем на него гиперссылку)... 2) тема вполне конкретная, точнее не назовешь... 3) задачи описаны полностью (для второго случая привел полнейшее разьяснение, первый в принципе решен, но см.выше, так было бы гораздо продуктивнее и интереснее))...кстати этот же макрос решил бы и 2ю задачу, т.к. глубина поиска задается)
прикладывать файлы никакие не вижу смысла...т.к. ситуация описана в общем случае в полном объеме, и смоделировать ее не проблема...могу конечно приложить excel файлик с ячейками a1:a3 с надписями 1,2,3 и заархивированый кусок дерева фс, но это помоему бессмысленно.
Дальнейший спор на эту тему я считаю - глупость и оффтоп. Зачем ссорится граждане форумчане =). Да и решения до сих пор нет... Как я уже говорил, пару лет назад находил макрос для 2003 офиса, и желающих увидеть его адаптацию под 2007+ (там он не работал, ибо убрали какую то функцию) было очень много судя по просьбам, комментам на форумах и тп...у меня это не получилось...и к сожалению повторно я его не смог найти. Но работал по той же схемке
Цитата (Я)
смотрим что написано в ячейке > ищем, есть ли такой файл в папке > если есть, делаем на него гиперссылку)
Пишите, у кого есть идеи, жду ответа. Заранее благодарен.nick7zmail
Сообщение отредактировал nick7zmail - Среда, 15.05.2013, 16:41
Я так понимаю, что проблема 2003->2007 была в использовании метода .FileSearch. Теперь для совместимости при работе с ФС используют функцию Dir, а также FileSystemObject. Примеры
Я так понимаю, что проблема 2003->2007 была в использовании метода .FileSearch. Теперь для совместимости при работе с ФС используют функцию Dir, а также FileSystemObject. ПримерыAndreTM
Skype: andre.tm.007 Donate: Qiwi: 9517375010
Сообщение отредактировал AndreTM - Четверг, 16.05.2013, 07:17
Да, с ним проблемка была)...спс за пример, время будет, посмотрю...но я пробовал эти функции юзать в том макросе, что то там не выходило вроде...как попробую, отпишусь вообщем
Цитата (AndreTM)
.FileSearch
Да, с ним проблемка была)...спс за пример, время будет, посмотрю...но я пробовал эти функции юзать в том макросе, что то там не выходило вроде...как попробую, отпишусь вообщемnick7zmail
Нужна помощь в похожей ситуации. Стоит ли создать новый топик?
Столкнулся с подобной необходимостью для нужд лаборатории. Пример такой: Есть файл exl в котором исполнитель работы берет номер для протокола (столбец А). Оформляет его и сохраняет в папку «D:\Протоколы» в формате pdf с именем идентичным протоколу. Нужно что бы макрос при следующем открытии exl находил в папке «Протоколы» файл pdf с именем как в столбце А и создавал гиперссылку напротив в столбце F.
[moder]Да, создайте новую тему[/moder]
Нужна помощь в похожей ситуации. Стоит ли создать новый топик?
Столкнулся с подобной необходимостью для нужд лаборатории. Пример такой: Есть файл exl в котором исполнитель работы берет номер для протокола (столбец А). Оформляет его и сохраняет в папку «D:\Протоколы» в формате pdf с именем идентичным протоколу. Нужно что бы макрос при следующем открытии exl находил в папке «Протоколы» файл pdf с именем как в столбце А и создавал гиперссылку напротив в столбце F.