Dim FileName As String FileName = Dir("C:\My Documents*.xls")

如果你需要获取文件的完整路径和名称,可以将两种方法结合起来使用:

Dim FilePath As String Dim FileName As String FileName = Dir("C:\My Documents*.xls") FilePath = "C:\My Documents" & FileName

  •