'アクティブブックを上書き保存します。
Sub 上書き保存()
ActiveWorkbook.Save
End Sub
'アクティブブックのコピーを「C:\」に「VBA集3.xls」という名前で保存します。
Sub コピー保存()
ActiveWorkbook.SaveCopyAs "C:\VBA集3.xls"
End Sub
'アクティブブックが保存されているかどうか取得します。
Sub 保存情報取得()
If ActiveWorkbook.Saved = True Then
MsgBox "保存済みです"
Else
MsgBox "未保存です"
End If
End Sub
'アクティブブックを任意の場所に保存できるように、ダイアログを表示して保存します。
Sub 保存ダイアログを表示して保存()
Dim F As Variant
F = Application.GetSaveAsFilename(, "エクセルファイル (*.xls), *.xls")
If F = False Then Exit Sub
ActiveWorkbook.SaveAs F
End Sub