VBA获取文档名称

Sub FileNames()


Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i, j, lastRow As Integer
Dim inpath As String
Dim fso As Scripting.FileSystemObject
Dim temp

Set fso = New Scripting.FileSystemObject

Worksheets("FileName").Activate
lastRow = ThisWorkbook.Worksheets("FileName").Cells(Rows.Count, "A").End(xlUp).Row

'Clear content
'Range("A3:B40").Select
'Selection.clearContents
For j = 2 To lastRow
Cells(j, 1) = ""
Next j
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
inpath = Trim(ThisWorkbook.Worksheets("FileName").Range("I1"))
Set objFolder = objFSO.GetFolder(inpath)
i = 2
'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
    temp = Split(objFile.Name, ".")
    If temp(UBound(temp)) = "pdf" Then
    'If temp(UBound(temp)) = "jpg" Then
    'print file name
    Cells(i, 1) = temp(0)
    i = i + 1
    End If
Next objFile


Worksheets("FileName").Activate
Cells(2, 1).Select


End Sub