Recibo un error que muestra una falta de coincidencia de tipos cuando utilizo el siguiente código para ingresar la fecha

Dim HTMLInp As MSHTML.IHTMLElement
Set HTMLInp = HTMLDoc.getElementsById("startDate")
HTMLInp.Value = Worksheets("Menu").Range("a3")
2
Lok 15 oct. 2018 a las 22:05

2 respuestas

La mejor respuesta

Es

HTMLDoc.getElementById("startDate")

El método de recuperación es devolver un solo elemento sin s.

1
QHarr 15 oct. 2018 a las 19:09

¿Ha intentado establecer el valor

HTMLDoc.getElementsByClassName("dropdown-menu").value = "YourDesiredValue"

O el índice seleccionado

HTMLDoc.getElementsByClassName("dropdown-menu").selectedIndex = 1

También prueba algo de esto:

    With .FindElementByCss("[data-test='date-picker-full-range']")
        .ScrollIntoView
        .Click
    End With
    With .FindElementByCss("[name=startDate]")
        .Clear
        .SendKeys "05/10/2017"
    End With

    With .FindElementByCss("[name=endDate]")
        .Clear
        .SendKeys "05/10/2017"
    End With

Otra fuente de información: https://web.archive.org/web/20170802065959/www.vb-tips.com/MSHTML.aspx

0
DeerSpotter 15 oct. 2018 a las 19:14