Consulting

Results 1 to 2 of 2

Thread: Change from Internet Explore to Google Chrome

  1. #1
    VBAX Contributor
    Joined
    Nov 2009
    Posts
    114
    Location

    Change from Internet Explore to Google Chrome

    Don't know how to convert from Internet Explore to Google Chrome (Get the data from html)

       
       Dim chromePath As String
        
        Dim custid As Long
        Dim Lastrow2 As Long
        
        Sheets("abc").Select
        With ActiveSheet
        Lastrow2 = .Cells(.Rows.Count, "A").End(xlUp).Row
     
        For custid = 2 To Lastrow2
    
    
      chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
    
    
      Shell (chromePath & " -url http://abc.com?id=View&sCustid=" & Sheets("main").Cells(custid, 10).Value)
    The below part, I don't know how to convert?

       
        Dim objIe As Object, xobj As Object
    
    
        Set objIe = New InternetExplorerMedium
        
        objIe.Visible = True
        
    
    
    While objIe.Busy: DoEvents
    Wend
    Do
    Loop Until Not (objIe.Busy)
    
    
                             
    Dim a As Long
                 
     For a = 1 To 20
             
            Set xobj = objIe.document.getElementById("abc")
            Set xobj = xobj.getElementsByClassName("Start").Item(0)
            Set xobj = xobj.getElementsByTagName("td")(a)
            
            Sheets("1").Cells(1, a) = xobj.innerText
            
      Next a

  2. #2
    Knowledge Base Approver VBAX Wizard p45cal's Avatar
    Joined
    Oct 2005
    Location
    Surrey UK
    Posts
    5,874
    p45cal
    Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •