tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^2: Excelが既に開いている時
投稿日： 2009/08/03(Mon) 22:47
投稿者： そいと
魔界の仮面弁士さん、ご回答ありがとうございます。
自分なりに整理して実行してみましたところ、やりたいことが
次の３パターンあります。NO.１はOKです。NO.２と３は下の様に
したいのですが、可能でしょうか？済みませんが宜しく
おねがいします。

’NO.１
'新しくブックを開いて、マクロを実行する物（Excelは既に開いている）
Private Sub Command1_Click()
    Set exl = GetObject(, "Excel.Application")
    With exl
        .Visible = True
        .Workbooks.Open "C:\TEST.XLS"
        .Run ("auto_open")
    End With
End Sub

’NO.２
’既にブックは開いており、マクロを実行する物（Excelは既に開いている）
Private Sub Command2_Click()
    Set exl = GetObject(, "Excel.Application")
    With exl
        .Windows("TEST2.XLS").Activate
        .Run ("macro2")
    End With
    Exit Sub
End Sub
’●Excelに強制的にフォーカスを写してマクロ実行したい。

’NO.３
’既にブックは開いているが、ブックが【表示しない】になっており、
　マクロを実行する物（Excelは既に開いている）
Private Sub Command3_Click()
    Set exl = GetObject(, "Excel.Application")
    With exl
        .Windows("TEST3.XLS").Activate '★
        .Run ("macro3")
    End With
    Exit Sub
End Sub
’●Excelに強制的にフォーカスを写してマクロ実行したい。
’●　★部でブックを指定したいが、これではブックが表示されてしまう。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。