Eklediğiniz kaynak kodları https://accesstr.net/sitegenel/webdeneme.htm adresine kaydedip form üzerine bu sayfayı çağırdım.

Siz koddaki

WebBrowser1.Navigate "https://accesstr.net/sitegenel/webdeneme.htm"

satırını kendi sayfanıza göre düzenleyiniz.

form açıldığında butona tıkladığınızda webbrowserdaki verileri tabloya aktarır. Kullanılan kod aşağıdadır.

Private Sub Komut7_Click()



    Dim IE As Object

    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object

    Dim HTML_TableRows As Object

    Dim RetVal As Variant, X, A As Integer, SATIRSAYISI As Integer

        

        Set IE = Me.WebBrowser1

        Set HTML_Body = IE.Document.All

        Set HTML_Tables = HTML_Body.tags("Table")

        Set MyTable = HTML_Tables(11)

        Set HTML_TableRows = MyTable.GetElementsByTagName("tr")

        For Each MyRow In HTML_TableRows

            X = X + 1

        Next

        

        SATIRSAYISI = (X - 1) / 1 '



        ReDim Sorgu(5, SATIRSAYISI - 1)

     

        X = 0

        For X = 0 To SATIRSAYISI - 1

        

          A = 1 + (1 * X)    '  

                                

            Sorgu(0, X) = MyTable.Rows(A).Cells(1).innerText

            Sorgu(1, X) = MyTable.Rows(A).Cells(2).innerText

            Sorgu(2, X) = MyTable.Rows(A).Cells(3).innerText

            Sorgu(3, X) = MyTable.Rows(A).Cells(4).innerText

            Sorgu(4, X) = MyTable.Rows(A).Cells(5).innerText

            Sorgu(5, X) = MyTable.Rows(A).Cells(6).innerText

        

         Next X



    Dim rc As DAO.Recordset

    Set rc = CurrentDb.OpenRecordset("Tablo1")

    

    X = 0

    

    For X = 0 To SATIRSAYISI - 1

    

        rc.AddNew

        

           rc![bsn] = Sorgu(0, X)

           rc![yakinligi] = Sorgu(1, X)

           rc![tcno] = Sorgu(2, X)

           rc![adi] = Sorgu(3, X)

           rc![soyadi] = Sorgu(4, X)

           rc![dogumtarihi] = Sorgu(5, X)



        rc.Update

    Next X

    

    Set rc = Nothing

    Me![Tablo1 alt formu].Requery

    

        GoTo SafeExit:

ErrHandler:

SafeExit:

    Set HTML_Body = Nothing

    Set HTML_Tables = Nothing

    Set MyTable = Nothing

    Set HTML_TableRows = Nothing

    Set HTML_TableDivisions = Nothing

    Set IE = Nothing



End Sub