0

自動でファイルパス取得が出来なくて困っています。

以下の処理を行っています。

ブラウザはCHROME

①対象のWEBへログイン

②対象の画面に移り、特定日付(当日)で検索

③検索結果をCSVでダウンロード

④CHROMEの左下をクリックして、CSVを開く(EXCEL)

⑤開いたCSV(EXCEL)のファイルパスを取得

⑤のファイルパスの取得は以下のスクリプトです。

Dim objExcel

On Error Resume Next
Set objExcel = Nothing
Set objExcel = GetObject(,"Excel.application")
On Error Goto 0
If objExcel Is Nothing Then
msgbox "No"
Else
SetUMSVariable $ファイル名$, objExcel.ActiveWorkbook.FullName
End If
Set objExcel = Nothing

⑤の実行時に、EXCELの認識されないのかメッセージボックス「NO」が表示されます。

ただし、

④と⑤の間にノードにある「待機ボックス」を挿入して、メッセージボックスが表示されて手動でOKクリックするか、

または

⑤を2回実行(一度目はメッセージボックス表示、手動でOKクリック)をするとファイルパス取得できます。

一旦、メッセージボックスのようなものを挟むとうまくいくようです。

出来れば、手動操作を無くしたいです。

何か良い方法はありますでしょうか?

anothersolution 編集済みのコメント
回答とコメントは、会員登録(無料)で閲覧できるようになります。