Добыча данных из xls-файла

[anian]

Пытаюсь прочитать значение ячейки из xls_файла, но возникает така проблема:

Dim xl As Object
Set xl = CreateObject("Excel.Application")

xl.Workbooks.Open App.Path + "\DATA\p.xls"

xl.Worksheets.Select (1)

MsgBox xl.Worksheet.Cells(1, 1).Value Тута выдается ошибка, мол нет такого свойства или метода

xl.Workbooks.Close

Подскажите, чиво тут не так? Лишнее че аль чего не хватает?

[RayShade]

MsgBox xl.Activesheet.Cells(1, 1).Value

[bonch]

to RayShade & All
Не подскажите, где можно посмотреть, какие свойства могут быть у данного Object. Т.е. пример

xl.Я идиот! Убейте меня, кто-нибудь!??.Я идиот! Убейте меня, кто-нибудь!??

Я чёто не въежаю

[GSerg]

???
Ну дык преимущества раннего связывания кто будет использовать? Я-то использую, ... Dim xl as new excel.application обычнно помогает. А нет - жмём F2.

[N.Y.B.]

Вот вот - ранее связывание
Т.е. объявляй побольше переменных - т.е. одну под Excele, одну под WorkBook, одну под Sheet
И полихоньку спускайся по этой объектной модели
А структуру этой модели лучше всего просмотреть с справочке от Office
в ней есть раздельчик (если установлен) "Сведения по программированию"
Там и примерчики надыбаешь

[N.Y.B.]

Кстати, если вдруг надумал читать из Excel'я, потом обсчитывать на VB, потом назат посылать в Excel, то сразу предупреждаю - Excel - такая сволочь по этому поводу.
Конечно, представление данных в таблицах - дело грамотное
Но я тоже так вначале подумал, написал туеву хучу кода на VB (обсчитывал статистику, используя свои собственные и Excel'левские функции)
Но потом понял, что людям такую тормозную прогу показывать НИЗЯ и перешел на простые текстовые файлы

Ну, дерзай

Ели чего надо, намыливай

[aaf]

Сорри что вмешиваюсь, но не могу промолчать.

MsgBox xl.Activesheet.Cells(1, 1).Value

По поводу Activesheet - сам наступил на такие грабли (соответственно вам не советую): у меня выводился отчет таким макаром, минуты полторы где то отрабатывал - так вот, если юзер запускал в этот момент другой файл просто для просмотра, то возникали глюки... Нехорошие... Проблема возникала не очень часто, так что я с этим возится шибко не стал, но: ИМХО надо сразу конкретизировать с чем работает твоя программа.

[Sebas]

Сорри что вмешиваюсь, но не могу промолчать.

MsgBox xl.Activesheet.Cells(1, 1).Value

По поводу Activesheet - сам наступил на такие грабли (соответственно вам не советую): у меня выводился отчет таким макаром, минуты полторы где то отрабатывал - так вот, если юзер запускал в этот момент другой файл просто для просмотра, то возникали глюки... Нехорошие... Проблема возникала не очень часто, так что я с этим возится шибко не стал, но: ИМХО надо сразу конкретизировать с чем работает твоя программа.

А я скажу тебе - почему глюки.
Ты каждый раз дёргал
xl.Activesheet.
есстесно, каждый раз(при каждом обращении) ты определял текущий лист. Надо создать свой объект и с ним работать

Set MyShit=xl.Activesheet

With MyShit
.....

[next]

Был вопрос как узнать xl.Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!.Я идиот! Убейте меня, кто-нибудь!
Если что-то надо сделать в Excel то
Dim x as Object
Set x = createobject ("excel.application")
with x
'Потом заходишь в Excel вкладка Сервис - Записать макрос
'Делаешь то что нужно
' Сервис - Записать макрос Play макрос (последний) - кнопка Изменить
' Копируешь код в VB через буфер
' У каждой функции ставишь точку
' Пример
.ActiveWorkbook.SaveAs "..."
end with

[Георгий]

Можно так сделать?

Dim xl As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet

Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open App.Path + "\DATA\p.xls"
Set ws = wb.Worksheets.item(1)

MsgBox Cstr(ws.Cells(1, 1).Value)

wb.Close

ws =Nothing
wb =Nothing
xl =Nothing

Что не верно?

[GSerg]

Во-первых, можно не использовать item. Во-вторых, последние три команды через Set.

[Георгий]

С этим ясно...

Другой вопрос:

Обязательно создавать:
Set xl = CreateObject("Excel.Application")

Есть мой код запущен в Excel ? Можно сделать так:

Set wb = Excel.Workbooks.Open App.Path + "\DATA\p.xls"

З.Ы.: В подавляющем большинстве примеров есть создание...

[GSerg]

Что значит "мой код запущен в excel?" В смысле, это макрос экселевский, в файле xls хранимый? Тады не нужно объект создавать. Потому что если макрос может быть выполнен, значит всё уже создано. И вообще, довольно странно создавать эксель из экселя, можно один экселем обойтись. Проперть application там почти у каждого объекта есть, если не вообще у каждого...

[Георгий]

Вопрос я задал потому, что в примерах для Excel Создается объект ... (не во всех, но во многих)

[Георгий]

Если я создаю экземпляр объекта, то "Set = Nothing" удаляет его? (освобождает память)

[GSerg]

Так эти примеры для использования из VB. Тогда конечно.
Команда set = nothing - это обнуление данного конкретного указателя на объект. Само по себе этоо не приведёт к закрытию экселя, нужно предварительно сделать xl.quit. А вообще, была тут дискуссия по поводу обнуления указателей, называлась как-то вроде "чистота кода - уничтожение объектов", поиск не работает, поэтому ищи вручную...

[N.Y.B.]

Set ... = Nothing освобождает на объект ссылку. Если на этот объект больще ссылок нет, объект автоматом удаляестя.

[skim]

Народ, а у меня вопросик соответственно топику. Может, конечно, надо не в этом форуме, но всё же.
А как извлекать данные из Ексель при помощи SQL-запросов?
Я знаю, что надо обращаться к Range. Но ведь тогда нужно задавать конкретную область. И ещё. Как извлечь определённые колонки? Подскажите, плиз, если кто знает.