Delphi & Excel

[kompaky]

На данной строке

MsExcel.Range[MsExcel.Cells[per1,per2]]:=StringGrid1.Cells[stl,stro];

получаю ошибку OLE объекта 'Член группы не найден'. Подскажите правильно ли такое присвоение?
тип
MsExcel: Variant;
подключаюсь так

MsExcel := CreateOleObject('Excel.Application');
 path:=ExtractFilePath(paramstr(0));
MsExcel.Workbooks.Open[path+'\etalon.xls'];

[SpyCrypt]

Я делал так

uses ...... comobj;
...............
  
.....................
Var col, row: Integer;
  sline: string;
  mem: TMemo;
  ExcelApp: Variant;
begin
  mem.Clear;
  sline := '';
  sLine := 'aaa' + #9 + 'bbb';
  memo1.Lines.Add(sline);
  memo1.SelectAll;
  memo1.CopyToClipboard;
  ExcelApp.Visible := true;
end;

У нас принято оформлять код специальным тегом. Кнопка #. Модератор

[kompaky]

так не подходит у меня взят stringgrid в нем данные считаны и распределены в нужном порядке, и мне надо записать эти данные в файл excel динамически смешаясь по ячейкам используя как столбцы так и строки, использую метод RC адресации

lev:= StringGrid1.Cells[stl,stro];//данные которые надо записать 
per1:=11+par1;// идем по строкам (с 11 потому что  идет статика до 11  потом заполнение )
per2:=1+par2;// идем по столбцам т.е. буквам(A,B,C...)  в RC  они являться  цифрами
MsExcel.Range[MsExcel.Cells[per1,per2]]:=lev;//запись  в файл 
inc(par2);

MsExcel.Range[MsExcel.Cells[per1,per2]]:=lev; на эту строку получаю ошибку ole обьекта пишет что член группы не найден...
Исходя из этого помогите как можно записать...
ну или предложите другой метод как двигаться по строкам и столбцам динамически

[kompaky]

все разобрался))))

[rainbow]

Сообщение от kompaky

На данной строке

MsExcel.Range[MsExcel.Cells[per1,per2]]:=StringGrid1.Cells[stl,stro];

получаю ошибку OLE объекта 'Член группы не найден'. Подскажите правильно ли такое присвоение?
тип
MsExcel: Variant;
подключаюсь так

MsExcel := CreateOleObject('Excel.Application');
 path:=ExtractFilePath(paramstr(0));
MsExcel.Workbooks.Open[path+'\etalon.xls'];

Не подскажете как разобрались?
Я не могу записать область ячеек заданную координатами x,y в переменную RangeMatrix:Variant

RangeMatrix:=XLApp.Range('A1',XLApp.Cells.Item(x,y)).Value;

Вылазит эта же ошибка.

[rainbow]

Импорт из StringGrid я сделал таким образом:

var
Data: olevariant;
.......................
.......................
Data:= VarArrayCreate([1, StringGrid1.RowCount, 1, StringGrid1.ColCount],varVariant);
for i := 0 to StringGrid1.ColCount-1 do
for j := 0 to StringGrid1.RowCount-1 do
Data[j+1,i+1]:=StringGrid1.Cells[i,j];
Sheet.Range[RefToCell(1,1),RefToCell(StringGrid1.RowCount,StringGrid1.ColCount)]:=Data;

работает.
Но теперь надо обратно с Excel в StringGrid имортировать, а таким же способом не работает, выдаёт либо 'Член группы не найден', либо 'invalid variant operation'
PS.После 4 часов мучения импорт придумал сделать так

Sheet.Cells.SpecialCells($0000000B, EmptyParam).Activate;
x:=e.ActiveCell.Row;
y:=e.ActiveCell.Column;
StringGrid1.RowCount:=x;
StringGrid1.ColCount:=y;
for i := 0 to y do
for j := 0 to x do
StringGrid1.Cells[i,j]:=Sheet.Cells[j+1,i+1];

Вроде работает.