當只有提交按鈕存在

我需要下載從網頁文件，但只有一個提交按鈕是存在的。
沒有直接到達文件的網址。
我試圖通過它的id來捕獲該按鈕，但VBA會刪除運行時錯誤'424'（需要對象）。
下面是代碼：當只有提交按鈕存在

Sub keler_submit() 
    Application.ScreenUpdating = False 
    Set IE = CreateObject("InternetExplorer.Application") 
    IE.navigate "https://www.keler.hu/T%C3%A1rsas%C3%A1gi%20esem%C3%A9nyek/" 
    While IE.Busy 
     DoEvents 
    Wend 
    Set doc = IE.document 
    gomb = doc.getElementById("ctl00_wpm_UserControlPortlet1682286671_ctl00_wpm_UserControlPortlet1682286671_userControlPortlet_DownloadButton1") 
    gomb.submit 
    Set IE = Nothing 
    Application.ScreenUpdating = True 
End Sub

預先感謝您

來源

2016-02-11 István

這些線是不正確的：所以你需要使用設置爲它分配

gomb = doc.getElementById("ctl00_wpm_UserControlPortlet1682286671_ctl00_wpm_UserControlPortlet1682286671_userControlPortlet_DownloadButton1") 
gomb.submit

doc.getElementById返回一個對象類型到一個變量。您嘗試訪問的元素應該被點擊而不是提交。 IE很有可能會顯示「您希望打開還是保存此文件」對話框，因此請先將IE對象顯示爲可見：

IE.visible = True 
Set gomb = doc.getElementById("ctl00_wpm_UserControlPortlet1682286671_ctl00_wpm_UserControlPortlet1682286671_userControlPortlet_DownloadButton1") 
gomb.click

來源

2016-02-11 13:44:01 barrowc

當只有提交按鈕存在

回答

相關問題