Thread: Web
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default Web

Once you find the row, the columns are under the cells property.

"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