ホーム
Excel VBA スニペット
ブック

ブック

2019.07.07
a

対象ブックが存在するか確認（Dir利用) 

'ブック確認
Sub 対象ブックが存在するか確認_D()
    Dim filePath As String
    filePath = "C:\Sample\Book1.xlsx"
    
     If Dir(filePath)  "" Then
        Debug.Print "存在する"
    Else
        Debug.Print "存在しない"
    End If
End Sub
a

対象ブックが存在するか確認（ファイルオブジェクト) 

Sub 対象ブックが存在するか確認_Fso()
    Dim fso As Object
    Dim filePath As String
    filePath = "C:\Sample\Book1.xlsx"
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    If fso.FileExists(filePath) Then
        Debug.Print "存在する"
    Else
        Debug.Print "存在しない"
    End If
End Sub

a

ブックが開かれているか確認 

Sub ブックが開いているか確認()
    Dim wb As Workbook
    Dim flag As Boolean
    For Each wb In Workbooks
        If wb.Name = "Book1.xlsx" Then
            flag = True
        End If
    Next wb
    If flag Then
        MsgBox "Book1 は開いている"
    Else
        MsgBox "Book1 は開いてない"
    End If
End Sub

a

ブックを保存 

'上書き保存
Workbooks("Dummy.xlsx").Close SaveChanges:=True

'保存せずに保存
Workbooks("Dummy.xlsx").Close SaveChanges:=False
a

ブックを開く 

'指定したブックを開く(ドライブ名・・・拡張子)
Workbooks.Open Filename:="C:\・・・\test.xlsx"

'指定したブックを開き、オブジェクト指定
Dim wb as As Workbook
Set wb1 = Workbooks.Open(Filename:="C:\・・・\test.xlsx")