Excelを別プロセスで開く

' Excelを別プロセスで開くためのコード
Sub OpenAnotherProcess()
    Dim xlApp As Excel.Application
    Dim getFileName As Variant

    Set xlApp = CreateObject("Excel.Application")  'オブジェクト生成
    
    'ファイル選択ダイアログを表示
    getFileName = _
        Application.GetOpenFilename( _
            FileFilter:="Microsoft Excel ブック,*.xls*", _
            Title:="開くファイルを選択してください")
    
    ' ファイル選択されていると、String型となる
    If VarType(getFileName) = vbString Then
        '別プロセスでExcelブックを開く
        xlApp.Workbooks.Open getFileName
        xlApp.Visible = True
    Else
        MsgBox "ファイルが選択されていません！中止します！"
    End If
    Set xlApp = Nothing
End Sub