Need help in getting price from web page

[vikas0903]

Hi, I am trying to get price for an item (can be seen by following url below) using VBA:
Natasha Sybil Collar Necklace | Dillards.com

While going through source code, I found element which refers to price as :
<div id="price" style="display:none;">
$78.00
</div>

I tried getting this in VBA by following code:
dim value as string
value = IEapp.document.getElementsByName("price").value

But I am getting error"
Object doesn't support this property or method.

Please help me understand, where I am making error. If someone can tell me correct code, it will be great.

Thanks again for your help.
-Vikas

 

[VBA Geek]

You need to declare a IHTMLELEMENT
Dim myEL as IHTMLELEMENT

FOR each myEL in IEapp.document.all
If myEL.id = "price" then
[A1] = myEL.innertext
exit for
end if
next

 

[vikas0903]

'**********************

You need to declare a IHTMLELEMENT
Dim myEL as IHTMLELEMENT

FOR each myEL in IEapp.document.all
If myEL.id = "price" then
[A1] = myEL.innertext
exit for
end if
next

'*************************
Thanks for the code VBA Geek. It worked perfectly.
Now I am getting stuck at next webpage, where I am trying to checkout:
https://www.dillards.com/webapp/wcs...derId=.&cm_sp=Header-_-ShoppingBag-_-TextLink

I am not able to clcik on "proceed to checkout" though VBA. I guess id is in this code:

<div class="cart-buttons" id="GroupButtonSet_A">

<div class="checkout-action-item">

<a id="shopCart-continue-shopping" href="TopCategoriesDisplay?langId=-1&storeId=301&catalogId=301" class="secondary"> Continue Shopping</a>
</div>
<div class="continue-checkout">


<button type="button" *******="javascript: document.ShopCartForm.inventoryCheck.value='no';SubmitNewCart(document.ShopCartForm);" class="primary">
Proceed To Checkout
</button>

but when I try to click it using following code, it does not work:
IEapp.document.getElementsByName("GroupButtonSet_A").Item.Click

I guess I am not referencing id correctly. Can you please help me on this? Thanks a lot.

 

[VBA Geek]

see if this works


FOR each myEL in IEapp.document.all
If trim(myEl.innertext) = "Proceed To Checkout" then
myEl.click
exit for
end if
next

 

[vikas0903]

see if this works


FOR each myEL in IEapp.document.all
If trim(myEl.innertext) = "Proceed To Checkout" then
myEl.click
exit for
end if
next

Thanks a lot. It worked perfectly.