исключение 'bad variable type'

[bastibubu]

Здравствуйте. Этот код должен экспортировать данные из датасета в excel но оператор

Range.Value := arrData;

вызывает исключение:

project raised exception class EOleSysError 'Bad variable type'

. Где искать причину исключения? Спасибо за помощь.

procedure Tform1.BExcelClick(Sender: TObject);
var 
 row,col,i,j:integer;
 xls, wb, arrData, Range: OLEVariant;
begin
 Query1.Close;
 Query1.Open;
            
 row := Query1.RecordCount;
 col := Query1.FieldCount;
 arrData := VarArrayCreate([1, row, 1, col], varVariant);
                                                                                            
 for i:=1 to row do begin
  for j:=1 to col do
    arrData[i,j] := Query1.Fields[j-1].Value;
     Query1.Next;
 end;
            
 xls := CreateOLEObject('Excel.Application');                                  
 wb := xls.Workbooks.Add;
          
 for j:=1 to col do
   WB.Worksheets[1].Cells[1,j]:= dbgrid1.Columns[j-1].Title.Caption;
            
 Range := wb.WorkSheets[1].Range[wb.WorkSheets[1].Cells[2, 1], wb.WorkSheets[1].Cells[row+1, col]];
 Range.Value := arrData;
 xls.Visible := True;
end;

[NetSpace]

я б сначала убрал всё сложное, особенно циклы и попробовал в EXCEL передать какое-то одно значение. если прокатит, то по нарастающей усложнять код.
----------------
1) открытие и закрытие EXCEL
2) передача 1 значения
3) цикл по строкам
4) цикл по столбцам...

[Vapaamies]

Вообще, по логике, “Bad variable type” — когда через вариантную переменную в OLE передается неподходящий тип. Обычно это строковый тип, вроде бы AnsiString или UnicodeString. По стандарту должен быть только WideString, остальные типы допустимы только между Delphi-приложениями.

Раньше строки вроде всегда преобразовывались при присваивании варианту, а в новых версиях Delphi что-то поменяли, разнеся логически типы Variant и OleVariant.

Конкретно в данном примере предположу, что массив нужно создавать с типом элемента varOleVariant, если таковой имеется.

[bastibubu]

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

я б сначала убрал всё сложное, особенно циклы и попробовал в EXCEL передать какое-то одно значение. если прокатит, то по нарастающей усложнять код.
----------------
1) открытие и закрытие EXCEL
2) передача 1 значения
3) цикл по строкам
4) цикл по столбцам...

Vapaamies, нашел точное место где пройсходит исключение. в запросе есть 2 поля- типа datetime(имя ExpDate) и calculated field summa (quantity*price). Без них запрос правильно работает. Как их дабавляю в запросе вызывает исключение.
запрос:

select   
 g.GoodsName,  --имя товара 
 s.qnt,  --количество проданного товара
 s.Price,           --цена  
 s.qnt*s.price as summa, 
 s.series,   --серия
 s.ExpDate,  --срок товара         
 t.temp   --температура хранения
from sales s, goods g, incomes i,  temperatures t
where (s.Doc_id=:Doc_id) and
          (s.goods_id=g.goods_id)and
          (s.id=i.id)and
          (g.temp_id=t.id)
group by g.goodsname,  s.qnt, s.Price, summa, s.series, s.ExpDate, t.temp
order by g.GoodsName

Как исправить?

[Vapaamies]

Так пробовали?

  arrData[i,j] := OleVariant(Query1.Fields[j-1].Value);

[bastibubu]

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

Так пробовали?

  arrData[i,j] := OleVariant(Query1.Fields[j-1].Value);

Vapaamies, большое спасибо вам. Заработал!!!