Чтение из Excel

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[flash] ОТКЛЮЧЕН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
[quote=Dr_Grizzly post_id=35158 time=1174460566 user_id=712] Нет, скобки должны быть [ , ] Вот тебе рабочий пример: 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; (просто редактируешь сообщение и всё ;) ИА) [/quote]
   

Развернуть Обзор темы:Чтение из 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;

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