Excel VBA:如何读取PDF类型的文件名并将它们吐出到工作表的列中

时间:2011-03-31 00:17:09

标签: excel vba excel-2003

在Excel 2003中,有没有办法从单个目录中读取pdf文件名并将它们放在Excel电子表格中?

2 个答案:

答案 0 :(得分: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

答案 1 :(得分:0)

要列出文件夹中的文件,请查看FileSystemObject

提供更多关于您需要的信息,我们会更好地帮助您。

RGDS