Mira si esto te sirve:
Código:
var
i, j : Integer;
Tabla.First;
j := 0;
while NOT Tabla.EOF do
begin
for i:=0 to Tabla.FieldCount - 1 do
WS.Cells[i, j] := Tabla.Fields[i].AsString;
Inc(j);
Tabla.Next;
end;
NOTA: No estoy muy seguro del orden , si Cells[i, j] o si Cells[j, i].