All Topics of VBA programming ЁЯСЗ
All subjects of BCA ЁЯСЗ

Automating Internet with Excel VBA in Hindi

Buy all subjects pdf notes now [ examSpecial ]

Makhanlal Chaturvedi University / BCA / VBA programming

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

Excel VBA рдореЗрдВ рд╡реЗрдмрд╕рд╛рдЗрдЯ рдЦреЛрд▓рдиреЗ рдХреЗ рд▓рд┐рдП InternetExplorer.Application object рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдЖрдк IE.Navigate "https://example.com" рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╡реЗрдмрд╕рд╛рдЗрдЯ рдУрдкрди рдХрд░ рд╕рдХрддреЗ рд╣реИрдВред
рд╣рд╛рдВ, Excel VBA рдореЗрдВ IE.Document рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ рдЖрдк HTML elements рдХреЛ access рдХрд░рдХреЗ data extract рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рдЬреИрд╕реЗ рдХрд┐ getElementsByTagName рдпрд╛ getElementById рд╕реЗред
Web Scraping рдХрд╛ рдорддрд▓рдм рд╣реИ рдХрд┐рд╕реА рд╡реЗрдмрд╕рд╛рдЗрдЯ рдХреЗ HTML elements рд╕реЗ рдЬрд╛рдирдХрд╛рд░реА рдирд┐рдХрд╛рд▓рдирд╛ред Excel VBA рдореЗрдВ рдЗрд╕реЗ Internet Explorer рдХреЛ control рдХрд░рдХреЗ рдФрд░ HTML document рд╕реЗ рдЬрд░реВрд░реА data extract рдХрд░рдХреЗ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
Extract рдХрд┐рдП рдЧрдП data рдХреЛ Excel sheet рдореЗрдВ Cells(row, column).Value = data рдХреА рдорджрдж рд╕реЗ рд▓рд┐рдЦрд╛ рдЬрд╛рддрд╛ рд╣реИред рд╣рд░ item рдХреЛ loop рдореЗрдВ рдбрд╛рд▓рдХрд░ рдЕрд▓рдЧ-рдЕрд▓рдЧ cells рдореЗрдВ рд░рдЦрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред
Excel VBA рдореЗрдВ рдЖрдорддреМрд░ рдкрд░ Internet Explorer рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдХреНрдпреЛрдВрдХрд┐ рдпрд╣ VBA рдХреЗ рд╕рд╛рде COM object рдХреЗ рд░реВрдк рдореЗрдВ рдХрд╛рдо рдХрд░рддрд╛ рд╣реИред рд╣рд╛рд▓рд╛рдВрдХрд┐, рдпрд╣ рдЕрдм deprecated рд╣реЛ рдЪреБрдХрд╛ рд╣реИред
рд╣рд╛рдВ, рдЬрдм рдЖрдк рдХрд┐рд╕реА рд╡реЗрдмрд╕рд╛рдЗрдЯ рдХреЛ Excel VBA рд╕реЗ рдЦреЛрд▓рддреЗ рдпрд╛ scrape рдХрд░рддреЗ рд╣реИрдВ, рддреЛ active internet connection рдЬрд░реВрд░реА рд╣реЛрддрд╛ рд╣реИ рддрд╛рдХрд┐ рд╡реЗрдмрд╕рд╛рдЗрдЯ рдХрд╛ data load рд╣реЛ рд╕рдХреЗред

Please Give Us Feedback