Pergunta : introduzir fileiras e dados em Excel de VB6

Eu preciso de procurarar pelo valor em uma coluna específica em um spreadsheet para encontrar um fósforo à variável em vb6.  Se encontrado, eu preciso de transportar-se à última fileira que containg esse valor e para introduzir uma fileira de data.

Example, eu preciso de encontrar o tear no. 21 como combinado ao valor em minha variável VB6, quando eu encontro o valor na segunda fileira, a fileira 42, mim introduzirá uma fileira dos dados abaixo do exemplo específico da necessidade de that.

I por favor.  Agradecer a you.

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

Resposta : introduzir fileiras e dados em Excel de VB6

Eu encontrei uma cópia velha de VB6 assim que eu instalei-a e começ a que trabalha com seu código de acima

Que biblioteca você está provendo para Excel?  Eu usei de “a biblioteca de objeto Microsoft Excel 11.0” que deve ser essa que você se está usando demasiado.

Eu começ a seguinte saída do código abaixo:

Vista na coluna 3 para o 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:

Cano principal secundário público ()
        oXLApp não ofuscante como Excel.Application
        oXLBook não ofuscante como Excel.Workbook
        Ajustar o oXLApp = Excel.Application novo
        oXLApp.Visible = retificam
        Ajustar o oXLBook = o oXLApp.Workbooks.Open (“c:\Book1.xls ") 'abrem um manual de instruções existente
        oXLBook de FindValue
        oXLBook.Close falso
        oXLApp.Quit
    Submarino da extremidade
    FindValue secundário público (xlWorkbook de ByRef como Excel.Workbook)
        'V não ofuscante como o objeto
        V não ofuscante como a variação
        X não ofuscante como o inteiro
        Coluna não ofuscante como o inteiro
        Xlsheet não ofuscante como Excel.Worksheet
        Ajustar o xlsheet = o xlWorkbook.Sheets.Item (1)

        Coluna = 3
        v = 10
        Debug.Print “que olha na coluna” & no CStr (coluna) & “para o valor: ” & CStr (v)
        Com xlsheet
            . Ativar
            . Pilhas (1, 1). Extremidade (Excel.XlDirection.xlDown). Seleto
            x = xlsheet. Application.ActiveCell.Row

            Quando (x > 1)
                Se (. Pilhas (x, coluna). Valor = v) então
                    Valor encontrado de Debug.Print “: ” + CStr (v)
                    '. Fileiras (x + 1). Introduzir (deslocamento: =Excel.XlDirection.xlDown, CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove)
                    . Fileiras (x + 1). Deslocamento da inserção: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
                    x = 1
                Mais
                    'põr aqui para ver como está trabalhando
                    Debug.Print. Pilhas (x, coluna). Valor
                Terminar se
                x = x - 1
            Wend
        Terminar com
    Terminar o submarino
Outras soluções  
 
programming4us programming4us