Чтение из Excel

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.
BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ
Обзор темы
   

Развернуть Обзор темы: Чтение из Excel

Re: Чтение из Excel

Лелик_1044 » 02 апр 2007, 11:34

Надо сделать импорт из excel
На данный момент я импортирую из excel в acces а потом отуда в программу

А хочется сделать примерно так
1)Пользователь нажимает на кнопку которая открывает файл excel версии 2003 -2007
2)На форме открывается и отображается этот файл (те стоит дополнительный компонент отображения)

у меня стоит 2007 и в ole я не нашел excel

Re: Чтение из Excel

Naeel Maqsudov » 02 апр 2007, 01:23

&quot писал(а):Подскажите плз что не так делаю..
В приведенном коде есть еще одна ошибка.
Если файл не будет открыт, то после выполнения секции except произойдет обращение к уже закрытому объекту XLApp и возникнет необработанное исключение.

Re: Чтение из Excel

SergeyS » 29 мар 2007, 14:14

&quot писал(а):Как просмотреть файл excel на формк
Открываю файл и он отображается у меня на форме
используй TOleContainer

Re: Чтение из Excel

Dr_Grizzly » 29 мар 2007, 12:28

Цитата:
Открываю файл и он отображается у меня на форме

Не совсем пойму, как это ты так открываешь файл??? Кинь код программы, поглядим.

Re: Чтение из Excel

Лелик_1044 » 22 мар 2007, 13:12

Как просмотреть файл excel на формк
Открываю файл и он отображается у меня на форме

Re: Чтение из Excel

SergeyS » 21 мар 2007, 14:41

&quot писал(а):а почему у меня то ошибка возникает? я так и не понял..
найдите десять отличий:
1. Edit1.text:=Serv.Workbooks[1].Worksheets[1].Cells[1,1];
2. s:=XLApp.sheets[1].cells[1,0].text;

:)

Re: Чтение из Excel

matroskin » 21 мар 2007, 14:36

Dr_Grizzly, лан, пасиб попробую!=)
а почему у меня то ошибка возникает? я так и не понял..

Dr_Grizzly » 21 мар 2007, 10:02

Нет, скобки должны быть [ , ]
Вот тебе рабочий пример:
var
serv:variant;
begin
SerV:=CreateOleObject('Excel.Application');

If vartype(Serv)=varDispatch then
If OpenDialog1.Execute then
Serv.Workbooks.Open(OpenDialog1.FileName);

If vartype(Serv)=varDispatch then
Serv.visible:=true;

Edit1.text:=Serv.Workbooks[1].Worksheets[1].Cells[1,1];

If vartype(Serv)=varDispatch then
begin
Serv.Displayalerts:=false;
Serv:=Unassigned;
end;
end;

(просто редактируешь сообщение и всё ;) ИА)

Re: Чтение из Excel

LAngel » 21 мар 2007, 08:09

мне кажется, что cells(1,0) надо с круглыми скобками ;)

Re: Чтение из Excel

matroskin » 20 мар 2007, 12:25

эм.. на этой строчке

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

   s:=XLApp.sheets[1].cells[1,0].text;

Вернуться к началу