使用Selenium WebDriver从Web复制和粘贴到Excel所需的代码

时间:2019-07-06 06:09:24

标签: selenium selenium-webdriver

我希望复制文本并从网站粘贴到excel中。有没有办法做到这一点。我尝试了一些方法,但是没有用。请帮我。

子PANAuto()

Dim obj As New WebDriver
obj.Start "Chrome", ""
obj.Get "https://www.tdscpc.gov.in/app/login.xhtml"

obj.FindElementByName("username").SendKeys (ThisWorkbook.Sheets("PAN_Validation").Range("E2").Value)
obj.FindElementByName("j_password").SendKeys (ThisWorkbook.Sheets("PAN_Validation").Range("E3").Value)
obj.FindElementByName("j_tanPan").SendKeys (ThisWorkbook.Sheets("PAN_Validation").Range("E4").Value)
**'here I want loop until I Click on Login Button. I Just used wait Command**
obj.Wait (15000)
obj.Get "https://www.tdscpc.gov.in/app/ded/panverify.xhtml"
obj.FindElementByName("pannumber").SendKeys (ThisWorkbook.Sheets("PAN_Validation").Range("C7").Value)
obj.FindElementByName("frmType1").SendKeys ("26Q")
obj.FindElementByName("clickGo1").Click
'here I want to copy and paste code in excel should come
obj.Wait (15000)
obj.FindElementByClass("last_menu").Click
obj.Quit

结束子

有人请帮我。谢谢您。

0 个答案:

没有答案