StringGrid, Excel проблемы

[artemavd]

Подскажите пожалуйста еще какие-нибудь процедуры открытия в StringGrid из Excel? А то этот код у меня выдает ошибку и не работает:

function xls_to_stringgrid(SG11:TStringGrid; axlsfile:string):Boolean;
const
 XlCellTypeLastCell=$0000000b;
var
 XLapp,Sheet:Olevariant;
 RangeMatrix:Variant;
 x,y,k,r:integer;
begin
  Result:=false;
  XLapp:=CreateOleObject('excel.application');
  try
    XLapp.Visible:=false;
    XLapp.Workbooks.Open(axlsfile);
    Sheet:=XLapp.Workbooks[1].Worksheets[1];
    Sheet.cells.specialcells(XLCellTypeLastCell,emptyparam).Activate;
    x:=XLapp.Activecell.Row;
    y:=XLapp.Activecell.Column;
    SG11.RowCount:=x;
    SG11.ColCount:=y;
    RangeMatrix:=XLapp.Range['a1',XLapp.Cells.Item[x,y]].Value;
    k:=1;
    repeat
      for
        r:=1 to y do
        SG11.Cells[(r-1),(k-1)]:=RangeMatrix[k,r];
        inc(k,1);
        SG11.RowCount:=k+1;
        until k>x;
        RangeMatrix:=Unassigned;
    finally
    if not Varisempty(XLapp) then
      begin
       XLapp.Quit;
       XLapp:=Unassigned;
       Sheet:=Unassigned;
       Result:=True;
      end;
    end;
  end;

[Proof]

А не пытался разобраться с ошибкой? Может надо было и еще ошибку прислать?

[artemavd]

Выдает ошибку "Invalid argument" и выделяет эту строку: "SG1.Cells([r-1,k-1]):=RangeMatrix[r,k]. Что это значит?

[SNUPY]

Попробуй ксь вот так:

SG11.Cells[r,k]:=RangeMatrix[k,r];

Помоему у них нет нулевых элементов
ЗЫ В полне возможно, что ошибаюсь

[artemavd]

У меня в ппредыдущей версии этот код работал. Например если я в предыдущей версии сохранял таблицу, то потом мог открыть. А в новой версии своей проги, я могу сохранить, а открыть сохраненную таблицу не могу, но зато могу открыть ее в старой версии программы.

[SNUPY]

Тфу..... Я и не удосужился посмотреть что за SG11 я думал, что это продцедура сохраняет в xsl ^_^

[SNUPY]

Самое интересное в том, что данная функция рабочая =\

[artemavd]

Самое интересное в том, что данная функция рабочая =\

а почему она должна быть не рабочая?)

[zetrix]

а почему она должна быть не рабочая?)

Ну ты как бы сам написал, что она не работает...

Проверил у себя, не пашет вылетает ошибка. После того, как закомментировал строку Sheet.cells.specialcells(XLCellType LastCell,emptyparam).Activate; всё нормально стало (странно, я работал с Excel-файлами, но об какой-то активации никогда не слышал и не видел).