Not able to click on submit button using vba

Question

When i go to fatch data using (from date) to (to date), click on show button using vba not working

Also i need suggestion, How can i download csv file from multiple dates

i wanted to download csv file for each date between date range

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

Suggest me the codes to click on submit button and how to download multiple date files,since show button takes time to publish data and then i could click on csv tab on rightside penal of webpage

Please can you show the expected header row for your output. — QHarr
– QHarr, Commented Feb 19, 2019 at 5:50
@QHarr Expected Header Row "Date|Instrument|Commodity|Expiry Date|Option Type|Strike Price|Open|High|Low|Close|PCP|Volume (Lots)|Volume (000's)|Value (Lacs)|OI(Lots)" It should be in separate column — Ashish
– Ashish, Commented Feb 19, 2019 at 6:10
@QHarr i am inserting one date from date range and download file — Ashish
– Ashish, Commented Feb 19, 2019 at 6:57

QHarr · Accepted Answer · 2019-02-19 07:15:40Z

1

If you are only setting the one day you can do the following which includes a check that the date produces a download file

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

answered Feb 19, 2019 at 7:15

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Ashish Over a year ago

is there any way to save download file on specific path?

Ashish Over a year ago

is there any way to save downloaded file on specific path?

QHarr Over a year ago

use selenium. If you can find a way to use xhr then you can also do urlmon/binary download

Collectives™ on Stack Overflow

Not able to click on submit button using vba

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related