Channel: Dinesh Kumar Takyar

Category: Education

Tags: excel vba advanced tutorialfree excel vba examplesdownload vba examplesadvanced excel vbaexcel to vbaautomate data entry with chrome using excel macrosexcel vba for beginnersexcel vba youtubelearn advanced excel vbaautomate data entry with chrome using excel macros and seleniumexcel vba beginner tutorialexcel vba helpexcel vba for noobsexcel vba tutorials for beginnersexcel vba tutorialexcel vba for advanced learnersexcel vba easy

Description: How to automate data entry with Chrome using Excel macros and Selenium. Details available at exceltrainingvideos.com/automate-data-entry-with-chrome-using-excel-macros Here's the complete VBA macro code: Option Explicit Dim driver As New WebDriver Sub Test() Dim keys As New SeleniumWrapper.keys driver.Start "chrome" driver.Get "ssg2021.in/CitizenFeedback\" driver.Window.Maximize driver.Wait 1000 driver.FindElementById("State").Click driver.FindElementById("State").SendKeys Sheet1.Cells(2, 1).Value driver.Wait 1000 driver.FindElementById("District").Click driver.FindElementById("District").SendKeys Sheet1.Cells(2, 2).Value driver.Wait 1000 driver.SendKeys (keys.Enter) driver.FindElementByName("RespondentAge").SendKeys Sheet1.Cells(2, 3).Value driver.Wait 1000 driver.FindElementByName("RespondentName").SendKeys Sheet1.Cells(2, 4).Value driver.Wait 1000 driver.FindElementByName("RespondentMobileNo").SendKeys Sheet1.Cells(2, 5).Value driver.Wait 1000 driver.FindElementByName("RespondentGender").Click driver.Wait 1000 driver.FindElementByName("RespondentGender").SendKeys Sheet1.Cells(2, 6).Value driver.Wait 1000 driver.FindElementByClass("btn-primary").Click 'driver.SendKeys (keys.Enter) driver.FindElementByName("FQ1").Click driver.FindElementByName("FQ1").SendKeys Sheet1.Cells(2, 7).Value driver.Wait 1000 driver.FindElementByName("FQ2").Click driver.FindElementByName("FQ2").SendKeys Sheet1.Cells(2, 8).Value driver.Wait 1000 driver.FindElementByName("FQ3").Click driver.FindElementByName("FQ3").SendKeys Sheet1.Cells(2, 9).Value driver.Wait 1000 driver.FindElementByName("FQ4").Click driver.FindElementByName("FQ4").SendKeys Sheet1.Cells(2, 10).Value driver.Wait 1000 driver.FindElementByName("FQ5").Click driver.FindElementByName("FQ5").SendKeys Sheet1.Cells(2, 11).Value driver.Wait 1000 driver.SendKeys (keys.Enter) End Sub