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

Вход

Регистрация

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

 

= Мир MS Excel/К существующему макросу добавить функционал - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » К существующему макросу добавить функционал (Макросы/Sub)
К существующему макросу добавить функционал
ArtyLight Дата: Воскресенье, 10.03.2019, 18:44 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Привет!
Имеется макрос который нарыл на просторах интернет, он сейчас собирает информацию о файлах в указанной папке.
Нужно чтобы из папки выбора он выбирал только файлы с расширением *.PDF
Это нужно для подготовки ИУЛ (информационно удостоверяющий лист) который содержит информацию о файле.

Заранее благодарен

MS Office Office 2010 x64 версия 14.0.7015.1000
 
Ответить
СообщениеПривет!
Имеется макрос который нарыл на просторах интернет, он сейчас собирает информацию о файлах в указанной папке.
Нужно чтобы из папки выбора он выбирал только файлы с расширением *.PDF
Это нужно для подготовки ИУЛ (информационно удостоверяющий лист) который содержит информацию о файле.

Заранее благодарен

MS Office Office 2010 x64 версия 14.0.7015.1000

Автор - ArtyLight
Дата добавления - 10.03.2019 в 18:44
bmv98rus Дата: Воскресенье, 10.03.2019, 20:24 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1786
Репутация: 292 ±
Замечаний: 0% ±

Excel 2013/2016
Вот эту часть подправить.
[vba]
Код
    For Each FileItem In SourceFolder.Files
        If FileItem.Name like "*PDF" then
        Cells(r, 1).Formula = FileItem.Name
        Cells(r, 2).Formula = FileItem.Path
        Cells(r, 3).Formula = FileItem.Size
        Cells(r, 4).Formula = FileItem.DateCreated
        Cells(r, 5).Formula = FileItem.DateLastModified
        r = r + 1
        x = SourceFolder.Path
        end if
    Next FileItem
[/vba]
 
Ответить
СообщениеВот эту часть подправить.
[vba]
Код
    For Each FileItem In SourceFolder.Files
        If FileItem.Name like "*PDF" then
        Cells(r, 1).Formula = FileItem.Name
        Cells(r, 2).Formula = FileItem.Path
        Cells(r, 3).Formula = FileItem.Size
        Cells(r, 4).Formula = FileItem.DateCreated
        Cells(r, 5).Formula = FileItem.DateLastModified
        r = r + 1
        x = SourceFolder.Path
        end if
    Next FileItem
[/vba]

Автор - bmv98rus
Дата добавления - 10.03.2019 в 20:24
ArtyLight Дата: Понедельник, 11.03.2019, 17:56 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо! А как сделать что бы он не был чувствителен к регистру расширения?
 
Ответить
СообщениеСпасибо! А как сделать что бы он не был чувствителен к регистру расширения?

Автор - ArtyLight
Дата добавления - 11.03.2019 в 17:56
krosav4ig Дата: Понедельник, 11.03.2019, 18:35 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1982
Репутация: 840 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
If lcase(FileItem.Name) like "*pdf" then
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
If lcase(FileItem.Name) like "*pdf" then
[/vba]

Автор - krosav4ig
Дата добавления - 11.03.2019 в 18:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » К существующему макросу добавить функционал (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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