Question : insérer les rangées et les données dans Excel de VB6

Je dois rechercher la valeur dans une colonne spécifique sur un bilan pour localiser une allumette à la variable dans vb6.  Si trouvé, je dois me déplacer à la dernière rangée containg cette valeur et insérer une rangée de data.

Example, je dois localiser le numéro 21 de manche comme assorti à la valeur dans ma variable VB6, quand je localise la valeur dans la deuxième rangée, la rangée 42, j'insérera une rangée des données au-dessous de l'exemple spécifique du besoin de that.

I svp.  Remercier you.

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

Réponse : insérer les rangées et les données dans Excel de VB6

J'ai trouvé une vieille copie de VB6 ainsi je l'ai installée et l'ai fonctionnant avec votre code d'en haut

Quelle bibliothèque mettez-vous en référence pour Excel ?  J'ai employé « la bibliothèque des programmes résultants de Microsoft Excel 11.0 » qui devrait être celle que vous employez aussi.

J'ai obtenu le rendement suivant du code ci-dessous :

Regard dans la colonne 3 pour la valeur : 10
 8
 6
 7
 3
 3
 1
Valeur trouvée : 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 :

Force secondaire publique () Faible oXLApp comme Excel.Application Faible oXLBook comme Excel.Workbook Placer l'oXLApp = nouvel Excel.Application oXLApp.Visible = rectifient Placer l'oXLBook = l'oXLApp.Workbooks.Open (« c:\Book1.xls ") 'ouvrent un cahier de travail existant oXLBook de FindValue oXLBook.Close faux oXLApp.Quit Sous-marin d'extrémité FindValue secondaire public (xlWorkbook de ByRef comme Excel.Workbook) 'Faible v comme objet Faible v comme variante Faible x comme nombre entier Faible colonne comme nombre entier Faible xlsheet comme Excel.Worksheet Placer le xlsheet = le xlWorkbook.Sheets.Item (1) Colonne = 3 v = 10 Debug.Print « regardant dans la colonne » et le CStr (colonne) et « pour la valeur :  » Et CStr (v) Avec le xlsheet . Activer . Cellules (1, 1).End (Excel.XlDirection.xlDown). Choisi X = xlsheet. Application.ActiveCell.Row Tandis que (x > 1) Si (. Cellules (x, colonne). Valeur = puis v) Valeur trouvée de Debug.Print « :  » + CStr (v) '. Rangées (x + 1).Insert (décalage : =Excel.XlDirection.xlDown, CopyOrigin : =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove) . Rangées (décalage x + 1).Insert : =xlDown, CopyOrigin : =xlFormatFromLeftOrAbove X = 1 Autrement 'mis ici pour voir comment cela fonctionne Debug.Print. Cellules (x, colonne). Valeur Finir si X = x - 1 Wend Finir avec Finir le sous-marin