var MyRange,V:OleVariant;
...
MyRange:=ExcelWorksheet1.Range['A2','C4'];
V:=VarArrayCreate([0,2,0,2], varVariant);
V[0,0]:=4;
V[0,1]:=6;
V[0,2]:=1;
V[1,0]:=8;
V[1,1]:=9;
V[1,2]:=0;
V[2,0]:=5;
V[2,1]:=7;
V[2,2]:=3;
MyRange.Value:=V;

Variant V; //massiv for data
//V=SafeArrayCreate(VT_DISPATCH,0,2,LPVOID(&CLSID_VObj));

ADOQuery3->First();
int s_rowcount= ADOQuery3->RecordCount;
if (s_rowcount>65000) {s_rowcount=64999;}
for(int k = 1; k <= s_rowcount; k++)
{
  ProgressBar1->Position=k;
  Label31->Caption=IntToStr(int(100*k/ProgressBar1->Max))+"%";

  j++;
  for(int i = 0; i < ADOQuery3->FieldCount; i++)
  {
    Application->ProcessMessages();
	r = xlRCtoA1(j, i + 1,false,false);
// Если раскомментить, то будет экспорт данных по ячейкам, скорость 50-100(max) в секунду
	//my_range = ExcelWorksheet1->get_Range(TVariant("A1"), TVariant(r));
	//my_range = my_range->get_Cells()->get_Item(TVariant(j), TVariant(i + 1));
	//if(ADOQuery3->Fields->Fields[i]->DataType != ftDateTime)
	//my_range->set_NumberFormat(TVariant("@"));
	//my_range->set_Value(TVariant(ADOQuery3->Fields->Fields[i]->AsString.c_str()));
	//V[j][i]= ADOQuery3->Fields->Fields[i]->AsString.c_str();
              // тут каким-то образом нужно наполнить массив
  }
  if(!ADOQuery3->Eof)
  ADOQuery3->Next();
}
r = xlRCtoA1( s_rowcount, ADOQuery3->FieldCount,false,false);
my_range = ExcelWorksheet1->get_Range(TVariant("A2"), TVariant(r));
//тут данные сливаем в диапазон excel
my_range-> set_Value(TVariant(V));
ADOQuery3->First();
ExcelApplication1->set_Visible(0,true);
ExcelWorksheet1->Disconnect();
delete ExcelWorksheet1;
ExcelWorkbook1->Disconnect();
delete ExcelWorkbook1;

ExcelApplication1->Disconnect();
delete ExcelApplication1;

ii=ADOQuery3->FieldCount;
jj=ADOQuery3->RecordCount+1;
Variant V= VarArrayCreate(OPENARRAY(int, (2, jj, 0, ii)), varVariant);

V.PutElement(ADOQuery3->Fields->Fields[i]->AsString,j,i);

my_range->set_Value2(TVariant(V));