Vraag : tussenvoegsel rijen en gegevens in Excel van VB6

Ik moet naar waarde in een specifieke kolom op een spreadsheet zoeken om van een gelijke aan variabele in vb6 de plaats te bepalen.  Indien gevonden, moet ik me aan de laatste rij bewegen die die waarde containg en een rij van data.

Example opnemen, moet ik van weefgetouw nr 21 de plaats bepalen zoals aangepast aan de waarde in mijn VB6 variabele, wanneer ik van de waarde in de tweede rij de plaats bepaal, rij 42, zal ik een rij van gegevens onder that.

I specifiek voorbeeld gelieve te vereisen opnemen.  Dank you.

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

Antwoord : tussenvoegsel rijen en gegevens in Excel van VB6

Ik vond een oud exemplaar van VB6 zodat heb ik het geïnstalleerde en het werkend met uw hierboven code van gekregen

Welke Bibliotheek voorziet u voor van verwijzingen Excel?  Ik gebruikte „Microsoft Excel 11.0 de Bibliotheek van Objecten“ die zou moeten zijn u ook gebruikt.

Ik kreeg de volgende output van de code hieronder:

Het kijken in kolom 3 voor de waarde: 10
 8
 6
 7
 3
 3
 1
Vond Waarde: 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:

Openbare SubLeiding ()
        Schemerige oXLApp als Excel.Application
        Schemerige oXLBook als Excel.Workbook
        Reeks oXLApp = Nieuwe Excel.Application
        oXLApp.Visible = Waar
        De reeks oXLBook = oXLApp.Workbooks.Open („c:\Book1.xls“) 'opent een bestaand werkboek
        FindValue oXLBook
        oXLBook.Close vals
        oXLApp.Quit
    Sub van het eind
    Openbare SubFindValue (ByRef xlWorkbook als Excel.Workbook)
        'Schemerig v als Voorwerp
        Schemerig v als Variant
        Schemerig x als Geheel
        Schemerig Col. As Integer
        Schemerige xlsheet als Excel.Worksheet
        Reeks xlsheet = xlWorkbook.Sheets.Item (1)

        Col. = 3
        v = 10
        Debug.Print „Kijkend in kolom“ & CStr (Col.) & „voor de waarde: “ & CStr (v)
        Met xlsheet
            . Activeer
            . Cellen (1, 1). Eind (Excel.XlDirection.xlDown). Selecteer
            x = xlsheet. Application.ActiveCell.Row

            Terwijl (x > 1)
                Als (. Cellen (x, Col.). Waarde = v) toen
                    Debug.Print „vond Waarde: “ + CStr (v)
                    '. Rijen (x + 1). Tussenvoegsel (Verschuiving: =Excel.XlDirection.xlDown, CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove)
                    . Rijen (x + 1). De Verschuiving van het tussenvoegsel: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
                    x = 1
                Anders
                    'hier gezet om te zien hoe het werkt
                    Debug.Print. Cellen (x, Col.). Waarde
                Eind als
                x = x - 1
            Wend
        Eind met
    Sub van het eind
Andere oplossingen  
 
programming4us programming4us