CHROMEでダウンロードしたCSVのファイルパスの取得
自動でファイルパス取得が出来なくて困っています。
以下の処理を行っています。
ブラウザは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クリック)をするとファイルパス取得できます。
一旦、メッセージボックスのようなものを挟むとうまくいくようです。
出来れば、手動操作を無くしたいです。
何か良い方法はありますでしょうか?