Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/javascript/476.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/html/82.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用vba使用javascript创建网站_Javascript_Html_Excel_Vba_Web Scraping - Fatal编程技术网

使用vba使用javascript创建网站

使用vba使用javascript创建网站,javascript,html,excel,vba,web-scraping,Javascript,Html,Excel,Vba,Web Scraping,我试图从一个不改变页面间url,但运行javascript改变html页面的站点获取一些数据。我需要做的是点击一个按钮,然后在新页面中输入初始日期和最终日期来搜索我想要的数据。当我运行下面的代码时,代码无法识别屏幕上收费的新页面 到目前为止我一直使用的代码: Public Sub test() Dim Col As Long, Row As Long Dim rawNum As String Dim JavaString As String Dim ie As Object Dim

我试图从一个不改变页面间url,但运行javascript改变html页面的站点获取一些数据。我需要做的是点击一个按钮,然后在新页面中输入初始日期和最终日期来搜索我想要的数据。当我运行下面的代码时,代码无法识别屏幕上收费的新页面

到目前为止我一直使用的代码:

 Public Sub test()
 Dim Col As Long, Row As Long
 Dim rawNum As String
 Dim JavaString As String
 Dim ie As Object
 Dim ObjCollection As Object

my_url = "https://www.selic.rtm/portal-selic/"
Row = ActiveCell.Row
Col = 4 'column with phone number
rawNum = Cells(Row, Col).Value

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate my_url

Do Until ie.ReadyState = 4
    DoEvents
Loop

ie.Document.parentWindow.execScript "SelicPortal.navegacao.ir('/portal-selic-servicos/pesquisa-resultado-leilao.jsp')"

For i = 0 To 10
    Debug.Print ie.Document.getElementsByTagName("input")(i).Name
Next i

End Sub

我如何才能将值输入到javascript执行收费的新html中的新输入中?

您有任何错误吗?www.selic.rtm意外地关闭了连接。不完全如此,但html仅在屏幕上更改,我无法访问javascript执行更新的新html