| ワークブックの作成 |
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