Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If Not (pDisp Is WebBrowser1.object) Then Exit Sub MsgBox "完了" End Sub