Ich versuche, eine Tabelle von dieser Website zu kopieren: http://www.nzfma.org/data/search.aspx#kopiert Drop-Down-Tabelle aus dem Internet VBA
Ich brauche das Datum als die gestrigen Datum auszuwählen, und dann kopieren und die Tabelle in eine Datei einfügen.
Mein Code ist unten:
Sub Test1()
'open IE, navigate to the website of interest and loop until fully loaded
Dim NZFMA As Worksheet
Dim TodayN As Range
Dim elemCollection As Object
Set NZFMA = Sheets("NZFMA")
Set TodayN = NZFMA.Range("B2")
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "http://www.nzfma.org/data/search.aspx"
Do Until Not ie.Busy And ie.ReadyState = 4
DoEvents
Loop
'Select the dates from the drop-down box
ie.Document.getElementbyid("ctl00_cphBody_rdpDate_dateInput").Value = Format(TodayN, "yyyy-mm-dd")
'Click the submit button
ie.Document.getElementbyid("cphBody_btnSearch").Value = "Search"
'Copy the results
Set elemCollection = ie.Document.getElementbyid("cphBody_upResults")
While ie.ReadyState = 4
DoEvents
Wend
End With
End Sub
Aus irgendeinem Grund mein Makro stoppt nach dem ersten getElementByID Linie. Kann jemand raten, welcher Teil des Codes falsch ist?
irgendwelche Fehler? ie.Document.getElementbyid ("cphBody_btnSearch"). Klicken Sie –
Ich habe versucht, es gibt keinen Fehler, aber es funktioniert nicht. –