问题描述
我正在尝试使用 Selenium 驱动器在 Chrome 中使用 VBA 语言下载 this link。如果这也可以直接使用IE完成,请告诉我代码。
使用 IE 我尝试了以下代码
Sub Login_2_Website()
Dim oHTML_Element As IHTMLElement
Dim sURL As String
Set macrobook = ThisWorkbook
j = 2
On Error GoTo Err_Clear
Set obrowser = New InternetExplorer
obrowser.Visible = True
nr = ThisWorkbook.Worksheets(1).Cells(Rows.Count,1).End(xlUp).Row
For i = 2 To nr
obrowser.navigate ThisWorkbook.Worksheets(1).Cells(i,1)
Do
Application.Wait Now + TimeSerial(0,1)
Loop Until obrowser.Busy = False
Application.Wait Now + TimeSerial(0,2)
Set HTMLDoc = obrowser.document
'Name "C:\Users\RC06251\Documents\print.pdf" As "C:\Users\RC06251\Documents\" & nam & ".pdf"
Application.Wait Now + TimeSerial(0,1)
obrowser.ExecWB OLECMDID_PRINT,OLECMDEXEcopT_DONTPROMPTUSER
'nam = ThisWorkbook.Worksheets(1).Cells(i,2)
Application.Wait Now + TimeSerial(0,4)
Next
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)