Automating Internet with Excel VBA in Hindi
Makhanlal Chaturvedi University / BCA / VBA programming
Automating Internet Tasks using Excel VBA in Hindi
Automating Internet with Excel VBA in Hindi
Introduction to Automating Internet with Excel VBA
Excel VBA рдХрд╛ рдЙрдкрдпреЛрдЧ рд╕рд┐рд░реНрдл spreadsheet tasks рдХреЛ automate рдХрд░рдиреЗ рддрдХ рд╕реАрдорд┐рдд рдирд╣реАрдВ рд╣реИ, рдмрд▓реНрдХрд┐ рдЗрд╕рдХреЗ рдЬрд░рд┐рдП рдЖрдк рдЗрдВрдЯрд░рдиреЗрдЯ рд╕реЗ рдЬреБрдбрд╝реА рдЧрддрд┐рд╡рд┐рдзрд┐рдпреЛрдВ рдХреЛ рднреА control рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдЗрд╕рд╕реЗ рдЖрдк рд╡реЗрдмрд╕рд╛рдЗрдЯ рдЦреЛрд▓ рд╕рдХрддреЗ рд╣реИрдВ, рдЙрдирдореЗрдВ рд╕реЗ рдЬрд╛рдирдХрд╛рд░реА рдирд┐рдХрд╛рд▓ рд╕рдХрддреЗ рд╣реИрдВ, рдФрд░ рдЙрд╕ data рдХреЛ Excel рдореЗрдВ import рдХрд░рдХреЗ рдЙрдкрдпреЛрдЧ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред рдпрд╣ рд▓реЗрдЦ рдПрдХ beginner-friendly рдЧрд╛рдЗрдб рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рд╣рдо step-by-step рд╕реАрдЦреЗрдВрдЧреЗ рдХрд┐ Excel VBA рд╕реЗ рдЗрдВрдЯрд░рдиреЗрдЯ рдХреИрд╕реЗ automate рдХрд░реЗрдВред
Using VBA to open and browse websites in Excel in Hindi
- Excel VBA рдореЗрдВ рд╡реЗрдмрд╕рд╛рдЗрдЯ рдЦреЛрд▓рдиреЗ рдХреЗ рд▓рд┐рдП рд╕рдмрд╕реЗ рдкрд╣рд▓реЗ рд╣рдореЗрдВ Internet Explorer рдХреЗ рд╕рд╛рде interaction рдХрд░рдирд╛ рдкрдбрд╝рддрд╛ рд╣реИред
-
рдЗрд╕рдХреЗ рд▓рд┐рдП рд╣рдо VBA рдореЗрдВ рдПрдХ object рдмрдирд╛рддреЗ рд╣реИрдВ рдЬрд┐рд╕рдХрд╛ рдирд╛рдо рд╣реЛрддрд╛ рд╣реИ
InternetExplorer.Application
ред -
рдиреАрдЪреЗ рдПрдХ рдЙрджрд╛рд╣рд░рдг рджрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИ, рдЬрд┐рд╕рдореЗрдВ Google рдХреЛ Excel VBA рд╕реЗ рдЦреЛрд▓рд╛ рдЧрдпрд╛ рд╣реИ:
Sub OpenGoogle()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://www.google.com"
End Sub -
IE.Visible = True
рдХрд╛ рдорддрд▓рдм рд╣реИ рдХрд┐ Internet Explorer рдХрд╛ window user рдХреЛ рджрд┐рдЦреЗрдЧрд╛ред -
IE.Navigate
method рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рд╕реА рднреА рд╡реЗрдмрд╕рд╛рдЗрдЯ рдХреЛ рдЦреЛрд▓рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
Extracting data from Internet Explorer using Excel VBA in Hindi
- рд╡реЗрдмрд╕рд╛рдЗрдЯ рдЦреБрд▓рдиреЗ рдХреЗ рдмрд╛рдж рд╣рдо HTML document рдХреЛ read рдХрд░рдХреЗ рдЙрд╕рдореЗрдВ рд╕реЗ data extract рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
-
рдЗрд╕рдХреЗ рд▓рд┐рдП рд╣рдореЗрдВ HTML elements рдХреЛ рдкрд╣рдЪрд╛рдирдирд╛ рд╣реЛрддрд╛ рд╣реИ, рдЬреИрд╕реЗ рдХрд┐
getElementById
,getElementsByTagName
рдпрд╛getElementsByClassName
рдХрд╛ рдЙрдкрдпреЛрдЧред -
рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдпрджрд┐ рд╣рдореЗрдВ рдХрд┐рд╕реА paragraph рдХрд╛ content рдирд┐рдХрд╛рд▓рдирд╛ рд╣реИ:
Sub ExtractParagraph()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://example.com"
Do While IE.Busy Or IE.ReadyState <> 4
DoEvents
Loop
Dim doc As Object
Set doc = IE.Document
MsgBox doc.getElementsByTagName("p")(0).innerText
End Sub -
рдКрдкрд░ рджрд┐рдП рдЧрдП рдХреЛрдб рдореЗрдВ рдкрд╣рд▓рд╛
<p>
рдЯреИрдЧ рдХрд╛ content message box рдореЗрдВ рджрд┐рдЦрд╛рдпрд╛ рдЧрдпрд╛ рд╣реИред
Web scraping basics with Excel VBA in Hindi
- Web Scraping рдХрд╛ рдорддрд▓рдм рд╣реЛрддрд╛ рд╣реИ рдХрд┐рд╕реА рд╡реЗрдмрд╕рд╛рдЗрдЯ рдХреЗ рдкреЗрдЬ рд╕реЗ рдЬрд░реВрд░реА рдЬрд╛рдирдХрд╛рд░реА рдирд┐рдХрд╛рд▓рдирд╛ред
- Excel VBA рдореЗрдВ рд╣рдо Web Scraping рдХреЗ рд▓рд┐рдП Internet Explorer рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ рдХреНрдпреЛрдВрдХрд┐ рдпрд╣ рдПрдХ COM supported browser рд╣реИред
- scraping рд╕реЗ рдкрд╣рд▓реЗ рд╣рдореЗрдВ website рдХрд╛ structure (HTML layout) рд╕рдордЭрдирд╛ рд╣реЛрддрд╛ рд╣реИ рдЬрд┐рд╕рд╕реЗ рд╣рдореЗрдВ рдкрддрд╛ рдЪрд▓рддрд╛ рд╣реИ рдХрд┐ рд╣рдореЗрдВ рдХреМрди рд╕реЗ elements scrape рдХрд░рдиреЗ рд╣реИрдВред
-
Web scraping рдХреА рдмреЗрд╕рд┐рдХ рд╕реНрдЯреЗрдкреНрд╕:
- Internet Explorer object create рдХрд░рдирд╛
- рд╡реЗрдмрд╕рд╛рдЗрдЯ рдХреЛ navigate рдХрд░рдирд╛
- loading complete рд╣реЛрдиреЗ рддрдХ wait рдХрд░рдирд╛
- HTML elements рдХреЛ access рдХрд░рдирд╛
- data рдХреЛ Excel рдореЗрдВ paste рдХрд░рдирд╛
-
рдПрдХ рдЙрджрд╛рд╣рд░рдг рдЬрд┐рд╕рдореЗрдВ рдХрд┐рд╕реА рд╡реЗрдмрд╕рд╛рдЗрдЯ рдХреЗ рд╕рднреА links рдХреЛ Excel рдореЗрдВ рдирд┐рдХрд╛рд▓рд╛ рдЧрдпрд╛ рд╣реИ:
Sub ExtractLinks()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Navigate "https://example.com"
Do While IE.Busy Or IE.ReadyState <> 4
DoEvents
Loop
Dim doc As Object
Set doc = IE.Document
Dim allLinks As Object
Set allLinks = doc.getElementsByTagName("a")
Dim i As Integer
For i = 0 To allLinks.Length - 1
Cells(i + 1, 1).Value = allLinks(i).href
Next i
End Sub - рдКрдкрд░ рдХрд╛ code Excel sheet рдХреЗ column A рдореЗрдВ рд╕рднреА links рдХреЛ list рдХрд░ рджреЗрдЧрд╛ред
Exporting scraped data to Excel sheets in Hindi
- рдЬрдм scraping complete рд╣реЛ рдЬрд╛рдП, рддреЛ data рдХреЛ Excel рдХреЗ cells рдореЗрдВ store рдХрд░рдирд╛ рд╣реЛрддрд╛ рд╣реИред
- рд╣рдо loop рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рд╣рд░ element рдХреЛ Excel sheet рдХреЗ рдЕрд▓рдЧ-рдЕрд▓рдЧ rows/columns рдореЗрдВ paste рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
-
рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдЕрдЧрд░ рдХрд┐рд╕реА рд╡реЗрдмрд╕рд╛рдЗрдЯ рд╕реЗ product name рдФрд░ price рдирд┐рдХрд╛рд▓рдирд╛ рд╣реИ:
Sub ExtractProductDetails()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Navigate "https://example.com/products"
Do While IE.Busy Or IE.ReadyState <> 4
DoEvents
Loop
Dim doc As Object
Set doc = IE.Document
Dim products, prices As Object
Set products = doc.getElementsByClassName("product-name")
Set prices = doc.getElementsByClassName("product-price")
Dim i As Integer
For i = 0 To products.Length - 1
Cells(i + 1, 1).Value = products(i).innerText
Cells(i + 1, 2).Value = prices(i).innerText
Next i
End Sub - рдЗрд╕ code рдореЗрдВ рд╕рднреА product names рдФрд░ рдЙрдирдХреА prices Excel sheet рдореЗрдВ column A рдФрд░ B рдореЗрдВ рдЖ рдЬрд╛рдПрдВрдЧреАред
Important Tips for Beginners
- Internet Explorer рдЕрдм deprecated рд╣реИ, рдЗрд╕рд▓рд┐рдП VBA web scraping рдХреЗрд╡рд▓ internal tools рдпрд╛ рдкреБрд░рд╛рдиреЗ websites рдкрд░ рд╣реА рдХрд░реЗрдВред
- Internet Explorer рдЖрдзрд╛рд░рд┐рдд scraping рдХреЗрд╡рд▓ рдЙрдиреНрд╣реАрдВ websites рдкрд░ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИ рдЬреЛ рдмрд┐рдирд╛ JavaScript rendering рдХреЗ рднреА data рджрд┐рдЦрд╛ рджреЗрддреА рд╣реИрдВред
- VBA рдХрд╛
Set
keyword object assign рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рд╣реЛрддрд╛ рд╣реИ, рдЗрд╕реЗ рдХрднреА рдирд╛ рднреВрд▓реЗрдВред - Internet connectivity active рд╣реЛрдиреА рдЪрд╛рд╣рд┐рдП scraping рд╕реЗ рдкрд╣рд▓реЗред
Table Example for Output in Excel
Product Name | Price |
---|---|
Product A | тВ╣500 |
Product B | тВ╣750 |
FAQs
InternetExplorer.Application
object рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЖрдк IE.Navigate "https://example.com"
рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╡реЗрдмрд╕рд╛рдЗрдЯ рдУрдкрди рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
IE.Document
рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдЖрдк HTML elements рдХреЛ access рдХрд░рдХреЗ data extract рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдЬреИрд╕реЗ рдХрд┐ getElementsByTagName
рдпрд╛ getElementById
рд╕реЗред
Cells(row, column).Value = data
рдХреА рдорджрдж рд╕реЗ рд▓рд┐рдЦрд╛ рдЬрд╛рддрд╛ рд╣реИред рд╣рд░ item рдХреЛ loop рдореЗрдВ рдбрд╛рд▓рдХрд░ рдЕрд▓рдЧ-рдЕрд▓рдЧ cells рдореЗрдВ рд░рдЦрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред