vba - IEからのファイルのダウンロードが完了するまで待機するVBAコード

Question

WebページからExcelファイルをダウンロードしようとしていますが、これまでのところ、Webページを開いて移動し、保存ボタンをクリックすることはできましたが、ダウンロードしたらそのExcelファイルにアクセスする必要があります. ただし、ファイルのサイズによってはダウンロードに時間がかかる場合があります。ウィンドウをチェックして、ダウンロードが完了したかどうかを確認してから、ダウンロードしたファイルを開く方法はありますか? 以下はコードです。

Dim o As IUIAutomation
Dim e As IUIAutomationElement
Set o = New CUIAutomation
h = IE.hwnd

h = FindWindowEx(h, 0, "Frame Notification Bar", vbNullString)

If h = 0 Then

    MsgBox "Not Found"

End If


Set e = o.ElementFromHandle(ByVal h)
Dim iCnd As IUIAutomationCondition
Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Save")

Dim Button As IUIAutomationElement
Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
Dim InvokePattern As IUIAutomationInvokePattern
Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
InvokePattern.Invoke

上記のコードはダウンロードファイルを保存します