İşim için web sitesinden görselleri çekmem lazım! Yardımcı olur musunuz?

[dogankostu]

Merhabalar
Bir müşterime web sitesi yapıyorum. Benden önce çalıştığı adam şu an resimleri vermiyor. Web sitesinden tek tek resimleri indirmem lazım. Yaklaşık 3800 resim var. Ben kodu bir noktaya kadar getirdim devamını getirme konusunda yardımcı olur musunuz?
Bi yerde bulduğum kodu buraya kadar getirebildim. devamını getirirseniz sevirim.
Private Sub CommandButton1_Click()
Dim baglan As New Selenium.WebDriver, resim As Selenium.Image, keys As New keys
baglan.Start "chrome"
baglan.Get "https://www.ozelmetal.com.tr/tr/kafeterya/?p_size=27"

For i = 1 To 27

baglan.FindElementByXPath("/html/body/main/div[2]/div/div/div[1]/div[3]/div[2]/div/div[1]/div/div[" & i & "]/div/div[1]/a").Click keys.Control
baglan.SwitchToNextWindow








baglan.SwitchToPreviousWindow
baglan.Windows(2).Close
baglan.Windows(1).Activate

Next i
End Sub

 

[muratboz06]

HTTrack veya WebCopy programıyla websitesini bilgisayarınıza indirebilirsiniz. Linkte detaylı açıklama var.

Siteleri Tamamiyle İndirmenizi Sağlayan 4 Yöntem

Bu yazımızda internet siteleriniz çevrimdışı görüntülemek için indirmenizi sağlayan yöntemleri listeledik.

www.webtekno.com

 

[askm]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
Dim baglan As New Selenium.WebDriver, resim As Selenium.Image, keys As New keys
Dim foto As String
Dim screenShot As Image

konum = ThisWorkbook.Path
baglan.SetPreference "download.default_directory", konum
baglan.SetPreference "download.directory_upgrade", True
baglan.SetPreference "download.promt_for_Download", False

baglan.Start "chrome"
baglan.Get "https://www.ozelmetal.com.tr/tr/kafeterya/?p_size=27"

For i = 1 To 27
    baglan.FindElementByXPath("/html/body/main/div[2]/div/div/div[1]/div[3]/div[2]/div/div[1]/div/div[" & i & "]/div/div[1]/a").Click keys.Control
    baglan.SwitchToNextWindow
    
    foto = ThisWorkbook.Path & "\resim" & i & ".jpg"
    Set screenShot = baglan.FindElementById("sliderSyncingNav").TakeScreenshot(1000)
    screenShot.SaveAs foto
    
    baglan.SwitchToPreviousWindow
    baglan.Windows(2).Close
    baglan.Windows(1).Activate
Next i
End Sub

 

[dogankostu]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
Dim baglan As New Selenium.WebDriver, resim As Selenium.Image, keys As New keys
Dim foto As String
Dim screenShot As Image

konum = ThisWorkbook.Path
baglan.SetPreference "download.default_directory", konum
baglan.SetPreference "download.directory_upgrade", True
baglan.SetPreference "download.promt_for_Download", False

baglan.Start "chrome"
baglan.Get "https://www.ozelmetal.com.tr/tr/kafeterya/?p_size=27"

For i = 1 To 27
    baglan.FindElementByXPath("/html/body/main/div[2]/div/div/div[1]/div[3]/div[2]/div/div[1]/div/div[" & i & "]/div/div[1]/a").Click keys.Control
    baglan.SwitchToNextWindow
  
    foto = ThisWorkbook.Path & "\resim" & i & ".jpg"
    Set screenShot = baglan.FindElementById("sliderSyncingNav").TakeScreenshot(1000)
    screenShot.SaveAs foto
  
    baglan.SwitchToPreviousWindow
    baglan.Windows(2).Close
    baglan.Windows(1).Activate
Next i
End Sub

Öncelikle teşekkür ederim Klasöre kaydetmemk mümkünmüdür acaba?

 

[dogankostu]

HTTrack veya WebCopy programıyla websitesini bilgisayarınıza indirebilirsiniz. Linkte detaylı açıklama var.

Siteleri Tamamiyle İndirmenizi Sağlayan 4 Yöntem

Bu yazımızda internet siteleriniz çevrimdışı görüntülemek için indirmenizi sağlayan yöntemleri listeledik.

www.webtekno.com

Teşekkürler

 

[askm]

Öncelikle teşekkür ederim Klasöre kaydetmemk mümkünmüdür acaba?

Konum kismina nereye kaydetmesini istiyorsaniz yazabilirsiniz.

 

[dogankostu]

Konum kismina nereye kaydetmesini istiyorsaniz yazabilirsiniz.

Teşekkür ederim, çok sağolun
VBA öğrenmeye çalışıyorum daha çok acemiyim. İşim acil olduğu için size böyle bir zahmet vermiş oldum. Tekrardan sağolun