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

Вход

Регистрация

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

 

= Мир MS Excel/Создание excel файла по именам файлов Папки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание excel файла по именам файлов Папки (Макросы/Sub)
Создание excel файла по именам файлов Папки
edbo Дата: Понедельник, 15.02.2016, 10:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, Уважаемые форумчане!
Такая проблема.
Имеется около 1000 файлов с именами типа "01-01-100, 01-01-101, ..." в Папке.
Задача.
Создать Файл Excel (макрос), который будет представлять из себя таблицу гиперссылок на Файлы этой Папки. Все это нужно для дальнейшего редактирования файла.
Естественно поиски по сети интернет результатов не дали.
Заранее благодарю всех неравнодушных :hands:.


Попытка - первый шаг к провалу. © Simpsons
 
Ответить
СообщениеДобрый день, Уважаемые форумчане!
Такая проблема.
Имеется около 1000 файлов с именами типа "01-01-100, 01-01-101, ..." в Папке.
Задача.
Создать Файл Excel (макрос), который будет представлять из себя таблицу гиперссылок на Файлы этой Папки. Все это нужно для дальнейшего редактирования файла.
Естественно поиски по сети интернет результатов не дали.
Заранее благодарю всех неравнодушных :hands:.

Автор - edbo
Дата добавления - 15.02.2016 в 10:34
Nic70y Дата: Понедельник, 15.02.2016, 10:37 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3476
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Sub FilesListHL()
Columns("A:A").ClearContents
    Dim iPath As String
    Dim iFileName As String
    Dim i As Long
    iPath = ThisWorkbook.Path
    iFileName$ = Dir(iPath$ & "\*.*")
    i = 1
    Do While iFileName$ <> ""
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=iFileName, TextToDisplay:="'" & iFileName
    i = i + 1
    iFileName$ = Dir
    Loop
End Sub
[/vba]

поправил строку
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=iFileName, TextToDisplay:="'" & iFileName


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Понедельник, 15.02.2016, 10:48
 
Ответить
Сообщение[vba]
Код
Sub FilesListHL()
Columns("A:A").ClearContents
    Dim iPath As String
    Dim iFileName As String
    Dim i As Long
    iPath = ThisWorkbook.Path
    iFileName$ = Dir(iPath$ & "\*.*")
    i = 1
    Do While iFileName$ <> ""
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=iFileName, TextToDisplay:="'" & iFileName
    i = i + 1
    iFileName$ = Dir
    Loop
End Sub
[/vba]

поправил строку
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=iFileName, TextToDisplay:="'" & iFileName

Автор - Nic70y
Дата добавления - 15.02.2016 в 10:37
edbo Дата: Понедельник, 15.02.2016, 11:26 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо


Попытка - первый шаг к провалу. © Simpsons
 
Ответить
СообщениеСпасибо

Автор - edbo
Дата добавления - 15.02.2016 в 11:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание excel файла по именам файлов Папки (Макросы/Sub)
Страница 1 из 11
Поиск:

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