Skip to main content

VBA - IE automation get children element

Sub Contacts()
On Error Resume Next
Dim i As Long
Dim IE As Object
Dim objElement As Object
Dim objCollection As Object
' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")
' You can uncoment Next line To see form results
IE.Visible = True
' Send the form data To URL As POST binary request
Strt = ThisWorkbook.Sheets("Data").Cells(ThisWorkbook.Sheets("Data").Rows.Count, "C").End(xlUp).Row
If Strt = 1 Then
Strt = 2
End If
For csk = Strt To ThisWorkbook.Sheets("Data").UsedRange.Rows.Count
IE.Navigate ThisWorkbook.Sheets("Data").Cells(csk, 2).Value
' Wait while IE loading...
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Application.Wait (Now + TimeValue("0:00:05"))
Set objCollection = IE.Document.getelementsbyclassname("napu")
i = 0
While i < objCollection.Length
ThisWorkbook.Sheets("Data").Cells(csk, 3).Value = objCollection(i).Children(0).innertext
ThisWorkbook.Sheets("Data").Cells(csk, 4).Value = objCollection(i).Children(1).innertext
ThisWorkbook.Sheets("Data").Cells(csk, 5).Value = objCollection(i).Children(2).innertext
ThisWorkbook.Sheets("Data").Cells(csk, 6).Value = objCollection(i).Children(3).innertext
GoTo Line27
i = i + 1
Wend
Line27:
Next csk
End Sub

Comments

Post a Comment

Popular posts from this blog

Python - PyQt5 set Background image

import sys from PyQt5.QtCore import QSize from PyQt5.QtGui import QImage, QPalette, QBrush from PyQt5.QtWidgets import * class MainWindow ( QWidget ): def __init__ ( self ): QWidget. __init__ ( self ) self .setGeometry( 100 , 100 , 300 , 200 ) oImage = QImage( "test.jpg" ) sImage = oImage.scaled(QSize( 300 , 200 )) # resize Image to widgets size palette = QPalette() palette.setBrush( 10 , QBrush(sImage)) # 10 = Windowrole self .setPalette(palette) self .show() if __name__ == "__main__" : app = QApplication(sys.argv) oMainwindow = MainWindow() sys.exit(app.exec_())
2 comments
Read more

pymsgbox - python package for message box

#This tutorial for to get a confirmation from the user by promting window #Python package "pymsgbox" needs to be install before run this below code #To install "pymsgbox" package go to command prompt and type in "PIP3 INSTALL pymsgbox" import pymsgbox #Displays a message box with OK and Cancel buttons. Number and text of buttons can be customized. Returns the text of the button clicked on. replyV = pymsgbox.confirm( text = 'Please login your application and click on on okay' , title = 'Login Confirmation' , buttons =[ 'OK' , 'Cancel' ]) print (replyV) #Displays a simple message box with text and a single OK button. Returns the text of the button clicked on. replyV = pymsgbox.alert( text = '' , title = '' , button = 'OK' ) print (replyV) #Displays a message box with text input, and OK & Cancel buttons. Returns the text entered, or None if Cancel was clicked. replyV1 = pyms...
Post a Comment
Read more