Скачать: CL | DM;

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

---

← →
DimonNew ©   (2004-04-16 12:38) [7]

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

---

← →
DimonNew ©   (2004-04-16 12:39) [8]

Хотя 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!;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c