none
ayuda busqueda de celdas en excel desde visual RRS feed

  • Pregunta

  • buen dia a todos

    mi problema es el siguiente

    estoy tratando de realizar un conteo de celdas en excel con cierta condicion desde visual studio

    y el codigo que utilizo es el siguiente

    Public Sub buscar1t()
            Dim counta As Integer
            Dim oexcel As Object
            Dim obook As Object
            Dim osheet As Object
            Dim pos As Integer

            counta = 0
            oexcel = CreateObject("Excel.Application")
            obook = oexcel.Workbooks.Open("C:\Reparacion\Reportes.xlsx")
            osheet = obook.Worksheets("1turno")
            oexcel.displayalerts = False

            pos = 3

            Do While osheet.range("C", pos).value = Now.Date
                counta = counta + 1
                pos = pos + 1
            Loop
            obook.close()
            obook = Nothing
            oexcel.quit()
            oexcel = Nothing
            Label6.Text = counta
        End Sub

    el detalle es que me marca error en la condicion, no hallo la forma de que me busque todas la celdas 

    la condicion es la fecha 


    Hector Sosa

    miércoles, 22 de julio de 2015 23:55

Respuestas

  • Do While CDate(osheet.Range("C" & pos).Value) = Now.Date
    
    Deberías aprovechar mejor las capacidades del lenguaje y poner en On el Option Strict, al menos hubieras tenido intellisense... 
    jueves, 23 de julio de 2015 1:16

Todas las respuestas