javascript - 无法使用vba点击提交按钮

Question

当我使用(从日期)到(到日期)去获取数据时，单击使用 vba 的显示按钮不起作用

我还需要建议，如何从多个日期下载 csv 文件

我想下载日期范围内每个日期的 csv 文件

Dim MP, FD, TD As String
MP = ActiveWorkbook.Name
FD = Sheets("Sheet1").Range("XFA2")
TD = Sheets("Sheet1").Range("XFB2")
Dim IE As New SHDocVw.internetexplorer
Dim HTMLDoc As MSHTML.HTMLDocument
IE.Visible = True
IE.navigate "https://www.mcxindia.com/market-data/bhavcopy"
ShowWindow IE.hwnd, SW_SHOWMAXIMIZED
Do While IE.readyState <> READYSTATE_COMPLETE
Loop
Set HTMLDoc = IE.document
For N = FD To TD
Workbooks(MP).Worksheets("Sheet1").Range("XEX2").Value = (FD)
N1 = Workbooks(MP).Worksheets("Sheet1").Range("XEX3").Value
HTMLDoc.getElementById("txtDate").Value = (N1)
HTMLDoc.getElementById("btnShowDatewise").Click
Next N

建议我单击提交按钮的代码以及如何下载多个日期文件，因为显示按钮需要时间来发布数据，然后我可以单击网页右侧面板上的 csv 选项卡

Answer 1

如果您只设置一天，您可以执行以下操作，其中包括检查该日期是否会生成下载文件

Option Explicit   
Public Sub Download()
    Dim ie As New InternetExplorer
    With ie
        .Visible = True
        .Navigate2 "https://www.mcxindia.com/market-data/bhavcopy"

        While .Busy Or .readyState < 4: DoEvents: Wend

        With .document
            .parentWindow.execScript "document.querySelector('#cph_InnerContainerRight_C001_txtDate_hid_val').value='20190201';"
            .parentWindow.execScript "document.querySelector('#txtDate').value='20190201';"
            .querySelector("#btnShowDatewise").Click

            If .querySelectorAll("#cph_InnerContainerRight_C001_lnkExpToCSV").Length > 0 Then
                .parentWindow.execScript "__doPostBack('ctl00$cph_InnerContainerRight$C001$lnkExpToCSV','');"
            End If

        End With

        While .Busy Or .readyState < 4: DoEvents: Wend
        '.Quit
    End With
End Sub