получить список файлов из папки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

получить список файлов из папки (Иное/Other)

cherkas

Дата: Вторник, 10.03.2015, 22:35 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 73

Репутация: 2 ±

Замечаний: 0% ±

2003

Здравствуйте знатоки! Есть одна проблема и как решить пока не придумал, решил получить консультацию.

Суть:

Есть несколько папок с фотографиями. Фотографий в папках около 30 000 шт. нужно в один столбец excel получить названия всех этих файлов, а во второй столбец название папки из которой эта фотография. Если это имеет значение, то названия кириллицей.

Возможно ли как то осуществить такое и если возможно помогите кто чем может.

За ранее всем спасибо.

PS как получать мне не принципиально, если получиться сделать по одной папке и получать только один столбец с названиями фотографий, то меня это тоже устроит, папки я уж и сам тогда проставлю. Всё же быстрее чем 30 000 фото руками вбивать.

Ответить

Nic70y

Дата: Вторник, 10.03.2015, 22:37 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9126

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Private Sub Workbook_Open()
     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.Cells(i, 1) = iFileName
     i = i + 1
     iFileName$ = Dir
     Loop
End Sub

[/vba]
всего не читал - только название темы...

ЮMoney 41001841029809

Ответить

gling

Дата: Вторник, 10.03.2015, 23:37 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2635

Репутация: 725 ±

Замечаний: 0% ±

2010

Есть вариант, макросы от разных производителей, объединенных в одном файле. Может и вам пригодится. Для включения в список, содержимого под папок, необходимо указать на любой документ вне этих папок (рядом с этими папками). Думаю разберетесь. Здесь про список

К сообщению приложен файл: 0083147.zip (57.7 Kb)

ЯД-41001506838083

Сообщение отредактировал gling - Среда, 11.03.2015, 07:48