‘保存数据按钮事件
Private Sub SaveData_Click()
   
    Dim fso, oFile, sXml, fname, objStream
    Dim i
    ‘定义导出的文件名
    fname = “Rebate_Report1_” & Year(Now()) & “-” & Month(Now()) & “-” & Day(Now()) & ” ” & Hour(Now()) & “^” & Minute(Now()) & “^” & Second(Now())
    ‘显示另存为文件框以及保存为何种文件
    fname = Application.GetSaveAsFilename(InitialFileName:=fname, fileFilter:=”HEX file (*.hex), *.hex”)
    ‘如果成功打开对话框
    If fname <> False Then
        ‘ActiveWorkbook.Save
        ‘以文件流形式保存
        Set objStream = CreateObject(“ADODB.Stream”)
        With objStream
        .Open
        .Charset = “utf-16”
        .Position = objStream.Size
        ‘获取Excel中的数据转为xml文件
        .WriteText = getSheetXml
        .SaveToFile fname, 2
        .Close
        End With
        Set objStream = Nothing
       
        MsgBox “The report file has been saved successfully.”
    End If
End Sub

转载于:https://www.cnblogs.com/yuanweisen/archive/2009/01/06/1370503.html