Как читать и записывать данные в книге Excel из VB?

Вопрос:

Если есть у кого-нибудь пример как записывать и считывать данные из ячеек Excel-я в VB?

Ответ:

Вот пример как можно работать с Exelem
Вставляем этот код в обработку какой-нибудь кнопки.

Dim EXL As Object
Dim STR As String
'создаем объект
Set EXL = CreateObject("Excel.Sheet")
Set EXL = EXL.Application.ActiveWorkbook.ActiveSheet

'Заносим данные в ячейки
EXL.Range("A1").Value = "Пробный"
EXL.Range("B1").Value = "Файл"
EXL.Range("C1").Value = "по"
EXL.Range("D1").Value = "Работе"
EXL.Range("E1").Value = "с Exelem"

'Изменяем шрифт и.т.д.
EXL.Range("A1").Font.Bold = True
EXL.Range("A1").Font.Size = 16

'Берем данные из ячеек
STR = EXL.Range("A1").Value & EXL.Range("B1").Value & _
EXL.Range("C1").Value & EXL.Range("D1").Value & _
EXL.Range("E1").Value

'сохраняем Excel документ на диске
On Error Resume Next
EXL.SaveAs App.Path & "\Proba.xls"
'удаляем объект из памяти
Set EXL = Nothing

  Единственное ограничение: код будет работать только на машине с установленным Excel'ем.
  Еще можно заморочиться, раздобыть описание формата Excel'евских файлов и написать алгоритм чтения этих файлов самому, но стоит ли так морочиться?

Мунгалов АВ, Kirill