Excel VBA: 使用函数 SelectAndOpenExcelFile() 打开文件

下面是定义一个 Excel VBA 子程序 (Sub) 来调用函数 (Function) 'SelectAndOpenExcelFile()' 并返回字符串的示例代码：

Sub CallSelectAndOpenExcelFile()
    Dim filePath As String
    
    ' 调用函数并获取返回值
    filePath = SelectAndOpenExcelFile()
    
    ' 在消息框中显示返回的文件路径
    MsgBox '选择的文件路径为: ' & filePath
End Sub

Function SelectAndOpenExcelFile() As String
    Dim fileDialog As FileDialog
    Dim selectedFile As Variant
    
    ' 创建文件对话框对象
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 允许选择多个文件
    fileDialog.AllowMultiSelect = False
    
    ' 显示文件对话框并获取选择的文件路径
    If fileDialog.Show = -1 Then
        ' 获取选择的文件路径
        selectedFile = fileDialog.SelectedItems(1)
        
        ' 返回选择的文件路径
        SelectAndOpenExcelFile = selectedFile
    End If
    
    ' 释放文件对话框对象
    Set fileDialog = Nothing
End Function

使用上述代码，你可以通过调用 'CallSelectAndOpenExcelFile()' 来启动一个文件对话框，选择一个 Excel 文件并返回其文件路径。然后，将文件路径显示在一个消息框中。