Excel, чтение данных

[Chuvak]

У меня есть excel'евская книга (в общем файл), надо программно считать данные с него. Кто-нибудь знает как?

[corgi]

а откуда ты будешь к ней обращаться из другой книги или из vb

[Chuvak]

из VB

[RayShade]

Код: Выделить всё

dim xlapp as new excel.application
dim xlsheet as object
set xlsheet = xlapp.workbooks("Workbook1").Worksheets("Sheet1")


Тепреь можно будет обращаться к данным на листе через xlsheet.cells

Подробнее - в хелпе Екселя.

[Chuvak]

у меня на строке

Код: Выделить всё

set xlsheet = xlapp.workbooks("Workbook1").Worksheets("Sheet1")


ошибка: Subscript out of range

[corgi]

а у тебя лист Sheet1 есть, если нет то поменяй на нужный

[Chuvak]

есть

[corgi]

и книга называется Workbook1

[Chuvak]

да, специально всё переименовал

[corgi]

книгу надо вель еще открыть
dim xlapp as new excel.application
dim xlsheet as object
xlapp.Workbooks.Open App.Path & "\Workbook1.xls"
set xlsheet = xlapp.workbooks("Workbook1").Worksheets("Sheet1")
что-то туплю
ну и закрыть потом тоже надо
xlapp.Workbooks("Workbook1").Close

[Chuvak]

а можно как-нибудь не указывать название листа, а просто указать, что первый лист

[corgi]

можно "sheets1"=1
т.е. set xlsheet = xlapp.workbooks(1).Worksheets(1)
только номера не перепутай и смотри чтобы в книге листы не добавляли и не убирали