AccessTr.neT

(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.

Hocam; sayfada çok fazla resim olduğu için Access de sayfanın yüklenmesi çok çor oluyor. Bu nedenle Excel de kullanmak istiyorum.

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

(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

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.

Yurtdışı için olmuyormuş resimdeki gibi abey.O yüzden yapamıyorum.Resimdeki verilen likide kullandım olmadı.