如何列出文件夹中的文件名

0立方米

我正在尝试在文件夹中创建文件名列表以供参考,以下代码列出了所有带有扩展名的文件名 Filename.pdf

如何从文件名中排除扩展名? .pdf

Option Explicit
Sub GetFileName()
    Dim xlRow As Long
    Dim sDir As String
    Dim FileName As String
    Dim sFolder As String

    sFolder = "C:\Temp\"

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder"
        .InitialFileName = sFolder
        .Show
        If .SelectedItems.Count <> 0 Then
            sDir = .SelectedItems(1) & "\"
            FileName = Dir(sDir, 7)

            Do While FileName <> ""
                Range("A1").Offset(xlRow) = FileName
                xlRow = xlRow + 1
                FileName = Dir
            Loop
        End If
    End With
End Sub
约翰·科尔曼

我不确定您要问什么,但我认为那不是100%

If FileName Like "*.pdf" Then
    Range("A1").Offset(xlRow) = Mid(FileName,1,Len(FileName)-4)
End If

可能就是你所追求的。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章