База данных Excel -> .sdf

[sereg_io]

Сразу говорю - новичок!
Всем здрасте.
Хочу написать программу, которая считывает таблицы из таблиц excel в базу данных и затем их обрабатывает определенным образом, расширяя и сохраняя базу уже в формате .sdf
Проблема следующая: не могу открыть файл для чтения
Делаю так: добавляю библиотеку excel
объявляю переменные типа excel.application и excel.workbook, затем пытаюсь написать что-то вроде myexcel.workbook.open (filename), но компилятор говорит, что значение myexcel нулевое.
Помогите, скажите, как правильно открыть файл?

[Денис]

Что-то вроде
myexcel.workbook.open (filename)
не получится, я полагаю.
myexcel = excel.workbook.open (filename)
как-то так.

[sereg_io]

Спасибо, за хоть какую-то реакцию. Уже начинает нравиться форум

Вот что конкретно я написал:

Dim myexcel As excel.application
Dim myworkbook As Excel.Workbook
myworkbook = Excel.Workbook.open("Имя файла")

Компилятор говорит, что "open" не является членом "Excel.workbook"
(

[dub]

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

Imports Microsoft.Office.Interop.Excel

        Dim objExcel As Excel.Application
        Dim objWorkBook As Excel.Workbook

        objExcel = CreateObject("Excel.Application")
        objWorkBook = objExcel.Workbooks.Open("имя файла")


workbookS

[sereg_io]

Спасибо!.

COMExertion не обработано
Член группы не найден. (Исключение из HRESULT: 0x80020003 (DISP_E_MEMBERNOTFOUND))

Файл точно есть, хотя я думаю что он здесь и ни при чем.. Даже не представляю, куда копать!

[raserg]

В референсах добавляешь библиотеку Exsel ,лучше 10с 12 не работает ,если документ не сохранять ,то можно воспользоваться http://www.evroremontodessa.se-ua.net/page12,демо версия и при сохранении в первой ячейке запись,но можно работать без установленого офиса

и инструкция есть

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


Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)

xlBook = xlApp.Workbooks.Open(Filename, , , , , , , , , , , , , , )' если пароль и прочее

xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

  Dim xlCells = xlBook.Worksheets(1).cells
'И далее твори на свое усмотрение




    xlBook.Close()
   xlApp.Quit()


[sereg_io]

Спасибо и за это.
Не работает! Выдает ту же ошибку.
Я вот думаю, а excel ведь должен как-то запускаться, а он не запускается, оттого и не открвыает книгу-то?
Или я вообще не про то?

[sereg_io]

Погодите excel-то запускается.

Все, разобрался. Файл открывается, правда "только для чтения", но это наверное не проблема.
Спасибо всем за участие!

Считать файл в таблицу базы положим несложно.

Подскажите еще кто-нибудь, как орагнизовать хранение базы данных на сетевом диске? У нас в конторе у всех подключен один и тот же сетевой диск. Вот бы и база данных в виде файла тупо на нем лежала без всяких заморочек с серверами!