VPF::Не могу вывести переменную - Форум программистов

EvilProgrammer

Дата 3.9.2007, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

Здравствуйте побратимы.
Не могу понять что не так помогите плиз.

Код


var
  Form1: TForm1;
  SP, Date: string;
  FileFormat, Encoding, i: integer;
  WordA, ExA, Workbook, v: OLEVariant;
  FileName: string;

*********
procedure TForm1.Button2Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  SP:= OpenDialog1.FileName;
  ExA.Workbooks.OpenText(FileName:= SP, Origin:= 1251, StartRow:= 1, DataType:= 1, TextQualifier:=1, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:='!', TrailingMinusNumbers:=True);
  v:= ExA.Range('D10');
  Edit2.Text:= v;
  ExA.Quit;
end;

Аппликэйшен ругается по поводу ОЛЕ. Этот пример из ДРКБ.

_hunter

Дата 3.9.2007, 10:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 2
Всего: 98

не знаю где ты такой пример нашел, но ExA у тебя не связан с екселем. ты или не все скопировал или не тудя посмотрел...

--------------------

Tempora mutantur, et nos mutamur in illis...

EvilProgrammer

Дата 3.9.2007, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

Все нашел ошибку!

Нужно писать

Код



v:= ExA.Range['D10'];

Это сообщение отредактировал(а) EvilProgrammer - 3.9.2007, 13:08

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »