Вопрос : введите рядки и данные в Эксел от VB6

Мне нужно искать для значения в специфически колонке на электронная таблица для того чтобы обнаружить местонахождение спичку к перемеююому в vb6.  Если о, мне нужно двинуть к последнему рядку containg то значение и ввести рядок data.

Example, мне нужно обнаружить местонахождение No 21, то тени как сопрягано к значению в моей перемеююом VB6, когда я обнаружу местонахождение значение в втором рядке, рядок 42, я введет рядок данных под примером потребности that.

I специфически пожалуйста.  Возблагодарите you.

Spreadsheet: Destination
====================
b c D
::::::::::::::::
1: loomNo
2: ______
40: 7
41: 21
42: 21
43: 6
44: 6 class=

Ответ : введите рядки и данные в Эксел от VB6

Я нашел старый экземпляр VB6 поэтому я устанавливал его и получал его работая с вашим Кодим от выше

Что архив вы снабжаете ссылками для Эксел?  Я использовал «библиотеку объектных модулей 11.0 Мичрософт Ехчел» должна быть одним, котор вы используете слишком.

Я получил следующий выход от Кодего ниже:

Смотреть в колонке 3 для значения: 10
 8
 6
 7
 3
 3
 1
Ое значение: 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:

Общественная Sub основа () Тусклое oXLApp как Excel.Application Тусклое oXLBook как Excel.Workbook Установите oXLApp = новое Excel.Application oXLApp.Visible = True Установите oXLBook = oXLApp.Workbooks.Open («c:\Book1.xls ") 'раскройте существующий workbook oXLBook FindValue oXLBook.Close ложное oXLApp.Quit Подводная лодка конца Общественное Sub FindValue (xlWorkbook ByRef как Excel.Workbook) 'Тусклый v как предмет Тусклый v как вариант Тусклый x как интежер Тусклый Col как интежер Тусклое xlsheet как Excel.Worksheet Установите xlsheet = xlWorkbook.Sheets.Item (1) Col = 3 v = 10 Debug.Print «смотря в колонке» & CStr (Col) & «для значения: » & CStr (v) С xlsheet . Активируйте . Клетки (1, 1).End (Excel.XlDirection.xlDown). Отборно x = xlsheet. Application.ActiveCell.Row Пока (x > 1) Если (. Клетки (x, Col). Значение = v) после этого Значение Debug.Print «ое: » + CStr (v) '. Рядки (x + 1).Insert (перенос: =Excel.XlDirection.xlDown, CopyOrigin: =Excel.XlInsertFormatOrigin.xlFormatFromLeftOrAbove) . Рядки (перенос x + 1).Insert: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove x = 1 Еще 'положено здесь для того чтобы увидеть как оно работает Debug.Print. Клетки (x, Col). Значение Закончитесь если x = x - 1 Wend Закончитесь с Закончите подводную лодку