ExcelVBA获取同路径下某类文件名的绝对路径

Private Sub CommandButton7_Click() '---------------------------------------7.获取文件名的绝对路径

Dim FileName As String

Dim i As Long

Dim tmp As String

myPath = ActiveWorkbook.Path

FileName = Dir(myPath & "\*.doc*")

i = 1

Range("A:A").ClearContents

Do While FileName > ""

i = i + 1

Range("A" & i) = myPath & "\" & FileName

FileName = Dir

Loop

Cells(1, 1) = "绝对路径文件名"

Cells(1, 4) = "新文件名的绝对路径"

End Sub