Ералаш: Excel неадекватно реагирует на команды...

← →
Шурик Ш © (2004-01-09 17:45) [0]

procedure TForm1.Button1Click(Sender: TObject); var Excel: Variant; begin Excel := CreateOleObject("Excel.Application"); Excel.Workbooks.Add; Excel.Columns("A:I").Select; Excel.Selection.ColumnWidth := 2; Excel.Visible := True; end;

На строке Excel.Columns("A:I").Select; вылетает ошибка "Член группы не найден!".
Внимание вопрос! Что я делаю неправильно?

← →
alex_*** © (2004-01-09 17:57) [1]

Так тебе с добавленной книгой надо дальше работать, а не с ExcelApplication.

← →
olookin © (2004-01-09 17:58) [2]

вместо Excel.Columns("A:I").Select надо Excel.Columns["A:I"].Select

← →
olookin © (2004-01-09 17:59) [3]

to alex_***

Все работает, если поменять () на []

← →
alex_*** © (2004-01-09 18:00) [4]

ОК. время нет проверять.

← →
Тимохов © (2004-01-09 18:01) [5]

Не только это
Надо еще Variant на OleVariant поменять.

procedure TForm1.Button1Click(Sender: TObject);
var
Excel: OleVariant;
begin
Excel := CreateOleObject("Excel.Application");
Excel.Workbooks.Add;
Excel.Columns ["A:I"].Select;
Excel.Selection.ColumnWidth := 2;
Excel.Visible := True;
end

Хотя да, работате и с variant - поправил два места, а какое сказалось на исправлении ситуации не понял.

to Тимохов

второе.. А Variant годится вполне

различие в том, что variant поддерживает некоторые типы, которые НЕ поддерживает OleVariant (возможно и наоборот). Так что если работаешь через Ole, то рекомендуется использовать olevaliant. Хотя и необезательно..

Ералаш: Excel неадекватно реагирует на команды... Найти похожие ветки