Excel VBA: как прочитать имена файлов типа PDF и разбить их на столбец на листе

Question

В Excel 2003 есть ли способ прочитать имена файлов pdf из одиночного каталога и поместить их в электронную таблицу Excel?

Answer 1

Dim c as Range, tmp  
Dim FolderPath as string

FolderPath = "C:\MyFolder\" 
Set c = ActiveSheet.Range("A1")

tmp = Dir(FolderPath & "*.pdf")
Do While tmp<>""
  c.value = tmp
  set c = c.offset(1,0)  
  tmp=Dir()
Loop

Тим

Answer 2

Чтобы просмотреть список файлов из папки, взгляните на FileSystemObject .

Предоставьте нам больше информации о том, что вам нужно, мы поможем вам лучше.

1007 * Rgds *