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