Delphi и *.xls без Excel - есть ли юнит?

[Аватар]

Дык проблема не в excel-e скорее всего, а в корявости версии делфина. Запросом не обязательно ODBC-шный провайдер. Провайдер JET OLE DB хавает excel-таблицы (2003) и есть по умолчанию в винде. Если ADO в том делфине доступно, то можно пробовать. Ему и excel установленный не нужен

[Serge_Bliznykov]

когда у меня подобная ситуация возникла несколько лет назад,
я взял Portable Turbo Delphi Lite 1.0d ( aka BDS 2006), поставил туда пиратку XLSReadWriteII и читал XLS файлы.

[Ship_1]

Сообщение от Аватар

Дык проблема не в excel-e скорее всего, а в корявости версии делфина. Если ADO в том делфине доступно, то можно пробовать. Ему и excel установленный не нужен

Ну ругается, во всяком случае, на Эксель... При этом совершенно спокойно работает с ним, если он уже запущен, и вообще без проблем работает с Вордом. Глюк и ругание на отсутствующий dll происходит только при попытке открытия файла если Эксель не был ранее запущен.
А ADO у меня тоже нет...

В попытках найти библиотеку, которую не надо устанавливать, наткнулся на интересную pdf-ку, которая, возможно, смогла бы мне помочь. Но проблема в том, что я и английский не знаю, и "машинный" язык не понимаю так хорошо...

Библиотек, похоже, вообще бесплатных нет, не говоря уж о бесплатных без установки...

[SQLPowerUser]

>>> А ADO у меня тоже нет...
Точно нет?
На другом форуме я находил готовые решения, если ни одно из них не заработает, то думаю проблема в рабочей станции...
Пример 1
Пример 2

[FaTaL]

Глюк и ругание на отсутствующий dll происходит только при попытке открытия файла если Эксель не был ранее запущен

Так может тогда проще сначала запустить EXCEL, чтобы не было глюков?

[Ship_1]

Сообщение от FaTaL

Так может тогда проще сначала запустить EXCEL, чтобы не было глюков?

Но тогда лично у меня возникает второй вопрос: как понять когда Эксель уже запустился, файл загрузился и продолжить работу программы? Через таймер долбать "CheckExcelRun" до положительного результата? Или есть более "красивый" способ? Ответ на этот вопрос был бы интересен, но в данном случае не важен, т.к. даже запуск через ShellExecute вызывает ошибку.

Сообщение от SQLPowerUser

>>> А ADO у меня тоже нет...
Точно нет?
На другом форуме я находил готовые решения, если ни одно из них не заработает, то думаю проблема в рабочей станции...

Вкладка, во всяком случае, с компонентами отсутствует Поэтому второй пример не пригодился: даже скомпилировать нечем. И первая часть первого, где запуск через ADO.
А вот во второй части первого примера поиск по экселю двумя типами: стандартным через OLE, который у меня и не работает, и ещё каким-то вторым способом, не через OLE, который сработал!!! СПАСИБИЩЕ!!!!! Буду разбираться в этом способе.
Получилось считать данные. Но почему-то не все. Не считывает "№ п/п", "Внутренний номер", "Кабинет №"... Возможно и какие-то другие позиции. Почему-то считываемое значение не хочет напрямую складываться со строкой, вызывает ошибку

Could not convert variant type (String) into type (Double)

Пока не поставил

If (MyRecordset.Fields[i-1].Value<>null)  then

тоже ругался, но про конвертацию Null в String. Как понимаю, это из-за пустых ячеек.
Вот основная часть кода:

    while not MyRecordset.eof do
    begin
      Strk:='';
      for i := 1 to MyRecordset.Fields.Count do
      begin
        If (MyRecordset.Fields[i-1].Value<>null) then
        begin
          Val:=MyRecordset.Fields[i-1].Value;
          Strk:=Strk+#9+Val;
        end;
      end;
      TotList.Add(Strk);
      inc(RecNo);
      MyRecordset.MoveNext;
    end;

Можно ли чем-нибудь заменить Value (MyRecordset.Fields[i-1].Value) чтобы он всё воспринимал как текст и не ругался на типы?
И ещё меня терзают смутные сомнения... Не говорит ли "ADODB.Connection" о том, что это тоже через ADO?..

[min@y™]

XLSReadWriteII for Delphi
отличная штука. MS Excel вообще не нужен. Один недостаток - штука коммерческая, платная.

Меня терзают смутные сомнения...

[Аватар]

Не говорит ли "ADODB.Connection" о том, что это тоже через ADO

Еще как говорит. Делфийские компоненты то же самое используют.

[Ship_1]

Хм... А я думал это не сложный вопрос для тех, кто знает ADO, но почему-то он так и остался без ответа... Может, его просто не заметили после всего текста? Можно ли чем-нибудь заменить Value (MyRecordset.Fields[i-1].Value) чтобы он всё воспринимал как текст и не ругался на типы? .Text не прокатывает, .asString тоже. Выдают ошибку "Method 'asString' not supported by automation object." Найти как работать с ADO без компонентов почему-то не удалось. Где-то очень далеко это зарыто в интернете.

[Аватар]

Value имеет тип Variant и просто так заменить чем-то вроде AsString не очень просто. Нужно писать свой функционал по распознованию типа данных