друзья, перепробовав кучу способов но как то ни один не работает, так работает супер а вот как через chrom?
Код |
---|
Sub Test() 'zapusk_interneta
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application") 'C:\Users\Admin\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Google Chrome.lnk
IE.Visible = 1
IE.Navigate "https://eu.yl-griffin.com/tesco/"
Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
IE.Document.getelementbyid("txtUserName").Value = "??????"
IE.Document.getelementbyid("txtPassword").Value = "??????"
IE.Document.getelementbyid("btnLogin").Click |