Как в Microsoft Visual Basic 6.0 открыть Exel файл, считать с него данные(числа) и дальше работать с ними

[Dimon88]

Как в Microsoft Visual Basic 6.0 открыть Exel файл, считать с него данные(числа) и дальше работать с ними?

[zetrix]

Я не могу точно обещать, но посмотрите код:
....
Код, который я давал - не правильный
Парился парился.. Незнаю, вот, что смог сделать - открыть и закрыть ехсель:

'это в VBA
Sub abc()
Set mob = CreateObject("excel.application")
mob.Visible = True
mob.Application.Workbooks.Open "C:\ABC.XLS"
...
mob.Application.Workbooks.Close
mob.Quit
End Sub

[pashulka]

Можно попробовать и такой вариант :

With CreateObject("Excel.Application")
     '.Visible = True 'по необходимости
     With .Workbooks.Open(FileName:="C:\abc.xls", UpdateLinks:=0)
          With .Worksheets(1)
               Value1 = .Range("A1").Value
               Value2 = .Range("C1").Value
               Value3 = .Range("F1").Value
          End With
          .Close saveChanges:=True 'False
     End With
     .Quit
End With

[Dimon88]

Код пашет. Только возникло несколько вопросов. Как вогнать некоторый диапазон ячеек в массив(например столбец начиная от n до m строк)?(или можно непосредственно работать с ячейками без создания массивов?) И как найти конец листа?

[pashulka]

1. Например, так :

Dim iMassiv As Variant
iMassiv = .Range("A1").Resize(10).Value
iMassiv = .Range(.Cells(1, 1), .Cells(10, 1)).Value
iMassiv = .Range(.Cells(1, "A"), .Cells(10, "A")).Value

2. С ячейками рабочего листа, конечно же, можно работать и без использования массива, но здесь всё зависит от поставленной задачи.

3. Ответ на последний вопрос можно найти здесь, причём там наличествует довольно много вариантов.

[Dimon88]

Спасибо. Помогли, все пашет

[Dimon88]

Опять возник вопрос. Если в форму вставить обьект OLE, затем выбрать тип"Лист Exel", то потм как заполнять ячейки OLE объекта?

[pashulka]

Private Sub Command1_Click()
    'Кнопка используется только для примера
    Me.OLE1.Object.Worksheets(1).Cells(1, 1).Value = 123
    'Ole1 - это OLE обьект "Лист Exсel", 
End Sub