如何从Excel VBA中获取Windows资源管理器的选定文件？要做到这一点，需要哪些de VBA代码？

Sub GetSelectedFile()
    Dim fso As FileSystemObject
    Dim selectedFile As File
    Dim filePath As String
    
    ' 创建FileSystemObject对象
    Set fso = New FileSystemObject
    
    ' 获取资源管理器中选定的文件
    On Error Resume Next
    filePath = Application.GetOpenFilename("All Files,*.*", , "Select a file", , False)
    On Error GoTo 0
    
    ' 判断是否选择了文件
    If filePath <> "False" Then
        ' 获取文件对象
        Set selectedFile = fso.GetFile(filePath)
        
        ' 输出文件路径和名称
        MsgBox "Selected File: " & selectedFile.Path & "\" & selectedFile.Name
    Else
        MsgBox "No file selected."
    End If
    
    ' 释放对象
    Set selectedFile = Nothing
    Set fso = Nothing
End Sub