開いているExcelブックの名前を取得エラー回避方法
以前「開いている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