Dim y As Integer Dim x As Integer Dim objTableItem As Object
'.body ‚loop body data For Each objTAG In objIE.document.body.all 'search for table tag If objTAG.tagName = "TABLE" Then 'add new sheet Sheets.Add y = 0 'row 'loop item in table For Each objTableItem In objTAG.all If objTableItem.tagName = "TR" Then y = y + 1 'row +1 x = 1 'columm=1 End If If objTableItem.tagName = "TD" Then 'set text data Cells(y, x) = objTableItem.innerText x = x + 1 'next columm End If Next End If Next
