要插入到宏中的VBA选择导出文件的保存路径

Sub ExportFile()
    Dim filePath As String
    Dim fileDialog As FileDialog
    
    '创建一个文件对话框对象
    Set fileDialog = Application.FileDialog(msoFileDialogSaveAs)
    
    '设置文件对话框的标题
    fileDialog.Title = "选择导出文件的保存路径"
    
    '显示文件对话框并获取用户选择的文件路径
    If fileDialog.Show = -1 Then
        filePath = fileDialog.SelectedItems(1)
        
        '在这里可以进行导出文件的操作，例如保存工作簿为指定路径的文件
        ThisWorkbook.SaveAs filePath
        
        '显示保存成功的消息提示
        MsgBox "文件已成功导出至：" & filePath
    End If
    
    '释放文件对话框对象
    Set fileDialog = Nothing
End Sub