Excel VBA中断宏到期窗口弹出

时间:2014-07-21 13:06:26

标签: excel vba excel-vba

我想在下面的帖子中提出你的意见:

我有一个宏,这是一个“网站自动填充程序”。

有一次,我需要上传图片,然后我会得到一个常用的Windows上传屏幕。

但是在这一点上,尽管我已经使用了这个上传弹出窗口的宏,但我的宏被中断了。一切都会很完美如果我的宏可以向前跑。

如何返回宏继续运行宏?

我希望我很清楚:)

谢谢! Br:Marco

Sub a()
Application.ScreenUpdating = False
Dim IE As Object, timeout As Date, InStr As String
Dim title As Object
Dim reg As Object
Dim Description As Object
Dim Email As Object
Dim phone As Object
Dim agb As Object

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "http://olx.hu/hirdetesfeladas/"
    Application.Wait Now + TimeValue("00:00:05")
    Do While IE.ReadyState <> 4: DoEvents: Loop

Set rr = IE.Document.GetElementById("add-file-1")
    rr.Click
    Call hiv
End sub

声明“呼叫艾滋病毒”不起作用。

0 个答案:

没有答案