Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

How to navigate data from webpage in libre-macro?

 **Navigate data from web page coding in libre macro as follows:**

Sub navigateurl() URL = "http://keystonemanagement.com/apartments/me"

Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate URL

Do While IE.ReadyState <> 4 DoEvents Loop

Set propertyname = IE.document.getElementsByTagName("h4") number = propertyname.Length For i = 0 To number - 1

ThisComponent.Sheets(0).getCellbyPosition(i, 0) = propertyname(i).innerText ThisComponent.Sheets(0).getCellbyPosition(i,0) = propertyname(i).getElementsByTagName("a")(0).href

Next i End Sub

When I run this coding, came error as "BASIC runtime error.Object variable not set." How to execute this coding?

click to hide/show revision 2
None

How to navigate data from webpage in libre-macro?

 **Navigate 

Navigate data from web page coding in libre macro as follows:**

follows:

Sub navigateurl() URL = "http://keystonemanagement.com/apartments/me"

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate URL

URL

Do While IE.ReadyState <> 4 DoEvents Loop

Loop

Set propertyname = IE.document.getElementsByTagName("h4") number = propertyname.Length For i = 0 To number - 1

1

ThisComponent.Sheets(0).getCellbyPosition(i, 0) = propertyname(i).innerText ThisComponent.Sheets(0).getCellbyPosition(i,0) = propertyname(i).getElementsByTagName("a")(0).href

propertyname(i).getElementsByTagName("a")(0).href

Next i End Sub

Sub

When I run this coding, came error as "BASIC runtime error.Object variable not set." How to execute this coding?

click to hide/show revision 3
None

How to navigate data from webpage in libre-macro?

Navigate data from web page coding in libre macro as follows: Sub navigateurl() URL = "http://keystonemanagement.com/apartments/me"

 Set IE = CreateObject("InternetExplorer.Application")
 IE.Visible = True
 IE.Navigate URL

 Do While IE.ReadyState <> 4
    DoEvents
  Loop

 Set propertyname = IE.document.getElementsByTagName("h4")
 number = propertyname.Length
 For i = 0 To number - 1

   ThisComponent.Sheets(0).getCellbyPosition(i, 0) = propertyname(i).innerText
   ThisComponent.Sheets(0).getCellbyPosition(i,0) = propertyname(i).getElementsByTagName("a")(0).href

 Next i
 End Sub

When I run this coding, came error as "BASIC runtime error.Object variable not set." How to execute this coding?

click to hide/show revision 4
None

How to navigate data from webpage in libre-macro?

Navigate .

**Navigate data from web page coding in libre macro as follows: follows:**
        Sub navigateurl()
        URL = "http://keystonemanagement.com/apartments/me"

"http://keystonemanagement.com/apartments/me"

        Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = True
     IE.Navigate URL

     Do While IE.ReadyState <> 4
        DoEvents
      Loop

     Set propertyname = IE.document.getElementsByTagName("h4")
     number = propertyname.Length
     For i = 0 To number - 1

       ThisComponent.Sheets(0).getCellbyPosition(i, 0) = propertyname(i).innerText
       ThisComponent.Sheets(0).getCellbyPosition(i,0) = propertyname(i).getElementsByTagName("a")(0).href

     Next i
     End Sub

When I run this coding, came error as "BASIC runtime error.Object variable not set." How to execute this coding?