none
Busqueda de datos desde visual a excel RRS feed

  • Pregunta

  • Buen dia 

    estoy desarrolando un pequeño sistema donde guardo en excel en varias colunmas informacion respecto a un componente

    el problema se me presenta cuando trato de hacer la busqueda de un componente, teniendo en cuenta que este se puede repetir en varias ocasiones y lo estoy condicionando que solo encuentre el primero

    empieza bien, lo ejecuto una vez todo correcto y lo quiero ejecutar otra ves y ahi es donde me empiezan los problemas, no lo quiero hacer en access porque no me hallo

    este es el codigo que uso

    oexcel = CreateObject("Excel.Application")
            obook = oexcel.Workbooks.Open("C:\Feeders\Feeder.xlsx")
            osheet = obook.Worksheets("Fed")
            oexcel.displayalerts = False
            pos = osheet.UsedRange.Row + osheet.UsedRange.Rows.Count
            fil = pos
            cont = 4
            X = 0
            Do Until fil = cont Or X = 1

                If osheet.range("A" & fil).value = TextBox1.Text Then
                    If osheet.range("D" & fil).value = "NG" Then
                        MsgBox("NG", vbInformation)
                        X = 1
                    Else
                        If osheet.range("D" & fil).value = "REP" Then
                            MsgBox("En Reparacion", vbInformation)
                            X = 1
                        Else
                            If osheet.range("D" & fil).value = "OK" Then
                                MsgBox("OK", vbInformation)
                                X = 1
                            Else
                                If osheet.range("A" & fil).value <> TextBox1.Text Then
                                    MsgBox("No Registrado", vbInformation)
                                    X = 1
                                Else
                                End If
                            End If
                        End If
                    End If
                End If
                fil = fil - 1
                obook.close()
                obook = Nothing
                oexcel.quit()
                oexcel = Nothing
            Loop
            TextBox1.Text = ""

    no se si sea correcto la condicion del bucle o haya que modificarle algo

    saludos 


    Hector Sosa

    lunes, 7 de septiembre de 2015 18:48

Respuestas