Skip to main content

AccessTr.neT


Excel Makro İle Web Sayfasından Resim Alma

Excel Makro İle Web Sayfasından Resim Alma

#13
(28/04/2021, 12:26)idrisy yazdı:

Private Declare PtrSafe 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 OgrenciAktar()

        Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
       
        Dim X As Integer, Y As Integer, Z As Integer, A As Integer
        Set HTML_Body = WebBrowser1.Document.all
        Set HTML_Tables = HTML_Body.tags("Table")
        Set MyTable = HTML_Tables("dgListe")
        Set HTML_TableRows = MyTable.getElementsByTagName("td")
       
        Dim HTML_Img As Object, AlinanResim As Object
        Dim TempDir As String
 
       
        For Each MyRow In HTML_TableRows
        X = X + 1
        Next
       
        Z = (X - 5) / 5
        'On Error Resume Next

        ReDim Sorgu(15, Z - 1)
        X = 0

        For X = 0 To Z - 1
        Y = 1 + (1 * X)

       
       
        Next X

        A = 0
        X = 0
        For X = 0 To Z - 1
            Set HTML_Img = MyTable.getElementsByTagName("img")

            Set AlinanResim = HTML_Img(A)
        'HTML_Img(1).SetFocus
        TempDir = Environ("Temp")
        URLDownloadToFile 0, AlinanResim.src, TempDir & "\" & Mid(HTML_Img(A).src, InStr(1, HTML_Img(A).src, "=") + 1, 11) & ".png", 0, 0
        Me.resim1.Picture = TempDir & "\" & Mid(HTML_Img(A).src, InStr(1, HTML_Img(A).src, "=") + 1, 11) & ".png"

        URLDownloadToFile 0, AlinanResim.src, CurrentProject.path & "\Resimler\" & Mid(HTML_Img(A).src, InStr(1, HTML_Img(A).src, "=") + 1, 11) & ".jpg", 0, 0
        MetinSrc = Mid(HTML_Img(A).src, InStr(1, HTML_Img(A).src, "=") + 1, 11) 'HTML_Img(A).src
       
        A = A + 1
        Next X
       

Set HTML_Body = Nothing
Set HTML_Tables = Nothing
Set MyTable = Nothing
Set HTML_TableRows = Nothing
End Sub

atoykan hocam; accesste yukarıdaki kod ile resimleri alabiliyorum ancak excelle uyarlayamadım.
Yardım edebilirseniz sevinirim.
Dosyanın çalışır halini eklerseniz excele uyarlarız elimizden gelirse.
Cevapla
#14
Hocam; sayfada çok fazla resim olduğu için Access de sayfanın yüklenmesi çok çor oluyor. Bu nedenle Excel de kullanmak istiyorum.
.rar ÖğrenciAktarmaResim.rar (Dosya Boyutu: 400,26 KB | İndirme Sayısı: 6)
Cevapla
#15
Size bu işin Excel'de daha hızlı ve kolay olacağını söyleyen kim? Aynı motoru kullanıyorlar. Accessin ilişkisel yapısı daha hızlı sonuç almanızı sağlar Excel'de aynı performansı beklemeyin çok spesifik işler olmadığı sürece Excel çok daha yavaş kalacaktır ve veri yoğunluğuna bağlı olarak kilitlenmeler yaşanabilir bu tip uygulamalarda.
Bir hafta kadar daha aşırı yoğunluğum var malesef bizde sokağa çıkma sınırlaması olsa da projelerini yürüttüğümüz ülkelerde bu tip sınırlamalar yok, affınıza sığınarak arada fırsat bulabilirsem bakabileceğimi belirteyim. Sağolsunlar, varolsunlar @feraz ve @berduş hocalarım da teveccüh gösterip katkı sunacaklardır mutlaka
Cevapla
#16
(01/05/2021, 18:39)idrisy yazdı: Hocam; sayfada çok fazla resim olduğu için Access de sayfanın yüklenmesi çok çor oluyor. Bu nedenle Excel de kullanmak istiyorum.
Bende Access boş geliyor hiçbişey yok.

Açtım sonunda Img-grin
Cevapla
#17
Hocam; Sorun kodun hızında değil, sayfanın yüklenmesinde. Sayfada çok fazla resim olduğu için Access webbowserde sayfa çok uzun sürede yükleniyor, excelde İE üzerinden aldığı için sayfa çabuk yükleniyor.

Feraz Hocam; resimleri e-okuldan alıyorum. Resimleri almak için e-okula giriş yapıp. resimler sayfasına gitmeniz gerekiyor.
Son Düzenleme: 01/05/2021, 20:37, Düzenleyen: idrisy.
Cevapla
#18
Yurtdışı için olmuyormuş resimdeki gibi abey.O yüzden yapamıyorum.Resimdeki verilen likide kullandım olmadı.
[Resim: do.php?img=10975]
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task