Questione : inserire le file ed i dati in Excel da VB6

Devo cercare il valore in una colonna specifica su un foglio elettronico per individuare un fiammifero alla variabile in vb6.  Se trovato, devo muovermi verso l'ultima fila che containg quel valore ed inserire una fila di data.

Example, devo individuare il telaio il no. 21 come abbinato al valore nella mia variabile VB6, quando individuo il valore nella seconda fila, la fila 42, io inserirà prego una fila dei dati sotto l'esempio specifico di bisogno di that.

I.  Ringraziare you.

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

Risposta : inserire le file ed i dati in Excel da VB6

Ho trovato una vecchia copia di VB6 in modo da la ho installata e la ho ottenuta che funziona con il vostro codice da sopra

Che biblioteca state riferendo per Excel?  Ho usato “la biblioteca di oggetto di Microsoft Excel 11.0„ che dovrebbe essere quella che state usando anche.

Ho ottenuto la seguente uscita dal codice qui sotto:

Osservando nella colonna 3 per il valore: 10
 8
 6
 7
 3
 3
 1
Valore trovato: 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:

Conduttura secondaria pubblica ()
        oXLApp fioco come Excel.Application
        oXLBook fioco come Excel.Workbook
        Regolare il oXLApp = nuovo Excel.Application
        oXLApp.Visible = allineano
        Regolare il oXLBook = oXLApp.Workbooks.Open (“c:\Book1.xls ") 'aprono un libro di esercizi attuale
        oXLBook di FindValue
        oXLBook.Close falso
        oXLApp.Quit
    Sommergibile dell'estremità
    FindValue secondario pubblico (xlWorkbook di ByRef come Excel.Workbook)
        'V fioca come oggetto
        V fioca come variante
        X fioca come numero intero
        Colonna fioca come numero intero
        Xlsheet fioco come Excel.Worksheet
        Regolare il xlsheet = xlWorkbook.Sheets.Item (1)

        Colonna = 3
        v = 10
        Debug.Print “che osserva nella colonna„ & in CStr (colonna) & “per il valore: „ & CStr (v)
        Con xlsheet
            . Attivare
            . Cellule (1, 1).End (Excel.XlDirection.xlDown). Prescelto
            x = xlsheet. Application.ActiveCell.Row

            Mentre (x > 1)
                Se (. Cellule (x, colonna). Valore = v) allora
                    Valore trovato di Debug.Print “: „ + CStr (v)
                    '. File (x + 1).Insert (spostamento: =Excel.XlDirection.xlDown, CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove)
                    . File (spostamento x + 1).Insert: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
                    x = 1
                Altrimenti
                    'messo qui per vedere come sta funzionando
                    Debug.Print. Cellule (x, colonna). Valore
                Concluder se
                x = x - 1
            Wend
        Concluder con
    Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us