保存編-エクセルのＶＢＡ集

---

保存編

指定の場所に指定の名前で保存するには？

'アクティブブックを「C:\」に「VBA集1.xls」という名前で保存します。
Sub 保存()
ActiveWorkbook.SaveAs "C:\VBA集1.xls"
End Sub

指定の場所に指定の名前でパスワード付で保存するには？

'アクティブブックを「C:\」に「VBA集2.xls」という名前で「1234」という読み取りパスワードを設定して保存します。
Sub パスワード保存()
ActiveWorkbook.SaveAs "C:\VBA集2.xls", , "1234"
End Sub

上書き保存するには？

'アクティブブックを上書き保存します。
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

ページトップ

---