如何用vba保存excel工作簿？

一个新建的excel空白工作簿，如果要用vba将其保存在硬盘上，需要用Workbook.SaveAs方法。

打开一个硬盘上的excel工作簿，如果想对其执行保存操作，可以用Workbook.Save方法。

如果需要另存在另一个位置，可以使用Workbook.SaveAs方法。

如以下代码所示

Sub QQ1722187970()
    'xlsx格式的文件
    Const xlOpenXMLWorkbook = 51
    'xlsm格式的文件
    Const xlOpenXMLWorkbookMacroEnabled = 52
    'xls格式的文件
    Const xlExcel12 = 50
    Dim oWB As Workbook
    Set oWB = Excel.ThisWorkbook
    Dim sName As String
    sName = oWB.Path & "\" & "test.xlsx"
    oWB.SaveAs sName, xlOpenXMLWorkbook
End Sub

当打开一个excel工作簿，如果不想保存对它做的修改，可以设置它的Saved属性为true，这样在关闭excel 工作簿时将不会提示保存工作簿。