本ページには広告が含まれています。

【ExcelVBA】別インスタンスで開いて作業能率を上げよう

Excel VBA 別インスタンスで開いて作業能率を上げよう
2020.08.27

仕事でExcelを使っている人は、Excelを複数開いて作業をしている方が多いのではないでしょうか。
私もその一人です。しかも、大量のデータをVBAを使って処理しているため、同一インスタンス内で複数のブック（プロセス）が動いていた場合、一つのブックでVBA処理を実行させていると、VBAの処理が終了するまでは他のExcelでの作業は行えなくなってしまいます。
しかし、これは同一インスタンス内で実行されている場合のExcelの仕様です。

では、どうすればこれを改善できるでしょうか？
それは、複数の作業を同時に実行しなければならない場合は、別インスタンスでExcelを複数立ち上げれば改善できます。では、その方法を解説していきたいと思います。

この記事はVBAを使ってExcelを別インスタンス（プロセス）で開く方法を解説しています

スポンサーリンク

インスタンスとは？　プロセスとは？

「別インスタンスで開く」とか「別プロセスで開く」って、どっちも聞くけど
「インスタンス」とはなに？　　「プロセス」ってなに？

タスクマネージャーで「インスタンス」と「プロセス」を説明

タスクマネージャーでExcelの動作を確認
【EXCEL2016】を３つのインスタンスで起動、一番下は3つのブックが一つのインスタンスの中に！

「タスクマネージャー」のプロセスタブを見てみましょう。動いている「アプリ」が表示されていると思います。これがインスタンスです　（アプリ≒インスタンス）
では、 「Microsoft Excel」の左側の「＞」をクリックすると、実際に作業しているブックが表示されると思います。複数表示される場合は一つのインスタンス（アプリ）で複数のブックが動いているということです。このブックがプロセスです

・「インスタンス」とは、プログラム（Excel.Application)がメインメモリ上に起動されて、処理を実行できる状態にしたもの
・「プロセス」とは、インスタンスの中で稼働しているプログラム（ExcelのBook）ひとつひとつのことと、考えればよいのではと思いますが紛らわしいですよね

では、google先生で検索数を比較してみましょう
「別プロセス」が 約1,130,000件　＞「別インスタンス」が約210,000件　でした
「インスタンス」も「プロセス」も同じニュアンスで使用しているんですよね(^^;
むしろ「プロセス」が主流ということみたいですね

VBAで別インスタンス（プロセス）のExcelを開く

Excelを別インスタンス（プロセス）で開く方法はいくつかありますが、VBAを使って開く方法を紹介します（VBAを使わない他の方法は、後半で紹介します）

VBAコードはこちら（単一ファイル選択用）

Option Explicit
'エクセルを別プロセスで開くためのコード
Sub OpenSepPros()
    Dim xlApp As Excel.Application
    Dim selectFileName As Variant

    'CreateObject("Excel.Application")を宣言し変数を作成します。
    Set xlApp = CreateObject("Excel.Application")　’オブジェクト生成
    'ファイル選択ダイアログを表示
    selectFileName = _
        Application.GetOpenFilename( _
            FileFilter:="Microsoft Excel ブック,*.xls*", _
            FilterIndex:=1, _
            Title:="開くファイルを選択してください", _
            MultiSelect:=False) '複数の場合は True    
    If selectFileName <> False Then
        '別インスタンスでExcelブックを開く
        xlApp.Workbooks.Open selectFileName, ReadOnly:=False
        xlApp.Visible = True
        xlApp.WindowState = xlMaximized
    Else
        MsgBox "ファイルが選択されていません！中止します！"
    End If    
    Set xlApp = Nothing
End Sub

・xlApp で新たなエクセルアプリケーションオブジェクトを用意して
・選択したExcelファイルを用意したxlApp上に開いています

複数ファイル選択用のコードがこちら

Option Explicit
‘複数ファイル起動用
Sub OpenSepPros_2()
    Dim xlApp As Excel.Application
    Dim selectFileName As Variant
    Dim OpenFileName As Variant
    Dim PathName As String, fileName As String
    Dim pos As Long
    
    'ファイル選択ダイアログを表示
    selectFileName = _
        Application.GetOpenFilename( _
            FileFilter:="Microsoft Excel ブック,*.xls*", _
            FilterIndex:=1, _
            Title:="開くファイルを選択してください（複数可）", _
            MultiSelect:=True)
        '選択されたファイルに対する処理
        If IsArray(selectFileName) Then
            Call マクロ開始
            '全てのファイルに繰り返し処理を行う
            For Each OpenFileName In selectFileName
                pos = InStrRev(OpenFileName, "\")
                PathName = Left(OpenFileName, pos)
                fileName = Mid(OpenFileName, pos + 1)
                '新たなエクセルを用意
                Set xlApp = CreateObject("Excel.Application")
                '別プロセスでエクセルを開くコード
                xlApp.Workbooks.Open PathName & fileName, ReadOnly:=False
                xlApp.Visible = True
                xlApp.WindowState = xlMaximized
                Set xlApp = Nothing
                Application.ScreenUpdating = True
            Next
        Else
            MsgBox "ファイルが選択されていません！中止します！"
            Exit Sub
        End If
End Sub

・複数ファイルを選択できるダイアログに切り替えています
・選択ファイル名を配列に入れてループで一つづつ新たなプロセスで開いていきます
・シートに「ボタン」を配置してマクロを登録しておけばボタンクリックで起動します

【2022/11/29追記・修正】
掲載していたコード内に、テスト段階で使用していたコードの一部が残っていたため削除いたしました。削除した部分は次のとおりです。
・19行目　Call マクロ開始
・32行目　Application.ScreenUpdating = True (現在の31行目 Next の手前)
あわせて、ダウンロードページのサンプルファイルも差し替えしています。
※ ご利用いただいた方からメッセージをいただき修正に至りました。ありがとうございます。

VBAを使わない起動方法（Excel 2013以降）を少しだけ解説

コマンドラインから起動する

「ファイル名を指定して実行」から「excel /x」を実行すれば別プロセスで空のExcelが起動します

・【Windowsキー】＋【Rキー】を押すと「ファイル名を指定して実行」が開きます
・ 名前欄に「excel /x」と入力して、OKボタンをクリック（又はEnterキー押す）
　　　　　　　　 ↑ ここに半角スペースが入ります（エルとスラッシュの間）
・新たに開いた「空のExcel」から目的の開きたいファイルを開きます

すでに起動しているExcelのアイコンから起動する

・タスクバーに起動しているExcelのアイコン上で右クリック
・そして、下から3番目の「Excel」を【Altキー】を押しながら左クリック
・【Altキー】押しっぱなし（1～2秒）で
・「新しく別のExcelを起動しますか？」というメッセージが出るので「はい」を選択する
　　※環境により「上のメッセージ」が出ない場合があります

まとめ

実際にそれぞれ起動してみた感想

・VBAでの起動が一番簡単でラクです
・直接起動したいファイルを選択できるのがよいと思います
・手動で起動する方法は、手軽だけど開きたいファイルを後から選ぶのが面倒かな

気づきなど

・職場のPCではアイコンから手動で起動する場合のメッセージが表示されなかった
・表示されなかったけどタスクマネージャーで確認したら別プロセス起動できてました
・自宅PCは「Excel2016」なのにタスクマネージャーや手動起動の際「Excel」と表示
・どうもそれぞれの環境で動作や表示が違う場合があるようです

今回の記事はいかがだったでしょうか。お役に立てたなら幸いです
「別プロセス」「別インスタンス」どちらも同じでいいんじゃないかなぁ！

【今後の機能追加など…】
・長時間かかるVBA実行中にPCが休止状態やスリープになった場合、
　VBAも中断してしまいます。「終わっていると思ったら中断されていた」
　なんてことがないように対策を検討していきます
・高速化した「VlookUp関数」のVBAでの活用法を再検討してみたいと思います
・次回はこれらのどれかをクリアする対策を提示していきます。ご期待ください(^^)/

スポンサーリンク
エックスサーバーバナー広告
スポンサーリンク

サンプルファイルをダウンロードできます（下記リンク先へ）

記事で使用したサンプルファイルがダウンロードできるページを設置しています
こちら（このリンク先）からご利用ください

【Excel VBA】サンプルファイル_ダウンロードのページ
【Excel VBA】の記事内で使ったサンプルファイルを（Zipファイルで）ダウンロードできるようにしました。記事内では細かい部分の解説が不十分ですが、実際にファイルをダウンロードして実行することで使えるのかどうか見ていただけたら幸いです。
www.kurumico.com