Cuestión : insertar las filas y los datos en Excel de VB6

Necesito buscar para el valor en una columna específica en una hoja de balance para localizar un fósforo a la variable en vb6.  Si está encontrado, necesito trasladarme a la fila pasada containg ese valor e insertar una fila de data.

Example, necesito localizar el telar No. 21 como emparejado al valor en mi variable VB6, cuando localizo el valor en la segunda fila, la fila 42, yo insertará una fila de datos debajo de ejemplo específico de la necesidad de that.

I por favor.  Agradecer you.

Spreadsheet: Destination
====================
un B C D
::::::::::::::::
1: loomNo
2: ______
40: 7
41: 21
42: 21
43: 6
44: 6 class= del

Respuesta : insertar las filas y los datos en Excel de VB6

Encontré una vieja copia de VB6 así que la he instalado y la he conseguido que trabajaba con su código de arriba

¿Qué biblioteca usted se está refiriendo para Excel?  Utilicé “la biblioteca objeto de Microsoft Excel 11.0” que debe ser la que usted está utilizando también.

Conseguí la salida siguiente del código abajo:

Mirada en la columna 3 para el valor: 10
 8
 6
 7
 3
 3
 1
Valor encontrado: 10
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

Cañería secundaria pública ()
        oXLApp dévil como Excel.Application
        oXLBook dévil como Excel.Workbook
        Fijar el oXLApp = nuevo Excel.Application
        oXLApp.Visible = verdad
        Fijar el oXLBook = oXLApp.Workbooks.Open (“c:\Book1.xls ") 'abren un libro de trabajo existente
        oXLBook de FindValue
        oXLBook.Close falso
        oXLApp.Quit
    Submarino del extremo
    FindValue secundario público (xlWorkbook de ByRef como Excel.Workbook)
        'V dévil como objeto
        V dévil como variante
        X dévil como número entero
        Columna dévil como número entero
        Xlsheet dévil como Excel.Worksheet
        Fijar el xlsheet = xlWorkbook.Sheets.Item (1)

        Columna = 3
        v = 10
        Debug.Print “que mira en columna” y CStr (columna) y “para el valor: ” Y CStr (v)
        Con el xlsheet
            . Activar
            . Células (1, 1).End (Excel.XlDirection.xlDown). Selecto
            x = xlsheet. Application.ActiveCell.Row

            Mientras que (x > 1)
                Si (. Células (x, columna). Valor = v) después
                    Valor encontrado de Debug.Print “: ” + CStr (v)
                    '. Filas (x + 1).Insert (cambio: =Excel.XlDirection.xlDown, CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove)
                    . Filas (cambio x + 1).Insert: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
                    x = 1
                
                    'puesto aquí para ver cómo está trabajando
                    Debug.Print. Células (x, columna). Valor
                Terminar si
                x = x - 1
            Wend
        Terminar con
    Terminar el submarino
Otras soluciones  
 
programming4us programming4us