Архив форумов ЦИТФорума

[complex]

Необходимо получить доступ к ячейкам таблицы используя TExcelApplication
ExcelWorkBook.WorSheets[0].Cells[i,j] не понимает, говорит не знаю Cells.
Что делать?

[anonymous]

Ну вообщето у меня работало
pWXls->Worksheets(1)->Cell(1, 1)->Range->PutText(str);
это если в кучу собрать, в принципе у меня были промежуточные указатели
кстати, т.к. это COM, то доступ только через указатели

[complex]

я в принципе разобрался уже, заработал такой код:
//WorkSheet := ExcelWorkBook.WorkSheets.Get_Item(1) as _WorkSheet;
// Определение номера последней ячейки
//i:=2;
//Str := Worksheet.Range['A'+IntToStr(i),'A'+IntToStr(i)].Value;
//w hile Str'' do begin
// i := i+1;
// Str := Worksheet.Range['A'+IntToStr(i),'A'+IntToStr(i)].Value;
// end;
//Worksheet.Range['A'+IntToStr(i),'A'+IntToStr(i)].Val ue := Edit1.Text;
//Worksheet.Range['B'+IntToStr(i),'B'+IntToStr( i)].Value := Edit2.Text;
//Worksheet.Range['C'+IntToStr(i),'C'+IntToStr( i)].Value := Edit3.Text;
//Worksheet.Range['D'+IntToStr(i),'D'+IntToStr( i)].Value := Edit4.Text;

так что всем спасибо