Код, необходимый для копирования и вставки из Интернета в Excel с использованием селена webdriver - PullRequest
0 голосов
/ 06 июля 2019

Я хочу, чтобы текст был скопирован и вставлен в Excel с веб-сайта. Есть ли способ сделать это. Я пробовал некоторые методы, но не работал. Пожалуйста, помогите мне в этом.

Sub 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

End Sub

Кто-то, пожалуйста, помогите мне в этом. Заранее спасибо.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...