vb.net如何使用保存对话框将excel工作簿保存到特定文件夹

Imports System.IO
Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        ' 创建Excel应用程序对象
        Dim excelApp As New Excel.Application()
        ' 打开Excel工作簿
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")

        ' 创建保存对话框对象
        Dim saveFileDialog As New SaveFileDialog()
        saveFileDialog.Filter = "Excel文件|*.xlsx"
        saveFileDialog.Title = "保存Excel文件"
        saveFileDialog.InitialDirectory = "C:\path\to\your\save\folder"
        saveFileDialog.FileName = "new_excel_file.xlsx"

        ' 显示保存对话框并获取用户选择的文件路径
        If saveFileDialog.ShowDialog() = DialogResult.OK Then
            ' 保存Excel工作簿到指定路径
            workbook.SaveAs(saveFileDialog.FileName)
            ' 关闭Excel工作簿和应用程序对象
            workbook.Close()
            excelApp.Quit()

            MessageBox.Show("Excel文件保存成功！")
        End If
    End Sub
End Class