Всем привет! Помогите пожалуйста! я сделала экспорт из делфи в эксел, но почему то выводится только одна таблица которая находится на главной форме. вот код
Код:
var
XL, XArr: Variant;
k: Integer;
n: Integer;
begin
{не забудьте включить ComObj в список используемых модулей}
// Создаем массив элементов, полученных в результате запроса
XArr:=VarArrayCreate([1,Table1.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Applicat ion'); // Создание OLE объекта
XL.WorkBooks.add;
XL.visible:=true;
n := 1;
Table1.First;
while not Table1.Eof do
begin
k:=1;
while k<=Table1.FieldCount do
begin
XArr[k] := Table1.Fields[k-1].Value;
k := k+1;
end;
XL.Range['A'+IntToStr(n),
CHR(64+Table1.FieldCount)+IntToStr( n)].Value := XArr;
Table1.Next;
n:=n+1;
end;
XL.Range['A1',CHR(64+Table1.FieldCount)+IntT oStr(n)].select;
// XL.cells.select; // Выбираем все
XL.Selection.Font.Name:='Arial cur';
XL.Selection.Font.Size:=10;
XL.selection.Columns.AutoFit;
XL.Range['A1','A1'].select;
end;
Admin: Не забываем про теги!
Как можно связать вторую таблицу вместе с первой и чтобы они связанные по одному полю выводились в эксел