0

以前「開いているExcelブックの名前を取得する方法」という書き込みで以下のスクリプトを見て使わせていただいていたのですが

存在しないときは、どのように書けばよいのでしょうか?

Set objExcel = GetObject(, "Excel.Application")
SetUMSVariable $ファイルパス$, objExcel.ActiveWorkbook.FullName

VBSまったくわからないのですが、ネットみて以下のように書いてみたのですが、オブジェクトがありません。のエラーが発生しました。

On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If objExcel <> Nothing then
 SetUMSVariable $ファイルパス$, objExcel.ActiveWorkbook.FullName
end if

すいませんが教えていただけますでしょうか?(:_;)

*---- その後 このような状態となっております。同じことなのかもしれませんが。。。

以下をWinactorのスクリプトに張り付けると、

Excel開いているときはフルパス持ってきてくれます(これは今までと一緒です。)

Excel開いてない時、「No」は表示されますが、その後、「オブジェクトがありません」のエラーになります。

On Error Resume Next
Set objExcel = GetObject(,"Excel.application")
if objExcel is Nothing then
msgbox "NO"
else
SetUMSVariable $ファイルパス$, objExcel.ActiveWorkbook.FullName
end if 

この質問は解決済みのためクローズされています。
なんな~ん。 ベストアンサーとして選択しました
回答とコメントは、会員登録(無料)で閲覧できるようになります。