Posts by saransh

sub test()
Dim xhr As MSXML2.XMLHTTP60
Dim doc As MSHTML.HTMLDocument
Dim results As MSHTML.HTMLDivElement
Dim elt As MSHTML.HTMLTableCell
Dim imgs As MSHTML.IHTMLElementCollection
Dim img As MSHTML.HTMLImg
Set xhr = New MSXML2.XMLHTTP60
With xhr
.Open "GET", "https://api.restb.ai/segmentation client_key=c529e4cb36fd71a0038e5790fd69a42eacaf378fa0789bba78b9782e073b88ed&model_id=re_features&image_url=https://www.mulderteam.com/wp-content/blogs.dir/234/files/2013/04/110922317.jpg", False
.send
If .readyState = 4 And .Status = 200 Then
Set doc = New MSHTML.HTMLDocument
doc.body.innerHTML = .responseText
End If
End With
Set HTML = New MSHTML.HTMLDocument
Sheets("List").Range("B2") = HTML.DocumentElement.innerHTML
End Sub

Sub test()
Dim IE As Object
Dim doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.99acres.com/3-bhk-bedroom-apartment-flat-for-sale-in-bestech-park-view-city-sector-48-gurgaon-1776-sq-ft-spid-O30991115?from_src=XIDPAGE_det&pos=XIDDETVIEW"
Application.StatusBar = "Loading, Please wait..."
While IE.Busy
DoEvents
Wend
Do
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now() + TimeValue("00:00:04"))
Set doc = IE.document
For Each elm In IE.document.getElementsByClassName("mw_content")
Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = elm.innerText
Next elm




For Each elm In IE.document.getElementsByClassName("mw_units")
Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = elm.innerText
Next elm




Application.StatusBar = "Searching for value. Please wait..."
IE.Quit
Set IE = Nothing
Application.StatusBar = ""
End Sub

Sub GoToWebSiteAndPlayAround()
Dim IE As New InternetExplorer
IE.navigate "http://www.99acres.com/eden-richmond-park-narendrapur-kolkata-south-npxid-r81550"
IE.Visible = False
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now() + TimeValue("00:00:02"))
Dim doc As HTMLDocument
Set doc = IE.document
Dim dd As Variant
dd = doc.getElementsByClassName("bankBodr bankTuple")(0).innerText
Sheets("Sheet1").Range("A2").Value = dd
IE.Quit
End Sub

Private Sub CommandButton1_Click()
Set IE = CreateObject("InternetExplorer.application")
 IE.Visible = True
  IE.navigate "My web Address1"
   Do
    If IE.readyState = 4 Then
     IE.Visible = True
      Exit Do
       Else
        DoEvents
    End If
Loop
   IE.document.forms(0).all("userlogin").Value = TextBox1.Value
     IE.document.forms(0).all("password").Value = TextBox2.Value
      IE.document.forms(0).submit
       While IE.Busy
        DoEvents
         Wend
          Unload Me
'=========================================================================
Dim lastRow As Long
lastRow = Sheets("Input").Range("A" & Rows.Count).End(xlUp).Row
For a = 2 To lastRow
Set IE = CreateObject("internetexplorer.application")
  IE.Visible = True
   IE.navigate "My web Address2"
    While IE.Busy
     DoEvents
      Wend
       Application.Wait (Now + TimeValue("0:00:04"))
         IE.document.getElementById("searchid").Value = "prop_id"
           IE.document.body.getElementsByTagName("SELECT").Item(0).selectedIndex = 3
            IE.document.body.getElementsByTagName("SELECT").Item(0).FireEvent ("onchange")
              IE.document.forms(0).all("optionid").Value = Sheets("Input").Range("A" & a)
                IE.document.forms(0).submit
                 While IE.Busy
                DoEvents
               Wend
             Application.Wait (Now + TimeValue("0:00:04"))
          Set doc = IE.document
        Set hcol = doc.getElementsByTagName("textarea")
       For Each Text In hcol
    If Text.ID = "access_reason" Then
 Text.Value = "Revew................................................................"
Exit For
End If
Next




With IE.document
    Set elems = .getElementsByTagName("input")
    For Each e In elems
        If (e.getAttribute("value") = "Login to my account of client") Then
            e.Click
            Exit For
        End If
    Next e
End With
While IE.Busy
DoEvents
Wend
IE.Quit
Sheets("All Listing").Select
Range("A1") = "Leads"
Range("B1") = "First Name"
Range("C1") = "Phone"
Range("D1") = "Email"
Range("E1") = "Description"
Range("F1") = "Follow Up Date"
Range("G1") = "Location Preference"
Range("H1") = "Listing ID"
Range("I1") = "Status"
Sheets("All Leads").Select
Range("A1") = "Leads"
Range("B1") = "First Name"
Range("C1") = "Phone"
Range("D1") = "Email"
Range("E1") = "Description"
Range("F1") = "Follow Up Date"
Range("G1") = "Location Preference"
Range("H1") = "Status"
Range("I1") = "Search Agent Name"
'Range("J1") = "Listing ID"
'All Listing
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.navigate "My web Address3"
While IE.Busy
DoEvents
Wend
Application.Wait (Now + TimeValue("0:00:04"))
On Error Resume Next
Set doc = IE.document
Dim dd As Variant
dd = doc.getElementsByClassName("tupple ng-scope")(0).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd




Dim dd1 As Variant
dd1 = doc.getElementsByClassName("tupple ng-scope")(1).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd1




Dim dd2 As Variant
dd2 = doc.getElementsByClassName("tupple ng-scope")(2).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd2




Dim dd3 As Variant
dd3 = doc.getElementsByClassName("tupple ng-scope")(3).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd3




Dim dd4 As Variant
dd4 = doc.getElementsByClassName("tupple ng-scope")(4).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd4




Dim dd5 As Variant
dd5 = doc.getElementsByClassName("tupple ng-scope")(5).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd5




Dim dd6 As Variant
dd6 = doc.getElementsByClassName("tupple ng-scope")(6).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd6




Dim dd7 As Variant
dd7 = doc.getElementsByClassName("tupple ng-scope")(7).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd7




Dim dd8 As Variant
dd8 = doc.getElementsByClassName("tupple ng-scope")(8).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd8




Dim dd9 As Variant
dd9 = doc.getElementsByClassName("tupple ng-scope")(9).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd9




Dim dd10 As Variant
dd10 = doc.getElementsByClassName("tupple ng-scope")(10).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd10




Dim dd11 As Variant
dd11 = doc.getElementsByClassName("tupple ng-scope")(11).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd11




Dim dd12 As Variant
dd12 = doc.getElementsByClassName("tupple ng-scope")(12).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd12




Dim dd13 As Variant
dd13 = doc.getElementsByClassName("tupple ng-scope")(13).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd13




Dim dd14 As Variant
dd14 = doc.getElementsByClassName("tupple ng-scope")(14).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd14




Dim dd15 As Variant
dd15 = doc.getElementsByClassName("tupple ng-scope")(15).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd15




Dim dd16 As Variant
dd16 = doc.getElementsByClassName("tupple ng-scope")(16).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd16




Dim dd17 As Variant
dd17 = doc.getElementsByClassName("tupple ng-scope")(17).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd17




Dim dd18 As Variant
dd18 = doc.getElementsByClassName("tupple ng-scope")(18).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd18




Dim dd19 As Variant
dd19 = doc.getElementsByClassName("tupple ng-scope")(19).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd19




Dim dd20 As Variant
dd20 = doc.getElementsByClassName("tupple ng-scope")(20).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd20








Dim dd21 As Variant
dd21 = doc.getElementsByClassName("tupple ng-scope")(21).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd21




Dim dd22 As Variant
dd22 = doc.getElementsByClassName("tupple ng-scope")(22).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd22




Dim dd23 As Variant
dd23 = doc.getElementsByClassName("tupple ng-scope")(23).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd23




Dim dd24 As Variant
dd24 = doc.getElementsByClassName("tupple ng-scope")(24).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd24




Dim dd25 As Variant
dd25 = doc.getElementsByClassName("tupple ng-scope")(25).innerText
Sheets("All Listing").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd25
'Next Page








'===================================================




While IE.Busy
DoEvents
Wend
IE.Quit
'All Leads
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.navigate "My web Address4"
While IE.Busy
DoEvents
Wend
Application.Wait (Now + TimeValue("0:00:04"))
On Error Resume Next
Set doc = IE.document
Dim dd26 As Variant
dd26 = doc.getElementsByClassName("tupple ng-scope")(0).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd26




Dim dd27 As Variant
dd27 = doc.getElementsByClassName("tupple ng-scope")(1).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd27




Dim dd28 As Variant
dd28 = doc.getElementsByClassName("tupple ng-scope")(2).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd28




Dim dd29 As Variant
dd29 = doc.getElementsByClassName("tupple ng-scope")(3).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd29




Dim dd30 As Variant
dd30 = doc.getElementsByClassName("tupple ng-scope")(4).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd30




Dim dd31 As Variant
dd31 = doc.getElementsByClassName("tupple ng-scope")(5).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd31




Dim dd32 As Variant
dd32 = doc.getElementsByClassName("tupple ng-scope")(6).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd32




Dim dd33 As Variant
dd33 = doc.getElementsByClassName("tupple ng-scope")(7).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd33




Dim dd34 As Variant
dd34 = doc.getElementsByClassName("tupple ng-scope")(8).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd34




Dim dd35 As Variant
dd35 = doc.getElementsByClassName("tupple ng-scope")(9).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd35




Dim dd36 As Variant
dd36 = doc.getElementsByClassName("tupple ng-scope")(10).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd36




Dim dd37 As Variant
dd37 = doc.getElementsByClassName("tupple ng-scope")(11).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd37




Dim dd38 As Variant
dd38 = doc.getElementsByClassName("tupple ng-scope")(12).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd38




Dim dd39 As Variant
dd39 = doc.getElementsByClassName("tupple ng-scope")(13).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd39




Dim dd40 As Variant
dd40 = doc.getElementsByClassName("tupple ng-scope")(14).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd40




Dim dd41 As Variant
dd41 = doc.getElementsByClassName("tupple ng-scope")(15).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd41




Dim dd42 As Variant
dd42 = doc.getElementsByClassName("tupple ng-scope")(16).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd42




Dim dd43 As Variant
dd43 = doc.getElementsByClassName("tupple ng-scope")(17).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd43




Dim dd44 As Variant
dd44 = doc.getElementsByClassName("tupple ng-scope")(18).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd44




Dim dd45 As Variant
dd45 = doc.getElementsByClassName("tupple ng-scope")(19).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd45




Dim dd46 As Variant
dd46 = doc.getElementsByClassName("tupple ng-scope")(20).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd46




Dim dd47 As Variant
dd47 = doc.getElementsByClassName("tupple ng-scope")(21).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd47




Dim dd48 As Variant
dd48 = doc.getElementsByClassName("tupple ng-scope")(22).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd48




Dim dd49 As Variant
dd49 = doc.getElementsByClassName("tupple ng-scope")(23).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd49




Dim dd50 As Variant
dd50 = doc.getElementsByClassName("tupple ng-scope")(24).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd50




Dim dd51 As Variant
dd51 = doc.getElementsByClassName("tupple ng-scope")(25).innerText
Sheets("All Leads").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = dd51
While IE.Busy
DoEvents
Wend




Require vba code for next page




IE.Quit
Next a




End Sub

</ul>
<li ng-class="{disabled:pagerObj.currentPage === 1}" ng-click="setPage(pagerObj.currentPage - 1);" class="disabled">Previous</li>
<!-- ngRepeat: page in pagerObj.pages track by $index -->
<li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope active">1</li>
<!-- end ngRepeat: page in pagerObj.pages track by $index -->
<li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope">2</li>
<!-- end ngRepeat: page in pagerObj.pages track by $index -->
<li ng-class="{active:pagerObj.currentPage === page}" ng-repeat="page in pagerObj.pages track by $index" ng-click="setPage(page, $event);" class="ng-binding ng-scope">3</li>
<!-- end ngRepeat: page in pagerObj.pages track by $index -->
<li ng-class="{disabled:pagerObj.currentPage === pagerObj.totalPages}" ng-click="setPage(pagerObj.currentPage + 1);">Next</li>
</ul>
</div>
</pagination>

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String




    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)




    strbody = Environ("USERNAME") & " " & "Login At " & Now()
              
    On Error Resume Next
    With OutMail
        .To = "abc.com"
        .CC = ""
        .BCC = ""
        .Subject = ThisWorkbook.FullName
        .Body = strbody




        .Send
    End With
    On Error GoTo 0




    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub