fatiheryildiz adlı üyeden alıntı:
mesajı görüntüle
fatiheryildiz adlı üyeden alıntı:
mesajı görüntüle
12
●252
Dim screenShot As Image
Set screenShot = x.FindElementByClass("g1-frame-inner").FindElementByTag("img").TakeScreenshot(1000)
screenShot.SaveAs (ThisWorkbook.Path & "\resim.jpg") Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As LongPtr
Sub gorselindir()
Url = indirfotourl
dosyaYolu = "C:\Users\Fotoğraflar\" & fotoisim & urlal & ".webp"
'"C:\Users\fatih\OneDrive\Masaüstü\Yeni klasör\" & "fotoisim" & i & ".jpg"
URLDownloadToFile 0, Url, dosyaYolu, 0, 0
Sheets("Haberler").Range("D" & HbBSonSatir + 1).Value = "İndirme Tamamlandı"
Sheets("Haberler").Range("E" & HbBSonSatir + 1).Value = fotoisim & urlal & ".webp"
'Next i
'MsgBox "Çalışma tamamlandı"
End Sub