Excelが既に起動している場合のブックを開く処理 (ID:142323)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Excelが既に起動している場合には、'???の部分にどうすれば
良いのでしょうか？起動しているExcelでブックを開きたいのです。
新しいExcelは起動したくないです。
Excelが起動していない場合は、以下で良好です。

Private Sub Command1_Click()
    Call Excel_exe("c:\test.xls", "macro1", exe_err)
End Sub

Private Sub Excel_exe(ByVal file_pn As String, ByVal exe_mn As String, ByVal exe_err As Boolean)
        Dim xlApp    As Excel.Application
        Dim xlbook   As Excel.Workbook
        Dim xlSheet  As Excel.Worksheet
        On Error GoTo Er1
        If Excel_Chk = True Then
                '???
            Else
                Set xlApp = CreateObject("Excel.Application")
                xlApp.Visible = True
                ' 指定したExcelファイルを開く
                Set xlbook = xlApp.Workbooks.Open(file_pn)
                xlApp.Run (exe_mn)
        End If
        ' オブジェクトを解放
        Set xlSheet = Nothing
        Set xlbook = Nothing
        Set xlApp = Nothing
        exe_err = False
        Exit Sub
Er1:
        ' エラーメッセージを表示
        exe_err = True
    End Sub

Private Function Excel_Chk()
    Dim xlApp As Object
        On Error Resume Next
        Set xlApp = GetObject(, "Excel.Application")
        If xlApp Is Nothing Then
            Excel_Chk = False
            MsgBox ("Excelは起動してません")
        Else
            Excel_Chk = True
            MsgBox ("Excelは起動してます")
        End If
        Set xlApp = Nothing
End Function

←解決時は質問者本人がここをチェックしてください。

戻る