VBA中DOM的另存为或保存对话框

Sub SaveDOMToFile()
    Dim dom As Object
    Set dom = CreateObject("htmlfile")
    
    ' 在此处对DOM对象进行操作
    
    ' 创建另存为对话框
    Dim saveDialog As Object
    Set saveDialog = Application.FileDialog(2) ' 2表示另存为对话框
    
    ' 设置对话框的标题和过滤器
    saveDialog.Title = "保存DOM对象"
    saveDialog.Filter = "HTML文件 (*.html)|*.html|XML文件 (*.xml)|*.xml"
    
    ' 显示对话框并获取用户的选择
    If saveDialog.Show = -1 Then
        ' 用户点击了保存按钮
        Dim filePath As String
        filePath = saveDialog.SelectedItems(1)
        
        ' 保存DOM对象到文件
        Dim fileStream As Object
        Set fileStream = CreateObject("ADODB.Stream")
        fileStream.Type = 2 ' 2表示二进制模式
        fileStream.Open
        fileStream.Write dom.DocumentElement.XML
        fileStream.SaveToFile filePath, 2 ' 2表示覆盖已有文件
        
        fileStream.Close
        Set fileStream = Nothing
        
        MsgBox "文件保存成功！"
    Else
        ' 用户取消保存
        MsgBox "取消保存！"
    End If
    
    Set saveDialog = Nothing
    Set dom = Nothing
End Sub