Frage : Reihen und Daten in Excel von VB6 einsetzen

Ich muss nach Wert in einer spezifischen Spalte auf einem Verteilungsbogen suchen, um ein Gleiches auf Variable zu lokalisieren in vb6.  Wenn es gefunden wird, muss ich auf die letzte Reihe umziehen, die diesen Wert containg ist und eine Reihe von data.

Example einzusetzen, muss ich Webstuhl Nr. 21 lokalisieren, wie an den Wert in meiner Variable VB6 angepasst, wenn ich den Wert in der zweiten Reihe lokalisiere, Reihe 42, ich eine Reihe von Daten unterhalb that.

I des spezifischen Beispiels der Notwendigkeit bitte einsetzt.  You.

Spreadsheet danken: Destination
====================
ein B C D
::::::::::::::::
1: loomNo
2: ______
40: 7
41: 21
42: 21
43: 6
44: 6

Antwort : Reihen und Daten in Excel von VB6 einsetzen

Ich fand eine alte Kopie von VB6, also angebracht ich sie e und erhalten sie arbeitend mit Ihrem Code von oben

Welche Bibliothek beziehen Sie für Excel?  Ich benutzte „Objekt-Bibliothek Microsoft Excel-11.0“, die die sein sollte, die, Sie auch verwenden.

Ich erhielt den folgenden Ausgang vom Code unten:

Suchen in Spalte 3 nach dem Wert: 10
 8
 6
 7
 3
 3
 1
Gefundener Wert: 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:
6:
37:
38:
39:
40:

Allgemeine Vorhauptleitung ()
        Schwaches oXLApp als Excel.Application
        Schwaches oXLBook als Excel.Workbook
        oXLApp einstellen = neues Excel.Application
        oXLApp.Visible = ausrichten en
        oXLBook = oXLApp.Workbooks.Open („c:\Book1.xls ") 'einstellen öffnen ein vorhandenes Arbeitsbuch
        FindValue oXLBook
        oXLBook.Close falsch
        oXLApp.Quit
    Enden-Unterseeboot
    Allgemeines VorFindValue (ByRef xlWorkbook als Excel.Workbook)
        'Schwaches v als Gegenstand
        Schwaches v als Variante
        Schwaches x als ganze Zahl
        Schwache Spalte als ganze Zahl
        Schwaches xlsheet als Excel.Worksheet
        Xlsheet = xlWorkbook.Sheets.Item einstellen (1)

        Spalte = 3
        V = 10
        Debug.Print „, das in der Spalte“ u. in CStr (Spalte) sucht u. „nach dem Wert: “ U. CStr (V)
        Mit xlsheet
            . Aktivieren
            . Zellen (1, 1).End (Excel.XlDirection.xlDown). Auserwählt
            x = xlsheet. Application.ActiveCell.Row

            Während (x > 1)
                Wenn (. Zellen (x, Spalte). Wert = V) dann
                    Debug.Print „gefundener Wert: “ + CStr (V)
                    '. Reihen (x + 1).Insert (Verschiebung: =Excel.XlDirection.xlDown, CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove)
                    . Reihen (Verschiebung x + 1).Insert: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
                    x = 1
                Sonst
                    'hier gesetzt, um zu sehen, wie es funktioniert
                    Debug.Print. Zellen (x, Spalte). Wert
                Beenden wenn
                x = x - 1
            Wend
        Mit beenden
    Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us