[pozavchera]

Добрый день,
имею mdb из него с помощью ADO и sql запроса отображаю в dbgridEh.
также имею кнопочку, при нажатии которой должен открываться Бланк Excel и в него заполняться данные строчки из mdb но в определенные ячейки.
т.е. например в столбце имя "Василий", каждая буква должна быть в отдельной конкретной ячейке, в А2-В в G2-а в R2-c итд...

до этого вместо dbgrida были editы и не было bd.
так вот я максимально коряво текст из editов переносил в скрытый stringGrid а потом уже в excel, это все настолько коряво и некрасиво, хоть и работает)) что аж стыдно показывать, решил все переделать.

куски старого кода:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

begin   for i := 1 to length(Edit1.TEXT) do     begin     StringGrid1.rows[0].Add(Edit1.Text[i]);  end;   begin   for i := 1 to length(Edit2.TEXT) do     begin     StringGrid1.rows[1].Add(Edit2.Text[i]);  end;

Код:

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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

XL. Range['N12'].value:=StringGrid1.Cells[0,0]; XL. Range['R12'].value:=StringGrid1.Cells[1,0]; XL. Range['V12'].value:=StringGrid1.Cells[2,0]; XL. Range['Z12'].value:=StringGrid1.Cells[3,0]; XL. Range['AD12'].value:=StringGrid1.Cells[4,0]; XL. Range['AH12'].value:=StringGrid1.Cells[5,0]; XL. Range['AL12'].value:=StringGrid1.Cells[6,0]; XL. Range['AP12'].value:=StringGrid1.Cells[7,0]; XL. Range['AT12'].value:=StringGrid1.Cells[8,0]; XL. Range['AX12'].value:=StringGrid1.Cells[9,0]; XL. Range['BB12'].value:=StringGrid1.Cells[10,0]; XL. Range['BF12'].value:=StringGrid1.Cells[11,0]; XL. Range['BJ12'].value:=StringGrid1.Cells[12,0]; XL. Range['BN12'].value:=StringGrid1.Cells[13,0]; XL. Range['BR12'].value:=StringGrid1.Cells[14,0]; XL. Range['BV12'].value:=StringGrid1.Cells[15,0]; XL. Range['BZ12'].value:=StringGrid1.Cells[16,0]; XL. Range['CD12'].value:=StringGrid1.Cells[17,0]; XL. Range['CH12'].value:=StringGrid1.Cells[18,0]; XL. Range['CL12'].value:=StringGrid1.Cells[19,0]; XL. Range['CP12'].value:=StringGrid1.Cells[20,0]; XL. Range['CT12'].value:=StringGrid1.Cells[21,0]; XL. Range['CX12'].value:=StringGrid1.Cells[22,0]; XL. Range['DB12'].value:=StringGrid1.Cells[23,0]; XL. Range['DF12'].value:=StringGrid1.Cells[24,0]; XL. Range['DJ12'].value:=StringGrid1.Cells[25,0]; XL. Range['DN12'].value:=StringGrid1.Cells[26,0];   //name XL. Range['N14'].value:=StringGrid1.Cells[0,1]; XL. Range['R14'].value:=StringGrid1.Cells[1,1]; XL. Range['V14'].value:=StringGrid1.Cells[2,1]; XL. Range['Z14'].value:=StringGrid1.Cells[3,1]; XL. Range['AD14'].value:=StringGrid1.Cells[4,1]; XL. Range['AH14'].value:=StringGrid1.Cells[5,1]; XL. Range['AL14'].value:=StringGrid1.Cells[6,1]; XL. Range['AP14'].value:=StringGrid1.Cells[7,1]; XL. Range['AT14'].value:=StringGrid1.Cells[8,1]; XL. Range['AX14'].value:=StringGrid1.Cells[9,1]; XL. Range['BB14'].value:=StringGrid1.Cells[10,1]; XL. Range['BF14'].value:=StringGrid1.Cells[11,1]; XL. Range['BJ14'].value:=StringGrid1.Cells[12,1]; XL. Range['BN14'].value:=StringGrid1.Cells[13,1]; XL. Range['BR14'].value:=StringGrid1.Cells[14,1]; XL. Range['BV14'].value:=StringGrid1.Cells[15,1]; XL. Range['BZ14'].value:=StringGrid1.Cells[16,1]; XL. Range['CD14'].value:=StringGrid1.Cells[17,1]; XL. Range['CH14'].value:=StringGrid1.Cells[18,1]; XL. Range['CL14'].value:=StringGrid1.Cells[19,1]; XL. Range['CP14'].value:=StringGrid1.Cells[20,1]; XL. Range['CT14'].value:=StringGrid1.Cells[21,1]; XL. Range['CX14'].value:=StringGrid1.Cells[22,1]; XL. Range['DB14'].value:=StringGrid1.Cells[23,1]; XL. Range['DF14'].value:=StringGrid1.Cells[24,1]; XL. Range['DJ14'].value:=StringGrid1.Cells[25,1]; XL. Range['DN14'].value:=StringGrid1.Cells[26,1];

прошу подсказку как более эстетично разбить текст из таблицы в БД на ячейки

[lmikle]

Ну, что бы меньше переделывать, можно убрать StringGrid поменять заполнение экселя.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

const   xlCells : Array [1..26] Of String = ('N','R','V','Z',...); // Здесь перечислишь имена ячеек в эксель, которые заполняешь, только имена   ...   var   I : Integer; begin   For I := 1 To Min(Length(Edit1.Text),Length(Edit2.Text),Length(xlCells)) Do     Begin       XL.Range(xlCells[i] + '12').value := Edit1.Text[i];       XL.Range(xlCells[i] + '14').value := Edit2.Text[i];     End; end;

как-то так.

[pozavchera]

Спасибо! буду пробовать