[vesna0922]

Всем привет! Помогите пожалуйста! я сделала экспорт из делфи в эксел, но почему то выводится только одна таблица которая находится на главной форме. вот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

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: Не забываем про теги!

Как можно связать вторую таблицу вместе с первой и чтобы они связанные по одному полю выводились в эксел