экспортировать имена файлов PDF в папку Excel

Я создал код, чтобы дать мне путь, и там имена для всех файлов в папке, чтобы преуспеть. Но моя проблема заключается в том, что он дает мне имена файлов всех файлов в этой папке. Я просто хочу искать и извлекать имена только pdf-файлов, чтобы преуспеть.

Вот что я имею:

Sub Example1() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer 'Create an instance of the FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder object Set objFolder = objFSO.GetFolder(Range("H1").Value) i = 1 'loops through each file in the directory and prints their names and path For Each objFile In objFolder.Files 'print file path Cells(i + 3, 2) = objFile.Path i = i + 1 Next objFile End Sub 

Согласно комментариям. Вам нужно проверить, являются ли последние три символа «pdf»

Поэтому в цикле for добавьте оператор if

 For Each objFile In objFolder.Files if right(objFile.Path,3) = "pdf" then 'print file path Cells(i + 3, 2) = objFile.Path i = i + 1 end if Next objFile 

Это должно работать:

 Sub Find_PDF() Dim FileToCheck As String, FilePath As String, FileWildCard As String FilePath = "c:\YOUR FILE PATH\" FileWildCard = "*.pdf" FileToCheck = Dir(FilePath & FileWildCard) Do While FileToCheck <> "" i = i + 1 Sheets("Sheet1").Range("A" & i).Value = FileToCheck FileToCheck = Dir() Loop End Sub 

Это не бесплатный сервис кодирования, но я бы ответил на все так:

 For Each objFile In objFolder.Files if right(objFile.Path,3) = "pdf" then 'print file path Cells(i + 3, 2) = objFile.Path i = i + 1 end if msgbox ("Answer are here dont troll on someone") Next objFile 
Interesting Posts

VBA: механизм базы данных доступа к Microsoft не смог найти объект (таблица рабочих таблиц SQL)

Как автофильтировать столбец с использованием значения ComboBox в качестве критериев в Excel VBA

вставка скребковых данных из Интернета в новый рабочий лист и имя рабочего листа на основе значений в столбце

Подсчет уровня аккаунта на одного уникального клиента

как предотвратить переопределение метода в java

Обновите ячейку excel котировками акций NSE (Национальной фондовой биржи)

Скопируйте динамический диапазон Excel в Word как цифру

Экспорт таблицы temp для Excel в SSIS

Инкрементный номер при изменении даты

Определение переменной Исходный диапазон для кода сводной диаграммы в VBA

Как создать непрерывный алфавитный список python (от az, затем от aa, ab, ac и т. Д.)

Экспорт Django CSV. Итерирование внутри списка

Excel необходимо вывести значения подстроки в переменные

Открытие файла Excel продолжает выдавать подсказки «Только для чтения»,

Множественные сочетания и процедура с параметрами

Давайте будем гением компьютера.