【VBA】ExcelファイルのOpen

※変数の定義を強制する方法：

一番上に、「Option Explicit」を追加して、変数の定義が必須となる。

ソース

Private Sub CommandButton2_Click()
//スクリーンのロック
Application.ScreenUpdating = False
//異常の発生の場合、「TheEnd」へ移動
On Error GoTo TheEnd
    '----↓----変数定義----↓----'
    Dim xlTmpBook As Excel.Workbook
    Dim thisSheet As Excel.Worksheet
    
    'ファイル集合
    Dim excelName As Variant
    '一時開いたファイル

    Dim q As Integer
    Dim colorRow As Integer

    'ファイルの型とダイアログのタイトルを設定、ファイル集合を返す
    excelName = Application.GetOpenFilename("Excelファイル (*.csv;*.xls), *.xls", , "★★★★Title★★★★", , True)
    
    '----↓----繰り返す----↓----'
    For q = 1 To UBound(excelName)
        If excelName(q) = False Then
            Exit Sub
        Else
            'Debug.Print excelName(q)
        End If
    
        '開いたファイルのチェック、存在しない場合、ファイル名が設定
        If IsObject(xlTmpBook) Then
            'ファイルが開く
            Set xlTmpBook = Application.Workbooks.Open(excelName(q))
        Else
            //処理中止
            Exit Sub
        End If
        //専用のシートを選択
        Set thisSheet = xlTmpBook.Worksheets("画面項目説明_詳細")
        
        //シートを活性化にする
        thisSheet.Range("A1").Activate
        
        //「A」列の一番最後の行を取得
        colorRow = CInt(thisSheet.Range(thisSheet.Cells(thisSheet.Rows.count, "A").End(xlUp).Address(ReferenceStyle:=xlA1)).Row)

        //..............
        //スクリプト
        //..............
        
        //「A1」セールを選定にする
        thisSheet.Cells(1, 1).Select
        
        If (MsgBox("更新しますか？", vbOKCancel) = vbOK) Then
            //開いたファイルを更新する
            xlTmpBook.Close savechanges:=True
        Else
            //開いたファイルを更新しない
            xlTmpBook.Close savechanges:=False
        End If
Next q
TheEnd:
//スクリーンのロック
Application.ScreenUpdating = true

End Sub