対象ブックが存在するか確認(Dir利用) 'ブック確認Sub 対象ブックが存在するか確認_D() Dim filePath As String filePath = "C:\Sample\Book1.xlsx" If Dir(filePath) <> "" Then Debug.P... 2025.01.10
対象ブックが存在するか確認(ファイルオブジェクト) Sub 対象ブックが存在するか確認_Fso() Dim fso As Object Dim filePath As String filePath = "C:\Sample\Book1.xlsx" Set fso = CreateObjec... 2025.01.05
ブックが開かれているか確認 Sub ブックが開いているか確認() Dim wb As Workbook Dim flag As Boolean For Each wb In Workbooks If wb.Name = "Book1.xlsx" Then flag =... 2025.01.05
ブックを閉じる '上書き保存Workbooks("Dummy.xlsx").Close SaveChanges:=True'保存せずに保存Workbooks("Dummy.xlsx").Close SaveChanges:=False 2019.07.07
ブックを開く '指定したブックを開く(ドライブ名・・・拡張子)Workbooks.Open Filename:="C:\・・・\test.xlsx"'指定したブックを開き、オブジェクト指定Dim wb as As WorkbookSet wb1 = Wo... 2019.07.07