Excelマクロ覚書 ～ブック操作編～
図書館で借りてきた某書籍の覚書です。
なんか見づらいので、いつか清書します・・・。
【ブックを新規に作成する】
ブックを新規作成するにはAddメソッドを使う。
Worksheetsコレクション.Add
Worksheets.Add 'ワークブックを追加する'
【ブックを開く】
既存のブックを開くにはOpenメソッドを使う。
Worksheetsコレクション.Open
Worksheets.Open Fielname:="C:User\Excel\今年度売上.xlsx" 'C:User\Excelフォルダの「今年度売上.xlsx」ファイルを開く'
読み取り専用でブックを開くには、引数ReadOnlyにTrueを指定する。
Worksheets.Open Fielname:="C:User\Excel\今年度売上.xlsx", ReadOnly:=True 'C:User\Excelフォルダの「今年度売上.xlsx」ファイルを読み取り専用で開く'【ブックを保存する】
ブックを上書き保存するにはSaveメソッドを使う。
ThisWorkbook.Save
ThisWorkbook.Save '上書き保存する'ブックを名前をつけて保存するにはSaveAsメソッドを使う。
ThisWorkbook.SaveAs
ThisWorkbook.Save '名前をつけて保存する'【ブックをアクティブにする】
ブックをアクティブ(切り替え表示)にするにはActivateメソッドを使う。
Workbooksオブジェクト.Activate
Workbooks("今年度売上.xlsx").Activate '「今年度売上.xlsx」をアクティブにする'
アクティブなブックの確認をするにはNameプロパティを使う。
ActiveWorkbook.Name
MsgBox ActiveWorkbook.Name 'ダイアログボックスにアクティブなブック名を表示する'【ブックを閉じる】
ブックを閉じるにはCloseメソッドを使う。
Workbooksオブジェクト.Close
ThisWorkbook.Close '閉じる'上書き保存せずに閉じるには、SaveChangesにFalseを設定する。
変更後は、必ずTrueにする。
ただし、保存してから閉じるのが基本。
Workbooksオブジェクト.Close SaveChanges: = False
Workbooks("Saving.xslm").Close '閉じる'
すべてのブックを閉じるにはFor Each～Nextステートメントを使う
For Each In Workbooks
Dim temp As Close
SaveChange Temp
Next
【PDFとして保存する】
ブックをPDF保存するには。ExportAsFixedFormatメソッドを使う。
Workbooksオブジェクト.ExportAsFixedFormat Type := ファイル形式, File:=ファイル名
Workbooks("今年度売上.xlsx").ExportAsFixedFormat _ Type := xlTypePDF, _ Filename := "C:\User\ExcelVBA\今年度売上.pdf" '「今年度売上.xlsx」をPDFにして、C:\User\ExcelVBAフォルダに保存する'
【Excelを終了する】
Excelを終了するには。Quitメソッドを使う。
Applicationプロパティ.Quit
Application.Quit 'Excelを閉じる'