打開網頁並保存圖像

-1

我目前使用下面的VBA代碼打開IE瀏覽器的網站：打開網頁並保存圖像

Set IE = CreateObject("internetexplorer.application") 
    IE.Visible = True 
    IE.Navigate "http://test.com"

我現在需要從網站上下載的影像，它具有以下源爲.gif（從使用檢查元素）：

<img src="test.php" align="left">

任何建議我該如何做到這一點，請？

來源

2015-10-14 Rahul

URLMON使用URLDownloadToFile功能，有太多的教程，有關職能 – milevyo

我需要的頁面上的圖像在那個時刻，這是一個GIF動畫，並在每次重新加載時間的頁面復位。 – Rahul

正在關注@ milevyo的回覆，[Googling around]（https://www.google.com/search?q=URLDownloadToFile&oq=URLDownloadToFile+&aqs=chrome..69i57&sourceid=chrome&es_sm=93&ie=UTF-8#q=urldownloadtofile+vba）發現許多有希望的網頁你有嘗試過嗎？此外，請參閱[Chip Pearson's]（http://www.cpearson.com/excel/downloadfile.aspx）關於下載文件的頁面。 – BruceWayne

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (_ 
ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 





Private Sub Command1_Click() 
    Dim sin As String 
    Dim sout As String 

    Dim ret As Long 

    sin = "https://upload.wikimedia.org/wikipedia/commons/0/0e/Balle.gif" 
    sout = Environ("HOMEPATH") & "\Desktop\" & "image.gif" 

    ret = URLDownloadToFile(0, sin, sout, 0, 0) 
    If (ret = 0) Then MsgBox "Succedded" Else MsgBox "failed" 
End Sub

來源

2015-10-14 19:41:32 milevyo

打開網頁並保存圖像

回答

相關問題