TExcelWorkSheet

← →
DimonNew © (2004-04-16 11:20) [0]

Подскажите пож-та, почему в следующем коде ошибка при работе с ячейками и что нужго сделать, чтобы заработало?
var
FWorkSheet:TExcelWorkSheet;
...
FWorkSheet.Cells.Item[1,1]:="gwe"; - интерфейс не поддерживается
или
FWorkSheet.Range["A1","A1"].Value:="qwe"; - OLE error

← →
ASMiD (2004-04-16 11:38) [1]

Поставь
FWorkSheet.Range["A1","A1"].Formula:="qwe";

← →
DimonNew © (2004-04-16 11:44) [2]

Нет, такая же ошибка - OLE error. Может здесь дело в преобразовании типов : string в OLEVariant (Value и Formula)?

← →
ASMiD (2004-04-16 11:52) [3]

А

FWorkSheet.ConnectTo(ExcelWorkbook.WorkSheets[1] as _Worksheet);

делал?

← →
DimonNew © (2004-04-16 11:54) [4]

Да!
FWorkBook.ConnectTo(FApplication.Workbooks[1]);
FWorkSheet.ConnectTo(_WorkSheet(FWorkBook.ActiveSheet));

← →
ASMiD (2004-04-16 12:05) [5]

А
FWorkSheet.Activate;

ставил?

← →
DimonNew © (2004-04-16 12:27) [6]

Да сейчас поставил, но пишет уже одинаковую ошибку для обоих случаев : ошибка доступа к адресу ... в модуле ole32.dll

Эту ошибку он пишет только на FWorkSheet.Activate;

Хотя FWorkSheet.Name:="qwe" - работает нормально без FWorkSheet.Activate

← →
ASMiD (2004-04-16 12:43) [9]

Вот код, который у меня работает:

var
ExAppl: TExcelApplication;
ExWbk: TExcelWorkbook;
ExWst: TExcelWorksheet;
k1:integer;
begin
// Connect EXCEL
try
ExAppl.Connect;
except
on EOleSySError do begin
MessageBox(0,""Error Open Microsoft Excel"," ",mb_IconStop or MB_OK);
ExAppl.Disconnect;
end;
on EOleException do begin
MessageBox(0,"Error open Microsoft Excel"," ",mb_IconStop or MB_OK);
ExAppl.Disconnect;
end;
end;
with ExAppl do begin
k1:=Application.WorkBooks.count-1;
Application.WorkBooks.Add(TemplName,k1);
visible[0]:=TRUE;
WindowState[0]:=xlMinimized;
end;
k1:=ExAppl.Workbooks.count; //возможно собака здесь порылась
ExWbk.ConnectTo(ExAppl.Workbooks[k1]);
ExWst.ConnectTo(ExWbk.WorkSheets[1] as _Worksheet);
ExWst.Activate;
ExWst.Range["A1","A1"].Formula:="Hello!;

TExcelWorkSheet Найти похожие ветки