verdiğiniz kodlar ile sayfalardaki satır sayılarını da alabiliyorum. Fakat rapor 1 sayfa olduğu zaman satır sayısını eksik veriyor ve ikinci sayfada kodun üzerine yazdığım yer hata veriyor.
Private Sub say2()
'On Error Resume Next
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(9)
Set HTML_TableRows = MyTable.GetElementsByTagName("DIV") "HATA BURADA"
For Each MyRow In HTML_TableRows
X = X + 1
Next
SATIRSAYISI = ((X - 1) / 6) - 3
Me![sayfa2] = SATIRSAYISI
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
bunu eğer 2. sayfa var ise şeklinde bir döngüyle falan çözebilirmiyiz. ve satır sayısı tek sayfada veya çift sayfada neden farklı oluyor anlayamadım.tek sayfalık raporun kaynak kodunu da 1. örneği bölerek düzenleyip gönderiyorum. teşekkürler.