Вверх ↑
Ответов: 698
Рейтинг: 143
#1: 2020-04-29 10:14:50 ЛС | профиль | цитата
Добавил пример передачи больших таблиц в Excel. Этот способ работает намного быстрее
Add(MainForm,4844206,42,14)
{
Left=20
Top=105
Width=444
Height=437
Caption="Пример передачи в Excel таблицы "
Point(Handle)
link(onCreate,9404130:doEvent1,[])
}
Add(DDEClient,12344087,350,175)
{
ServiceName="EXCEL"
TopicName="[Накладная.xlsx]Лист1"
AutoUpdate=1
Point(doExecute)
Point(onExecute)
link(onOpenLink,11742607:doWork1,[])
link(onCloseLink,11742607:doWork2,[])
}
Add(WinTools,6027587,42,63)
{
link(Handle,4844206:Handle,[])
}
Add(MTStrTbl,5816951,406,49)
{
Top=115
Width=428
Height=283
Align=5
Name="excel"
Columns=#7:Артикул|8:Название|6:Кол-во|7:Ед.изм.|4:Цена|5:Сумма|0:|
Redaction=0
}
Add(WinExec,7775503,126,21)
{
FileName="Накладная.xlsx"
}
Add(Hub,9404130,84,28)
{
OutCount=3
link(onEvent1,7775503:doShellExec,[])
link(onEvent2,1512985:doEnum,[(116,41)(116,76)])
link(onEvent3,6027587:doPopup,[(109,48)(109,55)(32,55)(32,76)])
}
Add(StrList,13732325,196,21)
{
Strings=#56:23544122;Carbon disc ?44,7/38,3x5,8mm;10;PC;16,92;169,20|56:23544122;Carbon disc ?44,7/38,3x5,8mm;10;PC;16,92;169,20|54:23544122;Carbon disc ?44,7/38,3x5,8mm;2;PC;16,92;33,84|64:21200159;Top part UNIFL3/4 for steel bot.part;25;PC;30,09;752,25|57:24400111;Hose f. pump compl. UNIWASH;153;PC;10,58;1618,74|58:13225;Piston complete for valve UNIWASH3;4;PC;27,09;108,36|60:12200105;Vacuumgauge glycerine ?100mm 3/8";5;PC;40,57;202,85|54:21200141;Thread bush UNIFLOW3 steel;130;PC;1,93;250,90|45:25100146;O-ring ?16,1x1,6mm;175;PC;0,36;63,00|57:21200127;Holder rocking lever, UNIFLOW3;170;PC;0,26;44,20|50:21200131;Rocking lever UNIFLOW3;150;PC;0,89;133,50|65:25200132;Valve button inside UNIFLOW3 steel FA;225;PC;0,72;162,00|61:21200129;Bar closing device UNIFLOW3 steel;225;PC;1,09;245,25|55:25200124;Valve flap outside UNIFLOW3;225;PC;1,56;351,00|60:14400212;Solenoid valve sgl. invensys 230vac;5;PC;8,50;42,50|62:14400213;Solenoid valve dobb. invensys 230vac;5;PC;14,13;70,65|48:21200131;Rocking lever UNIFLOW3;20;PC;0,89;17,80|63:25200132;Valve button inside UNIFLOW3 steel FA;20;PC;0,72;14,40|43:25100146;O-ring ?16,1x1,6mm;20;PC;0,36;7,20|55:21200127;Holder rocking lever, UNIFLOW3;20;PC;0,26;5,20|58:21200130;Bar closing device UNIFLOW3 steel;20;PC;0,34;6,80|58:25200119;Guard bracket UNIFLOW3 steel SBS;20;PC;3,38;67,60|55:13474;Valve flap exterior UNIFLOW3 SBS;20;PC;1,56;31,20|59:26400104;Terminal wheel for lock guide str;20;PC;1,12;22,40|67:25215022;Rubber liner UNIFL. 15022-?22 UNIFLEX FA;96;PC;2,39;229,44|55:14800695;Hose guide f. SAC115 complete;10;PC;9,17;91,70|36:14306;Filter for IDC;20;PC;0,40;8,00|51:25515435;Rubber hose ?27/16 mm - FA;15;M;5,24;78,60|63:13930;Double-action Quickstart II rem. L=740mm;1;PC;98,66;98,66|54:13100201;Spray gun for udder washer;20;PC;17,77;355,40|0:|
}
Add(ArrayEnum,1512985,210,70)
{
link(onItem,7011876:doMTString,[])
link(Array,13732325:Array,[])
}
Add(MT_String,7011876,266,56)
{
link(onResult,3501424:doRowAction,[])
}
Add(MST_RowAction,3501424,315,56)
{
MSTControl="excel"
}
Add(Menu,11693391,35,161)
{
Menu=#17:Создать Накладную|
Point(onSelectNum)
link(onSelectNum,10422639:doEvent1,[])
}
Add(Clipboard,2176761,231,168)
{
Unicode=0
}
Add(Convertor,3193568,175,168)
{
Mode=11
link(onResult,2176761:doPutText,[])
}
Add(MST_Save,11227433,126,161)
{
Delimiter="\t"
SaveColProp=1
MSTControl="excel"
link(onSaveToStream,3193568:doConvert,[])
}
Add(Hub,10422639,91,168)
{
link(onEvent1,11227433:doSaveToStream,[])
link(onEvent2,590240:doString,[(116,181)(116,209)])
}
Add(StatusBar,16298417,448,168)
{
Strings=#9:Подключён|8:Отключён|
}
Add(ChanelToIndex,11742607,399,175)
{
link(onIndex,16298417:doIndexText,[])
}
Add(FormatStr,590240,280,203)
{
Mask="[PASTE("R4C2")][SELECT("R4C2")][SELECT.SPECIAL(5)][BORDER(6,1,1,1,1)][COLUMN.WIDTH(0,"C1:C10",0,3)][SELECT("R1C1")]"
link(onFString,12344087:doExecute,[])
}
Add(InfoTip,11475842,49,301)
{
Info=#43:Подный список аргументов для команды BORDER|0:|193:Equivalent to choosing the Border tab in the Format Cells dialog box, which appears when you choose the Cells command from the Format menu. Adds a border to the selected cell or range of cells.|0:|6:Syntax|0:|113:BORDER(outline, left, right, top, bottom, shade, outline_color, left_color, right_color, top_color, bottom_color)|153:Outline, left, right, top, and bottom are numbers from 0 to 7 corresponding to the line styles in the Border dialog box, as shown in the following table.|0:|18:Argument Line type|0:|11:0 No border|11:1 Thin line|13:2 Medium line|13:3 Dashed line|13:4 Dotted line|12:5 Thick line|13:6 Double line|10:7 Hairline|0:|159:Note For compatibility with earlier versions of Microsoft Excel, TRUE and FALSE values for the above arguments create a thin border or no border, respectively.|0:|150:Shade corresponds to the Shade check box in the Border dialog box of Microsoft Excel version 4.0. This argument is included for compatibility only.|186:Outline_color, left_color, right_color, top_color, and bottom_color are numbers from 1 to 56 corresponding to the Color box in the Border dialog box. Zero corresponds to automatic color.|
HAlign=0
Width=715
Height=389
}


карма: 15

0
Редактировалось 7 раз(а), последний 2020-09-19 19:28:00