ワークブックの操作 4

'ワークブックを新規に作成する
Sub AddWorkbook()
     Workbooks.Add
End Sub

2.ワークブックを開く

　ワークブックを開くにはOpenメソッドを使用します。

メソッド	引数	定数	内容
Open	Filename	--	開くブックのファイル名
	Password	--	読み取りのパスワードを指定
	WriteResPassword	--	書き込みパスワードを指定
	ReadOnly	True	ブックを読み取り専用モードで開く
		False	ブックを読み取り専用モードで開かない

'"c:\test.xls"に保存されているワークブックを開く
Sub OpenWorkbook()
     Workbooks.Open Filename := "c:\test.xls"
End Sub

'パスワード保護されたブックを開く
Sub OpenWorkbook()
     Workbooks.Open FileName:="c:\test.xls" , Password:="AAAABBBB"
End Sub

'書き込み保護されたブックを開く
Sub OpenWorkbook()
     Workbooks.Open FileName:="c:\test.xls" , _
                           WriteResPassword:="CCCCDDDD"
End Sub

'ブックを読み取り専用モードで開く
Sub OpenWorkbook()
     Workbooks.Open FileName:="c:\test.xls" , ReadOnly:=True
End Sub

組み込みダイアログ ボックスによりブックを開くにはDialogsオブジェクトを使用します。

'組み込みダイアログ ボックスによりブックを開く
Application.Dialogs(xlDialogOpen).Show

'ワークブック"Book1"を保存して閉じる
'新規の場合はダイアログボックスが表示される
Sub CloseWorkbook()
     Workbooks("Book1").Close SaveChanges:=True
End Sub

'ワークブック"Book1.xls"を保存しないで閉じる
Sub CloseWorkbook()
     Workbooks("Book1").Close SaveChanges:= False
End Sub

'ワークブック"Book1.xls"をファイル名"Book2.xls"に変更して閉じる
Sub CloseWorkbook()
     Workbooks("Book1").Close SaveChanges:=True, _
                                Filename := "Book2"
End Sub

'ワークブック"Book1.xls"を保存して閉じると共にExcelを終了する
Sub CloseWorkbook()     
     Application.Quit
     Windows("Book1.xls").Close True
End Sub

'ワークブック"Book1.xls"を保存しないで閉じると共にExcelを終了する
Sub CloseWorkbook()
     Application.Quit
     Windows("Book1.xls").Close True
End Sub

'"c:\test.xls"のファイル名で保存する
Sub SaveWorkbook()
     Workbooks("Book1").SaveAs Filename :="c:\test.xls"
End Sub

'"c:\test.csv"のファイル名で、CSV形式にて保存する
Sub SaveWorkbook()
     Workbooks("Book1").SaveAs Filename :="c:\test.csv" _ 
                                  , FileFormat := xlCSV
End Sub

'"c:\test.xls"のファイル名でパスワードを"aaaaaa"に設定して保存する
Sub SaveWorkbook()
     Workbooks("Book1").SaveAs Filename :="c:\test.xls"  _
                                    , Password := "aaaaaa"
End Sub