Storing to an Excel SS

[mv8167]

I need help with this code. Currently, the View, Fax and Zip links are in one column in the import table, and my export is also get stuck on one line,

My wish is to have the column and row numbers in two seperate columns followed by a third colum that indicates the Link innertect name (ie... rig004, View, Fax, or Zip). The WebElement:WebTable is being selected that innertext equals [View] [Zip] [Fax]. I need the WebTable: Select All -> Link : View where the innerhtml, innertext or text equals View, Fax or Zip.

see the attachment for how my output looks now, and what I am am hoping for.

Any coding help?

Code:

Set objExcel = createobject("Excel.Application") objExcel.Visible=True objExcel.Workbooks.Add Set TableObj = Browser("Wisdom").Page("Wisdom IA_2").Frame("parent").WebTable("Select All") RowCount = TableObj.RowCount msgbox RowCount For i = 1 to RowCount ColCount = TableObj.ColumnCount(i) 'msgbox ColCount For j = 1 to ColCount ChildCount = TableObj.ChildItemCount(i, j, "Link") If ChildCount > 0 Then InnerHtml = TableObj.Object.rows(i-1).Cells(j-1).innerHTML For k = 0 to ChildCount - 1 Set LinkObj = TableObj.ChildItem(i, j, "Link", k) LinkName = LinkObj.GetROProperty("text") objExcel.Cells(i, j).Value = TableObj.getcelldata(i,j) Next End If Next Next

thx everyone for looking ;-)

[rajpes]

Assuming you have created the column header (column,row,DocView)in an empty excel file,

Code:

Set objExcel = createobject("Excel.Application") objExcel.Visible=True objExcel.Workbooks.Add Set TableObj = Browser("Wisdom").Page("Wisdom IA_2").Frame("parent").WebTable("Select All") RowCount = TableObj.RowCount msgbox RowCount For i = 1 to RowCount [b]objExcel.Cells(i+1, 1).Value = i[/b] ColCount = TableObj.ColumnCount(i) 'msgbox ColCount For j = 1 to ColCount [b]objExcel.Cells(i+1, 2).Value = j[/b] ChildCount = TableObj.ChildItemCount(i, j, "Link") If ChildCount > 0 Then InnerHtml = TableObj.Object.rows(i-1).Cells(j-1).innerHTML For k = 0 to ChildCount - 1 Set LinkObj = TableObj.ChildItem(i, j, "Link", k) LinkName = LinkObj.GetROProperty("text") [b]objExcel.Cells(i+1, 3).Value = TableObj.getcelldata(i,j)[/b] Next End If Next Next