2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« ExcelのApplication.ActivePrinterは「仕様障害」? | トップページ | DDEは多重処理に耐えません。 »

2007年1月18日 (木)

非表示で残ってしまったExcel/Wordなどを表示する。

Excel/Wordなどを非表示で実行していて、エラーなどで残ってしまったら、
まず表示に戻して、デバッグするなり、終了するなり、します。

Option Explicit
Show "Excel.Application"
'Show "Word.Application"

Sub Show(ProgID)
Dim Application
Set Application=GetExistingObject(ProgID)
If Err=0 Then
  Application.Visible=True
ElseIf Err=429 Then
  WScript.Echo ProgID,"Not Found"
Else
  WScript.Echo Err.Description & " (" & Err.Number & ")"
End If
End Sub

Function GetExistingObject(ProgID)
On Error Resume Next
Set GetExistingObject=Nothing
Set GetExistingObject=GetObject(,ProgID)
End Function

※IEの場合は、MenuBar.HTA、その他のアプリは、WordTasks.HTAを使う。

« ExcelのApplication.ActivePrinterは「仕様障害」? | トップページ | DDEは多重処理に耐えません。 »