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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Друзья
Ранг: Экселист
Сообщений: 8704
Репутация: 2258 ±
Замечаний: 0% ±

Excel 2010
[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


ЮMoney 41001841029809

Сообщение отредактировал 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 из 1
  • 1
Поиск:

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