ブックの各種保存方法 ： Excel

■ 上書き保存
Private Sub CommandButton2_Click()
    ActiveWorkbook.Save
End Sub

■ 名前を付けて保存
Private Sub CommandButton1_Click()
    ActiveWorkbook.SaveAs Filename:="c:\Excelテスト.xls", Password:="abc123"
End Sub

■ ダイアログを開き保存
Private Sub CommandButton3_Click()
    Application.Dialogs(xlDialogSaveAs).Show
End Sub

■ コピーを保存
Private Sub CommandButton4_Click()
    ActiveWorkbook.SaveCopyAs "c:\Excelテスト_コピー.xls"
End Sub

■ テキスト形式で保存
Private Sub CommandButton5_Click()
    ActiveWorkbook.SaveAs Filename:="c:\Excelテスト.txt", FileFormat:=xlText
End Sub

■ Web形式で保存
Private Sub CommandButton6_Click()
    ActiveWorkbook.SaveAs Filename:="c:\Excelテスト.htm", FileFormat:=xlHtml
End Sub

■ 作業状態を保存
Private Sub CommandButton7_Click()
    Application.SaveWorkspace "swspace"
End Sub