打开网页并保存图像

-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

打开网页并保存图像

回答

相关问题