我希望复制文本并从网站粘贴到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
结束子
有人请帮我。谢谢您。