| ワークブック操作 |
|
■講義一覧
 1. ワークブックを開く
2. ワークブックを閉じる
3. ワークブックを保存する
4. ワークブックのイベントプロシージャ
■1.ワークブックを開く
'"c:\test.xls"に保存されているワークブックを開く
Sub OpenWorkbook()
Workbooks.Open Filename := "c:\test.xls"
End Sub
'パスワード保護されたブックを開く
Sub OpenWorkbook()
Workbooks.Open FileName:="c:\test.xls" , Password:="PASSWORD"
End Sub
|
一覧へ
■2.ワークブックを閉じる
'ワークブック"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
|
一覧へ
■3.ワークブックを保存する
'"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 := "Password"
End Sub
|
一覧へ
■4.ワークブックのイベントプロシージャ
・VisualEditよりThisWorkBookの選択し、該当のイベントを選択すると、自動的にコードに入力されます。
【イベント詳細】
| イベントコード |
内容 |
| Workbook_Open |
ワークブックを開いた時に発生します。 |
| Workbook_Activate |
ワークブックがアクティブになった時に発生します。 |
| Workbook_WindowActivate |
ワークブックウィンドウがアクティブになった時に発生します。 |
| Workbook_WindowResize |
ワークブックウィンドウがリサイズされた時に発生します。 |
| Workbook_BeforeClose |
ワークブックを閉じる前に発生します。 |
| Workbook_WindowDeactivate |
ワークブックウィンドウがアクティブでなくなった時に発生します。 |
| Workbook_Deactivate |
ワークブックがアクティブでなくなった時に発生します。 |
| Workbook_BeforeSave |
ワークブックを保存する前に発生します。 |
一覧へ
|
|
| |
A8ネット
・人気度：★★★★★
・言わずと知れた人気ASP
 |
| |
楽天市場
・人気度：★★★★★
・誰でも安心、楽天市場で
タワーレコード
・人気度：★★★★☆
・CD/DVDならタワレコで
|
|
