FileDialog在EXCLE中具体用法举例

`FileDialog` 是 VBA 中用于打开和保存文件对话框的对象。您可以使用 `FileDialog` 对象来与用户交互，以便选择文件或文件夹。

以下是使用 `FileDialog` 对象打开文件对话框的示例代码：

Sub OpenFileDialog()
    Dim dialog As FileDialog
    Dim selectedFile As Variant
    
    '创建文件对话框对象
    Set dialog = Application.FileDialog(msoFileDialogFilePicker)
    
    '显示文件对话框
    dialog.Show
    
    '选择了文件
    If dialog.SelectedItems.Count > 0 Then
        '获取选择的文件路径
        selectedFile = dialog.SelectedItems(1)
        
        '在此处添加处理选择文件的代码
        MsgBox "您选择的文件路径为：" & selectedFile
    End If
    
    '释放对象
    Set dialog = Nothing
End Sub

在代码中，我们首先创建了一个 `FileDialog` 对象，并将其设置为打开文件对话框。然后，我们使用 `Show` 方法显示文件对话框，并检查用户是否选择了文件。如果选择了文件，则获取选择的文件路径，并在消息框中显示该路径。最后，我们释放 `FileDialog` 对象以避免内存泄漏。

如果您想使用 `FileDialog` 对象打开文件夹对话框，请将创建 `FileDialog` 对象的代码改为以下内容：

Set dialog = Application.FileDialog(msoFileDialogFolderPicker)

这将创建一个打开文件夹对话框的 `FileDialog` 对象。