VBA 遍历文件夹文件名称（不带后缀）

以下是 VBA 代码，可以遍历指定文件夹内的所有文件名称（不带后缀）：

Sub TraverseFolder()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Dim path As String
    Dim fileName As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 指定文件夹路径
    path = "C:\Users\Username\Desktop\TestFolder\"
    Set folder = fso.GetFolder(path)
    ' 遍历文件夹内所有文件
    For Each file In folder.Files
        fileName = Left(file.Name, InStrRev(file.Name, ".") - 1)
        ' 输出文件名（不带后缀）
        Debug.Print fileName
    Next file
End Sub

需要注意的是，需要先添加对'Microsoft Scripting Runtime'库的引用。在 VBA 编辑器中，依次点击'工具'-‘引用’，勾选'Microsoft Scripting Runtime'即可。