|
Выгрузка SQL запроса в xlsx без использования OLE на Delphi XE8
#39862707
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Гаджимурадов Рустам,
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.
{Вывод в EXEL любого отчета }procedure Otshot(n_list:string);
var
i,j: Integer;
Begin
try
Dmod.Dataset2Excel.Workbook:=WorkBook;
Dmod.Dataset2Excel.WorksheetName:='ZZZ';
Dmod.Dataset2Excel.Dataset:=Dmod.ADOQuery_report;
Dmod.Dataset2Excel.RowsPerSheet :=500000;
Dmod.Dataset2Excel.HeaderFont.Name:='Times New Roman';
Dmod.Dataset2Excel.HeaderFont.Size:=12;
Dmod.Dataset2Excel.DetailFont.Name:='Times New Roman';
Dmod.Dataset2Excel.DetailFont.Size:=10;
Dmod.Dataset2Excel.DetailBorderStyle:=BorderStyleSingleThin;
Dmod.Dataset2Excel.HeaderBorderStyle:=BorderStyleSingleThick;
Dmod.Dataset2Excel.ExportDataset;
for i := 1 to WorkBook.Sheets.Count do
begin
WorkBook.Sheets[i].Activate;
WorkBook.ActiveSheet.Selected:=true;
WorkBook.ActiveSheet.Cells.EntireColumn.AutoFit;
WorkBook.ActiveSheet.FreezePanes(1,0,1,1);
for j := 1 to 12 do WorkBook.ActiveSheet.Cells.Item[1,j].Value:='';
WorkBook.ActiveSheet.Cells.Item[1,1].Value:='заза';
WorkBook.ActiveSheet.Cells.Item[2,1].Value:='~ℓo√ﻉ~ ♥ I ℓ٥ﻻ ﻉ√٥υ ♥牡 マ キ グ ナ ル フ ァ 系 路 克 瑞 大 阪 市 立 学♠ ♡ ♢ ♣ ♤ ♥ ♦ ♧';
WorkBook.ActiveSheet.Cells.Item[3,1].Value:='за½ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞☚ ☛ ☜ ☝ ☞ ☟✌➳ ❤ ❣ ❢ ஐ இ ఞ ఎ യ✁ ✄ ✉✔ ✓ ☐ ☑ ☒✪ ★ ☆';
WorkBook.ActiveSheet.Cells.Item[4,1].Value:='за〠 ☯ ☮ ☭ ☄☊ ☣ ☢ ☤ ☬ ☫☪ ☨ ☦ ☧ ☥〄 〩 ❦ ❧ ♨☸☠✆ ☎ ☏‼ ⌚ ⌛ ☡ �';
WorkBook.ActiveSheet.Cells.Item[5,1].Value:='за☂♂☻♥╝╝╝ЬЬЬ╕╕╕◘◘◘♣♠♦○○♣♦☻☺000♥♣M♣♣55U╒◙j[♀+♂=♥]™͡๏̯͡๏ ‡ ╥ █ ◘ (•̪●)';
WorkBook.ActiveSheet.Cells.Item[6,1].Value:='за◗ ◖ ◕ ◔ ◓ ◒ ▲ △ ▴ ▵ ▶ ▷ ▸ ▹ ► ▻ ▼ ▽ ▾ ▿ ◀ ◁ ◂ ◃ ◄ ◅ ◆ ◇ ◈ ◉ ◊ ○ ◌ ◍ ◎ ● ◐ ◑';
WorkBook.ActiveSheet.Cells.Item[7,1].Value:='за ◯ ◮ ◭ ◬ ◫ ◪ ◩ ◨ ◧■ □ ▢ ▣ ▤ ▥ ▦ ▧ ▨ ▩ ▪ ▫ ▬ ▭▮ ▯ ▰ ▱ ▓ ▒ ░ ▐ ▏ ▎ ▍ ▌ ▋ ▊ ▉ █';
WorkBook.ActiveSheet.Cells.Item[8,1].Value:='за ▂ ▃ ▄ ▅ ▆ ▇ █ ▒ ▓    ╴ ╵ ╶ ╷ ╸ ╹ ╺ ╻ ╼ ╽ ╾ ╿ ┇ ┆ ┅ ┄ ┃│ ╇ ╆ ╅ ╄ ╃';
WorkBook.ActiveSheet.Cells.Item[9,1].Value:='за╂ ╁ ╀ ┿ ┾ ┽ ┼ ┻ ┺ ┹ ┸ ┷ ┶ ┵ ┴ ┳ ┲ ┱ ┰ ┯ ┮ ┭ ┬ ┫ ┪ ┩ ┨ ┧ ┦ ┥ ┤ ┣ ┢';
WorkBook.ActiveSheet.Cells.Item[10,1].Value:='за┡ ┠ ┟ ┞ ┝ ├ ┛ ┚ ┙ ┘ ┗ ┖ ┕ └ ┓ ┒ ┑┐ ┏ ┎ ┍ ┌ ┋ ┊ ┉ ┈ ┇ ┆ ┅╬ ╫ ╪ ╩ ╨ ╧';
WorkBook.ActiveSheet.Cells.Item[11,1].Value:='за╦ ╥ ╤ ╣ ╢ ╡╠ ╟ ╞ ╝ ╜╛ ╚ ╙ ╘╗ ╖ ╕╔ ╓ ╒║ ═ ╏╎ ╍ ╌╋ ╊ ╉╈ ༼ ༽ ༾ ༿ ‣ •';
WorkBook.ActiveSheet.Cells.Item[12,1].Value:='за╦ ╥ ╤ ╣ ╢ ╡╠ ╟ ╞ ╝ ╜╛ ╚ ╙ ╘╗ ╖ ╕╔ ╓ ╒║ ═ ╏╎ ╍ ╌╋ ╊ ╉╈ ༼ ༽ ༾ ༿ ‣ •';
WorkBook.ActiveSheet.Cells.Item[13,1].Value:='⑊ ⑉ ⑈ ⑇ ⑆ 〯 〮 〭 〬 ◦ 〫 〪 ❝ ❜ ❛ ❞ ₪ ۩ ๑ ¤ ۞‾ □ ▪ ▫ ◊ ● ◦  • ۝ ʻ ʼ ʽ ʾ ʿ ˀ ˁ ˂ ˃ ˄ ˅ ˆ ˇ ˈ ˉ ˊ ˋ';
WorkBook.ActiveSheet.Cells.Item[14,1].Value:=' ˌ ˍ ˎ ˏ ː ˑ ˒ ˓ ˔ ˕ ˖ ˗˘ ˙ ˚ ˛ ˜ ˝ ˞ ˠ ˡ ˡ ˢ ˣ ˤ̙̘̗̖̔̒̓̑̐̏̎̍̚̕ ̌ ̋ ̊ ̉ ̈ ̇ ̆ ̅ ̄ ̃ ̂ ́ ̀ ˩ ˨ ˧ ˦ ˥̡';
WorkBook.ActiveSheet.Cells.Item[15,1].Value:='عتبر رفيقة, أنا أنت يتلقّى تبحث ل, ويحافظ أنت يسكت ▼▼ ◄◄ ►► ■ « » ©©© ░░░░░ << >> % $$$ ### № @@@ """ ! ~ `';
WorkBook.ActiveSheet.Cells.Item[16,1].Value:='♂☻♥╝╝╝ЬЬЬ╕╕╕◘◘◘♣♠♦○○♣♦☻☺000♥♣M♣♣55U╒◙j';
WorkBook.ActiveSheet.Cells.Item[17,1].Value:='๏̯͡๏ 斯坦尼斯会文 社 ═╬ ╬═ ۩۞۩ ★★★ ▀▄ ▀▄ ▀▄ ▀▄ ۞ ۞ ۞ இஇஇ ®®® √√√ ๑۩۩๑ ¤¤¤ ♂♂♂ ••• ツツツ ●•●•';
WorkBook.ActiveSheet.Cells.Item[18,1].Value:='☼☼ عتبر رفيقة, أنا أنت يتلقّى تبحث ل, ويحافظ أنت يسكت ¶ ¶ ¶ ▼▼ ◄◄ ►► ■ « » ©©© ░░░░░ << >> % $$$ ### № @@@';
WorkBook.ActiveSheet.Cells.Item[19,1].Value:=' ♡♡♡ ♥♥♥ ღღღ ♀♀♀ ♫♫♫ ₪₪₪ øøø ♪♪♪ ஐஐஐ ↕↕↕ ˜”*°•..•°*”˜ ששששש ☻☻☻ ت ت ت ˙˙· . ૐ ╬╬╬';
WorkBook.ActiveSheet.Cells.Item[20,1].Value:='๏̯͡๏ 斯坦尼斯会文 社 ═╬ ╬═ ۩۞۩ ★★★ ▀▄ ▀▄ ▀▄ ▀▄ ۞ ۞ ۞ இஇஇ ®®® √√√ ๑۩۩๑ ¤¤¤ ♂♂♂ ••• ツツツ';
WorkBook.ActiveSheet.Cells.Item[21,1].Value:='◗ ◖ ◕ ◔ ◓ ◒ ▲ △ ▴ ▵ ▶ ▷ ▸ ▹ ► ▻ ▼ ▽ ▾ ▿ ◀ ◁ ◂ ◃ ◄ ◅ ◆ ◇ ◈ ◉ ◊ ○ ◌ ◍ ◎ ● ◐ ◑ ◯ ◮ ◭ ◬ ◫ ◪';
WorkBook.ActiveSheet.Cells.Item[22,1].Value:=' ┊ ┉ ┈ ┇ ┆ ┅╬ ╫ ╪ ╩ ╨ ╧ ╦ ╥ ╤ ╣ ╢ ╡╠ ╟ ╞ ╝ ╜╛ ╚ ╙ _';
WorkBook.ActiveSheet.Cells.Item[23,1].Value:=' ┱ ┰ ┯ ┮ ┭ ┬ ┫ ┪ ┩ ┨ ┧ ┦ ┥ ┤ ┣ ┢ ┡ ┠ ┟ ┞ ┝ ├ ┛ ┚ ┙ ┘ ┗ ┖ ┕ └ ┓ ┒ ┑┐ ┏ ┎ ┍ ┌ ┋';
WorkBook.ActiveSheet.Cells.Item[24,1].Value:='[♀+♂=♥]TM͡๏̯͡๏ ‡ ╥ █ ◘ (•̪●)';
end;
except //Проппуск ошибок
end;
end;
|
|
|
