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

被折叠的 条评论
为什么被折叠?