VBA Excel 从 GetFolder.Files 返回的文件集合中获取第一个文件名

VBA是一种用于Excel的编程语言，它提供了丰富的功能和灵活的操作方式。在Excel中，我们经常需要处理各种文件，而VBA提供的GetFolder.Files函数可以帮助我们获取文件夹中的所有文件。接下来，我们将 ，介绍如何从GetFolder.Files返回的文件集合中获取第一个文件名，并附上案例代码。

vba
Sub GetFirstFileName()
    Dim folderPath As String
    Dim folder As Object
    Dim files As Object
    Dim firstFile As Object
    
    ' 定义文件夹路径
    folderPath = "C:\Folder\Subfolder"
    
    ' 获取文件夹对象
    Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath)
    
    ' 获取文件集合
    Set files = folder.Files
    
    ' 获取第一个文件对象
    Set firstFile = files.Item(1)
    
    ' 输出第一个文件的文件名
    MsgBox "第一个文件名为：" & firstFile.Name
End Sub

vba
Sub GetFirstFileName()
    Dim folderPath As String
    Dim folder As Object
    Dim files As Object
    Dim firstFile As Object
    
    ' 定义文件夹路径
    folderPath = "C:\Folder\Subfolder"
    
    ' 获取文件夹对象
    Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath)
    
    ' 获取文件集合
    Set files = folder.Files
    
    ' 获取第一个文件对象
    Set firstFile = files.Item(1)
    
    ' 输出第一个文件的文件名
    MsgBox "第一个文件名为：" & firstFile.Name
End Sub