しなやか暮らし研究所パソコン処理 Excelの自動化ブックの操作

ブックの操作

ワークブックの作成

Workbooks.Add
Work_name = ActiveWorkbook.Name
Windows(Work_name).Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "当月データ"

ブックのコピー

FileCopy "C:\FFF\BBB.xls", "C:\F22\B22.xls"

※ ファイル属性が異なるとエラー

ブックの移動、リネーム

Name "C:\FFF\BBB.xls" As "C:\F22\BBB.xls"

ワークブックのオープン

Application.DisplayAlerts = False
Workbooks.Open ファイルフルパス
Application.DisplayAlerts = True

ワークブック
のRead Only Open

Workbooks.Open FileName:=ファイルフルパス, ReadOnly:=True

アクティブワークブック名
の取得

ReturnBook = ActiveWorkbook.Name

ファイルの更新日付取得

FileA = FileDateTime(ファイルフルパス)

アクティブブックの
指定シートへ指定ブックの
指定シートをコピー

Sheets("aaa").Select
Range("A7").Select
Workbooks(workbookファイル名). Sheets("bbb").Range("A1:T7").Copy
ActiveSheet.Paste

ワークブックの保存

ActiveWorkbook.SaveAs Filename:=DB_Path, FileFormat:= xlOpenXMLWorkbook, _
CreateBackup:=False

ワークブックの上書保存

Windows(DB_name).Activate
ActiveWorkbook.Save
 
Workbooks(name).Save

アクティブブックを閉じる

ActiveWorkbook.Close

ワークブックの削除

Kill "C:\FFF\BBB.xls"

確認メッセージを出さずにシートを削除

Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

確認メッセージを出さずにファイルを閉じる

Application.DisplayAlerts = False
Workbooks(指定月純新規).Close SaveChanges:=False
Application.DisplayAlerts = True

ワークブックを閉じると共にExcelを終了

Application.Quit
Windows("Book1.xls").Close True

ブックの操作　-　部品

ブックのクローズ

Workbooks("Book1").Close SaveChanges:=True
Workbooks("Book1").Close SaveChanges:= False
Workbooks("Book1").Close SaveChanges:=True, Filename := "full_path"

True	ブックの変更を保存します。
	ブックにファイル名が付けられていない場合は、引数 FileName を使ってファイル名を指定します。
	引数 FileName を省略すると、ファイル名の入力を促すダイアログ ボックスが表示されます。
False	ファイルの変更を保存しません。

ブックの存在チェック

flag = False
If Dir(Book_Path) <> "" Then flag = True

ブックのオープンチェック

Dim wb As Workbook
 
flag = False
For Each wb In Workbooks
    If wb.Name = Book_name Then flag = True
　　exit for
Next wb

10 11 12

ブックの操作

ブックの操作 - 部品

ブックのクローズ

ブックの存在チェック

ブックのオープンチェック

ブックの操作　-　部品