Как вставить в Excel имена файлов?

excel microsoft Microsoft Office Microsoft Excel

Есть определённая папка с файлами различного типа. Необходимо в документ Excel вставить имена этих файлов. Как это можно сделать?
Ответы:
можно как сказал STosha, можно VBA-макросом, можно VBS-скриптом.
Пуск - Выполнить:
cmd /c dir "Полный путь к папке в кавычках" /a /b /-p /o:gen > "Полный путь к папке\filelisting.txt"
Затем откройте файл filelisting.txt сгенерированный в данной папке, и вы увидите, что он содержит имена всех файлов в директории. Ну а в файловых менеджерах типа Total Commander должна быть функция копирования имен файлов в буфер обмена.
А потом из полученного текстовика или просто скопировать, или импортировать данные. При импорте можно отсеять лишнюю информацию (ее там будет порядочно).
Sub XFiles()
   Path = "C:\Определенная_папка\"
   file = Dir(Path & "*.*") ' с файлами различного типа
   a = 1
   Do While file <> ""
       ThisWorkbook.Worksheets(1).Cells(a, 1) = file ' вставляем имена файлов в первый лист текущей книги
       a = a + 1
       file = Dir
   Loop
End Sub


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.