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

要列出文件夹中的文件，请查看 文件系统对象。

向操作系统提供有关您需要的更多信息，我们将更好地为您提供帮助。

参考值