Thread: Web
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
fi.or.jp.de fi.or.jp.de is offline
external usenet poster
 
Posts: 93
Default Web

Sorry ron, i got it.

I didn't tested the second code you have given, just now tested works
fine.

I used like this, thank you very much ron....

Set Shtn = Sheets("sheet2")
Set doc_tables = ie.Document.getElementsByTagName("table")

For i = 1 To 15
For j = 1 To 3
ACell = doc_tables(1).Rows(i).Cells(j).innerText
Shtn.Cells(i, j) = ACell
Next j
Next i

one more, How do i check how many rows are available in a table ?

And "View" button still disabled i don't know why ? even after check
box checked.




On Oct 8, 9:48*pm, "fi.or.jp.de" wrote:
Ron, absolutely fine.

I am able get the table data into excel sheet.

I have tested for single row, which contains 3 tabs.

all the tabs data came in a single cell. how can i make it to
different columns.

Joel,

I didn't find href property

source code

* * * * * * <li class="pageButtons" id="summary_view_list"
* * * * * * * * <input class="buttonDefaultDisabled" type="button"
id="summary_view_button" name="html_but_view" disabled="disabled"
value=" View " title="View" onclick="submitNewAction
(document.html_form_list,'InstitutionAccount');"/
* * * * * * </li

On Oct 8, 8:12*pm, ron wrote:

On Oct 8, 8:47*am, "fi.or.jp.de" wrote:


Hi All,


I have table in web page with check box for each row.


And there is one option called "view", it is been disabled.


When i manually click the check boxes "view" button enables but when i
do
it on Excel Vba its not enabled.


check box code ..


For Each itm In ie.Document.getElementsByName("html_ckb_list")
* * itm.Checked = True
Next itm


How Can i enable "view" button ?


And also i need to copy the table to excel sheet ?


How can i achieve this.


I need to login web page and need to go for some other tabs to grab
this info.
So, I didn't mentioned the web address.


I know without web address it is difficult but any small clues will
help me more. i will try
for the rest, just give me hints to enable button and copy table
contents.


Thanks in advance.


There are a couple of ways to check a check box, maybe one of the
other ways will better simulate manually clicking the box. *Check the
source code for the name of the check box you want to select and then
try


* ie.document.all.Item("chk_box_name").Click


or


* check_bx = ie.document.all.Item("chk_box_name").Checked


As for copying the table try the following


* * Set doc_tables = ie.document.getElementsByTagname("table")
* * ActiveCell = doc_tables(0).innertext


If there is more than one table you'll have to find the correct
(number) for the table you want. *Also, if you just want part of the
table try the following constructions


To capture a row
* *ActiveCell = doc_tables(0).Rows(5).innertext


To capture part of a row
* *ActiveCell = doc_tables(0).Rows(5).Cells(5).innertext


Hope this helps...Ron