'保存數據按鈕事件
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

總結

以上是生活随笔為你收集整理的Excel文件弹出另存为代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。