Сообщество Чайников

Вопрос

Как средствами VB6 можно организовать импорт данных из Excel97? В частности интересует, как организовать доступ к книге Excel и обращаться к определенным ячейкам?

Ответ

Открываем книгу:

Set xE = New Excel.Application
xE.WindowState = xlMinimized
xE.Workbooks.Open sFileName
xE.Visible = True

Открываем страничку:

with xE.Workbooks(1).Worksheets(lNumber)

Ну, а теперь уже бери из ячеек, что тебе нужно.
Для текста:

.Range("A1:A1").Text

Для формулы:

.Range("A1:A1").Formula

После этого надо закрыть Excel. Два способа:

obExcel.Quit 'Корректно
Set obExcel = Nothing 'А это "ломом"

Excel надо подключить в References.

Из конференции VB