Вверх ↑
Этот топик читают: Гость
Ответов: 448
Рейтинг: 14
#1: 2021-04-06 10:13:18 ЛС | профиль | цитата
Как средствами Hiasm создать новый лист в Excel с понятным названием, например дата-время, не обязательно это делать скрытно, можно открыть Excel и автоматом создать вкладку, главное чтобы она стала активной, тогда можно вставить туда данные с таблицы. Я вот понятия не имею как это сделать, на форуме ничего подобного не нашел
карма: 4

0
vip
#1.1контекстная реклама от партнеров
Ответов: 1765
Рейтинг: 121
#2: 2021-04-06 10:54:34 ЛС | профиль | цитата
Sersey, у меня Excel-а нет, по этому до конца проверить не могу.
Add(MainForm,2953706,224,119)
{
link(onActivate,15090975:doEnum,[])
}
Add(StringTable,1967927,385,119)
{
Top=90
Width=685
Height=144
Align=2
Columns=#14:Названия строк|6:Кол-во|11:Кол-во Факт|7:разница|8:Полюс МТ|9:Урал-бюро|6:Радиан|5:ОПТСБ|7:Новаком|4:Хост|7:О-Си-Эс|3:ххх|2:хх|27:Наименьшая цена, Руб. с НДС|
Point(Handle)
}
Add(StrList,14735267,301,49)
{
Strings=#86: Вентилятор для Socket 775 IGLOO 5058 RTL;4;4;;201,6;247,7926;;22:54;;;199,93;;;199,93|99:106R01529 Тонер-картридж Xerox WC 3550 (o) 5k;19;19;;;4556,3716;;20.06.2014;;;4367,2508;;;4367,2508|87:19V -]] 4.74A Блок питания для ноутбуков HP nc6310;1;1;;;3048,1;;20.10.2014;;;;;;3048,1|76:Brother Фотобарабан /Drum Unit/ BrDR-2075;1;1;;2641,8;2807,838;;;;;;;;2641,8|74:Canon Тонер-картридж черный FC-E16;3;3;;2844,45;;;;;;2712,2182;;;2712,2182|35:"Canon Тонер-картридж черный FC-E30|41:";4;4;;4343,85;;;;;;4302,5514;;;4302,5514|59:EPSON Картридж серый EPT059740;1;1;;;708,235;;;;;;;;708,235|46:"HP № 11 Печатающая головка, голубая HP-C4811A|45:";1;1;;1176;1129,59;;;;;1090,5206;;;1090,5206|45:"HP № 11 Печатающая головка, желтая HP-C4813A|45:";1;1;;1176;1129,59;;;;;1090,5206;;;1090,5206|48:"HP № 11 Печатающая головка, пурпурная HP-C4812A|45:";1;1;;1176;1129,59;;;;;1090,5206;;;1090,5206|45:"HP № 11 Печатающая головка, черная HP-C4810A|45:";2;2;;1176;1129,59;;;;;1090,5206;;;1090,5206|74:HP № 15 Картридж черный HP-C6615D;3;3;;990,15;968,22;;;;;917,332;;;917,332|81:HP № 21 Картридж черный простой HP-C9351BE;4;4;;305,55;304,81;;;;;287,92;;;287,92|76:HP № 22 Картридж цветной HP-C9352AE;4;4;;593,25;573,76;;;;;548,818;;;548,818|78:HP Картридж голубой HP-C9731A;2;2;;11638,2;11833,8;;;;;11063,6918;;;11063,6918|30:"HP Картридж голубой HP-Q3961A|51:";1;#Н/Д;;3655,05;3621,86;;;;;3411,6278;;;3411,6278|74:HP Картридж голубой HP-Q6001A;1;1;;2950,5;3048,1;;;;;2833,2154;;;2833,2154|76:HP Картридж желтый HP-C9732A;1;1;;11638,2;12156,54;;;;;11371,011;;;11371,011|29:"HP Картридж желтый HP-Q3962A|51:";1;#Н/Д;;3655,05;3621,86;;;;;3411,6278;;;3411,6278|79:HP Картридж пурпурный HP-C9733A;1;1;;11638,2;12156,54;;;;;11371,011;;;11371,011|81:HP Картридж пурпурный HP-Q3963A;1;#Н/Д;;3657,15;3621,86;;;;;3412,9258;;;3412,9258|42:"HP Картридж черный (7000 копий) HP-Q7553X|47:";3;3;1;5022,15;4912,82;;;;;5066,7312;;;4912,82|74:HP Картридж черный HP-C9730A;2;2;;8292,9;8570,54;;;;;8102,8594;;;8102,8594|74:HP Картридж черный HP-Q3960A;1;#Н/Д;;3034,5;3048,1;;;;;2832,236;;;2832,236|29:"HP Картридж черный HP-Q6000A|48:";1;1;;2754,15;2797,08;;;;;2598,9972;;;2598,9972|74:HP Картридж черный HP-Q6511A;3;3;;4540,2;4554,22;;;;;4236,6602;;;4236,6602|74:HP Картридж черный HP-Q7516A;2;2;;6654,9;6669,96;;;;;6209,9034;;;6209,9034|74:HP Тонер картридж HP-C4129X;3;3;;6175,05;6167,92;;;;;5762,0698;;;5762,0698|36:"HP Тонер-картридж голубой HP-CC531A|42:";3;3;1;;4016,32;;;;;3741,5204;;;3741,5204|36:"HP Тонер-картридж голубой HP-CE321A|45:";6;6;;2238,6;2223,32;;;;;2089,544;;;2089,544|35:"HP Тонер-картридж желтый HP-CB542A|47:";1;1;;2354,1;2366,76;;;;;2208,8656;;;2208,8656|35:"HP Тонер-картридж желтый HP-CC532A|48:";3;3;1;4008,9;4016,32;;;;;3741,5204;;;3741,5204|78:HP Тонер-картридж желтый HP-CE322A;6;6;;2238,6;2223,32;;;;;2089,544;;;2089,544|38:"HP Тонер-картридж пурпурный HP-CC533A|48:";3;3;1;4008,9;4016,32;;;;;3741,5204;;;3741,5204|38:"HP Тонер-картридж пурпурный HP-CE323A|45:";6;6;;2238,6;2223,32;;;;;2089,544;;;2089,544|87:HP Тонер-картридж черный (2500 копий) HP-Q5949A;1;1;;;2761,22;;;;;2582,8194;;;2582,8194|91:HP Тонер-картридж черный (6000 копий) HP-Q5949X;10;0;;8683,5;4590,08;;;;;4598,224;;;4590,08|73:HP Тонер-картридж черный HP-CC530A;3;3;1;;2922,59;;;;;4171,6894;;;2922,59|71:HP Тонер-картридж черный HP-CE255A;8;8;;;4841,1;;;;;4501,582;;;4501,582|82:HP Тонер-картридж черный HP-CE320A;6;6;;2357,25;2359,588;;;;;2199,4728;;;2199,4728|82:HP Тонер-картридж черный HP-CE505A;5;5;5;2913,75;2940,52;;;;;2727,9476;;;2727,9476|39:"Kyocera Тонер-картридж черный KcTK-130|37:";9;9;;3520,65;3657,72;;;;;;;;3520,65|33:"PANASONIC Тонер-туба PnKX-FAT88A|33:";1;1;;890,4;860,64;;;;;;;;860,64|35:"Samsung Тонер-картридж SgMLT-D108S|40:";1;#Н/Д;;1753,5;;;;;;1785,7176;;;1753,5|86:Universal Notebook & LCD Monitor AC Power Adapter 12V-24V;2;2;;1124,55;;;;;;;;;1124,55|31:"XEROX Тонер черный XX006R90269|39:";3;3;;;3872,88;;;;;3942,1676;;;3872,88|95:Аккумулятор APC RBC24 для SU1400RM2U, SU1400RMI2U (Z);5;0;;;15419,8;;;;;13915,2798;;;13915,2798|105:Аккумулятор APC RBC32 Battery replacement kit for BR1000I, BR800I;2;2;;;2904,66;;;;;2663,0476;;;2663,0476|79:Аккумулятор APC RBC6 для ИБП APC SUA1000I;2;2;;;7100,28;;;;;6528,232;;;6528,232|141:Аккумулятор APC RBC7 для ИБП APC SU700XLINET, SU1000XLINET, BP1400I, SUVS1400I, SU1400INET, SUA1500I;1;1;1;;7996,78;;;;;7344,0958;;;7344,0958|59:Аккумулятор для телефона Sanyo CLT-K928;1;#Н/Д;;;;;;;;;;;0|59:Аккумулятор для HP Compaq nc6320;1;1;;;5199,7;;;;;;;;5199,7|69:Аккумулятор для ИБП, 12V, 4.5Ah (DJW 12-4.5);2;2;;359,1;;;;;;;;;359,1|92:Аккумуляторная батарея «KNB-15A» 7.2V, 1100mAhдля РЭС «KENWOOD ТК-2107» ;1;#Н/Д;;;;;;;;;;;0|72:Аккумуляторная батарея 7.2V для РЭС «MOTOROLA CP140» ;1;#Н/Д;;;;;;;;;;;0|79:"Аккумуляторные батареи для ИБП "" Скат"" 12V, 7AH ";2;2;;471,45;;;;;;;;;471,45|69:Блок барабана Kyocera DK-150 для 1028MFP;4;4;;;3657,72;;;;;;;;3657,72|54:Блок питания ATX 350W;6;6;;422,1;606,034;;;;;;;;422,1|54:Блок питания ATX 400W ;1;1;;537,6;779,955;;;;;;;;537,6|116:Блок розеток APC-AP7553 Rack PDU, Basic, Zero U, 32A, 230V, (20)C13 & (4)C19;2;0;;;12144;;;;;11137,4536;;;11137,4536|48:Бумага факса 30м 216 мм;4;4;;34,65;;;;;;;;;34,65|74:"вентилятор KM128025 HS DS 12V 0.23A (СКУД ""Perco"")";5;#Н/Д;;;;;;;;;;;0|58:всепогодная видеокамера UPC-21-220 (24);2;#Н/Д;;;;;;;;;;;0|47:Диск CD-R 700 Mb box 10 шт;1;1;;84;;;;;;;;;84|53:Диск DVD+R 4.7 Gb box 10шт;1;1;;95,55;;;;;;;;;95,55|80:Драм-юнит Ricoh Aficio 1515/1515F/1515PS/1515MF (o);1;1;;;5092,12;;;;;;;;5092,12|93:Жесткий диск HP (сервер HP ML350G4) на 72Гб, одна штука. Номер sp 289042-001.;1;1;;;;;;;;;;;0|145:"Жесткий диск HP 72Gb 15K 6G SFF SAS 2.5"" HotPlug Dual Port HDD (For use with SAS Models servers and storage systems)";8;1;7;;11968;;;;;;;;11968|75:"Жесткий диск HP 72Gb 3G 15K 2,5"" SP SAS HDD (431935-B21)";2;2;;;;;;;;;;;0|62:Жесткий диск IDE 160 Gb;2;1;1;2766,75;;;;;;2832,2478;;;2766,75|100:Жесткий диск SATA II 160Gb WD 7200rpm 8Mb (WD1600AAJS) Caviar Blue;5;4;1;;;;;;;3232,0908;;;3232,0908|107:Жесткий диск SATA II 500Gb WD 5400rpm 32Mb (WD5000AADS) Caviar Green;1;#Н/Д;;3649,8;;;;;;4831,4746;;;3649,8|33:Заглушка RJ-45;9;#Н/Д;;;;;;;;;;;0|78:И8903 Канифоль сосновая марки А 100г (Векта 21 век Москва);9;#Н/Д;;;;;;;;;;;0|100:И8963 Припой ПОС-61 проволока 2,0 D=2,0мм 100 г на катушке (Векта 21 век Москва);9;#Н/Д;;;;;;;;;;;0|48:"Извещатель ручной ""ИПР-И""";1;#Н/Д;;;;;;;;;;;0|69:Кабель Cat.5e UTP 4 пары (Бухта 305 м.);3;3;;2882,25;;;;;;;;;2882,25|74:Кабель D-sub- D-sub, 10м (соединительный VGA-VGA);1;1;;319,2;;;;;;;;;319,2|47:Кабель HDMI-HDMI 1,8 m;1;1;;91,35;;;;;;;;;91,35|149:Кабель USB 2.0 AM/AF 1.8 м (блистер) удлинитель, экранированный, позолоченные контакты, прозрачный (X-Storm USB 2.0-AM/AF-S);4;4;;85,05;;;;;;;;;85,05|64:Кабель USB для принтера (3 м.);3;3;;247,8;;;;;;38,5978;;;38,5978|156:"Кабель аудио 3.5 мм/2xRCA (миниджек/2 ""тюльпана"") (M/M) 10 м (пакет) изоляция из поливинилхлорида, черный (Gembird CCA-458-10M)";1;1;;64,05;;;;;;;;;64,05|82:Картридер USB (чтение/запись инф. с флэш-карт);1;1;;329,7;;;;;;199,9156;;;199,9156|64:Картридж Canon PFI-102BK чёрный;4;4;;;;;;;;2216,9486;;;2216,9486|64:Картридж Canon PFI-102C голубой;1;1;;;;;;;;2216,9368;;;2216,9368|65:Картридж Canon PFI-102M малиновы;1;1;;;;;;;;2216,9368;;;2216,9368|73:Картридж Canon PFI-102MBK матовый чёрный;2;2;;;;;;;;2216,9486;;;2216,9486|63:Картридж Canon PFI-102Y жёлтый;1;1;;;;;;;;2216,9368;;;2216,9368|73:Картридж Drum Unit Panasonic KX-FA84A;3;3;;3010,35;3012,24;;;;;;;;3010,35|83:Картридж HP DJ C9352A для HP PSC 1410 color N:22;2;2;;;573,76;;;;;548,818;;;548,818|37:"Картридж Panasonic KX-FL513 KX-FA83А|34:";2;2;;992,25;932,36;;;;;;;;932,36|107:Картридж Xerox WorkCentre 3210/3220 106R01487 (4100 стр.);9;9;-1;3580,5;3452,2422;;;;;3309,0858;;;3309,0858|40:Клавиатура PS/2;7;7;;176,4;;;;;;;;;176,4|39:Клавиатура USB;4;4;;205,8;;;;;;;;;205,8|52:Кнопка домофона VIZIT «EXIT 300» ;3;#Н/Д;;;;;;;;;;;0|44:Ламинатор (A4);1;#Н/Д;;4630,5;;;;;;;;;4630,5|75:Мат.плата S-775 /DDR2/PCI-E/Video/LAN/mATX;3;3;;;;;;;;1416,177;;;1416,177|88:Мат.плата S-775 /DDR2/PCI-E/Video/LAN/mATX/DDR3;3;3;;1507,8;;;;;;1449,5002;;;1449,5002|48:Микрофонный капсюль МКЭ-82А ;10;#Н/Д;;;;;;;;;;;0|44:Микрофонный капсюль ПДК-1;4;#Н/Д;;;;;;;;;;;0|36:Модем D-Link DU-562M;1;1;;;;;;;;;;;0|47:Мышь PS2 (оптическая) ;7;7;;102,9;;;;;;;;;102,9|47:Мышь USB (оптическая) ;2;2;;119,7;;;;;;;;;119,7|32:"НР №40 Картридж черный HP51640A|45:";3;3;;1058,4;1022,01;;;;;981,6066;;;981,6066|33:"НР №44 Картридж голубой HP51644C|41:";1;1;;;1201,31;;;;;1138,7236;;;1138,7236|32:"НР №44 Картридж желтый HP51644Y|41:";1;1;;;1201,31;;;;;1151,6564;;;1151,6564|35:"НР №44 Картридж пурпурный HP51644M|41:";1;1;;;1201,31;;;;;1151,6564;;;1151,6564|71:НР Тонер картридж HP-C8543X;3;3;;10204,95;10040,8;;;;;9431,74;;;9431,74|54:Обложка для пластиковых пропусков;250;#Н/Д;;;;;;;;;;;0|71:Память DDR 1024Mb PC3200 ;40;39;4;762,3;817,608;;;;;756,3918;;;756,3918|57:Память DDR 512Mb PC3200 ;1;1;;392,7;;;;;;849,8242;;;392,7|71:Память DDRII 1024Mb PC3200 ;9;8;1;466,2;392,3084;;;;;449,875;;;392,3084|61:Память DIMM DDR II PC-5300 1Gb ;2;2;1;;;;;;;449,993;;;449,993|64:Память DIMM PC-10600 DDR III 1Gb;6;6;;298,2;251,02;;;;;;;;251,02|66:Память DIMM PC-6400 DDR II 1Gb ;2;1;1;466,2;;;;;;449,993;;;449,993|66:Память DIMM PC-6400 DDR II 2Gb ;1;#Н/Д;;758,1;;;;;;792,901;;;758,1|64:Память SD Card 4Gb;15;0;;173,25;166,3904;;;;;193,2604;;;166,3904|67:Переходник USB/2xCOM (AM/2x9M) 1.5 м (ST-Lab U-360);1;1;;;;;;;;;;;0|189:Пластиковые карты для электронных пропусков EM-Marine ISO Card (тонкие карты) Толщина 0,76 мм. Белый пластик PVC. Под прямую офсетную / сублимационную печать. Белые карты;1;#Н/Д;;;;;;;;;;;0|82:Пленка для ламинирования:111х154, толщина 100-175 мкм. (100шт.);3;#Н/Д;;;;;;;;;;;0|71:Пленка для ламинирования:65х95, толщина 100-175 мкм.;6;#Н/Д;;;;;;;;;;;0|113:Процессор Intel Core 2 Duo E7500 (OEM) S-775 2.93GHz/3Mb/1066MHz/65W 2C/2T;1;#Н/Д;;2066,4;;;;;;3615,4256;;;2066,4|111:Процессор Intel Pentium E6700 (OEM) S-775 3.2GHz/2Mb/1066MHz/65W 2C/2T;3;3;;2066,4;2510,2;;;;;2392,391;;;2066,4|37:Радиорозетка РПВ-1;1;#Н/Д;;;;;;;;;;;0|71:Разъем (коннектор) RJ-45 Cat.5 (P88RE06V2);300;400;-100;2,1;;;;;;;;;2,1|105:Сжатый воздух Defender Пневмораспылитель (30802) для чистки ПК, 300мл [30802] ;3;0;;421,05;;;;;;;;;421,05|70:Стяжка 100x2.5мм неоткрыв. 100шт (KSS CV-100);45;45;;16,8;;;;;;;;;16,8|72:Стяжка 150x3.6мм неоктрыв. 100шт (KSS CV-150);45;45;;38,85;;;;;;;;;38,85|59:Телефон Panasonic KX-TS2350 RUB ;15;15;;445,2;;;;;;;;;445,2|37:Термопаста;15;15;44;35,7;;;;;;;;;35,7|68:Тонер Ricoh Aficio 1515 Type 1270D (o);3;3;;900,9;896,5;;;;;;;;896,5|92:Тонер-картридж 106R01531 для Xerox WC 3550 (o) 11k;40;2;38;;7351,3;;;;;6847,8468;;;6847,8468|27:"Тонер-картридж SgML-1210D3|43:";2;#Н/Д;;2116,8;;;;;;1941,0056;;;1941,0056|53:Фильтр питания 3м;1;1;;185,85;;;;;;375,2636;;;185,85|51:Флэш-диск 4Gb ;4;4;;183,75;;;;;;183,2658;;;183,2658|84:Цветной картридж для Принтера печати пластиковых карт Zebra P110i;1;#Н/Д;;;;;;;;;;;0|95:Чистящие салфетки Defender для оптики (10 влажных + 10 сухих) (30192);2;2;6;123,9;;;;;;;;;123,9|92:Чистящие салфетки Defender сухие безворсовые (30604) 25шт;196;52,75;158,25;54,6;;;;;;;;;54,6|161:Чистящий комплект Defender для LCD (спрей 100 мл + салф.15шт) (30591)/Спрей-очиститель Defender, для пластиковых поверхностей, 250 мл.;19;19;56;90,3;;;;;;;;;90,3|53:Элемент питания AAA (уп.2 шт);2;2;;56,7;;;;;;;;;56,7|47:Элемент питания «Крона» 9v ;4;#Н/Д;;;;;;;;;;;0|55:Элемент питания AA (уп.2 шт);5;15;-10;56,7;;;;;;;;;56,7|22:(пусто);;0;;;;;;;;;;;0|52:Видеокамера МВК-0842АР (2,8-11мм);1;#Н/Д;;;;;;;;;;;0|122:1TB dual-port FATA EVA hot-swap add-on hard disk drive - 7,200 RPM (для HP EVA 4400);1;1;;;103994;;;;62335,28;;;;62335,28|65:HP Картридж черный HP-CB436A;1;1;;2562;;;;;;2390,6564;;;2390,6564|85:HP № 78 Картридж трехцветный HP-C6578D;4;4;;1189,65;1183,38;;;;;1103,2174;;;1103,2174|71:HP №920 Картридж черный HP-CD971A;2;2;;537,6;573,76;;;;;549,467;;;537,6|91:HP №920XL Картридж голубой повышенной емкости HP-CD972A;2;2;;399;426,734;;;;;399,2058;;;399|93:HP №920XL Картридж пурпурный повышенной емкости HP-CD973A;2;2;;399;426,734;;;;;399,2058;;;399|90:HP №920XL Картридж желтый повышенной емкости HP-CD974A;2;2;;399;426,734;;;;;399,2058;;;399|62:Бумага SvetoCopy New A4 80г/м2 500л;25;25;;138,6;;;;;;;;;138,6|64:Термостат для обогревательно элемента TW1;1;1;;;;;1144;;;;;;1144|50:Обогревательный элемент PW1;1;1;;;;;1144;;;;;;1144|63:HP Тонер картридж увеличенного объема HP-C7115X;2;2;;;;;;;;;;;0|47:Сотовый телефон NOKIA 1280;1;1;;;820;;;;;;;;820|0:|
}
Add(ArrayEnum,15090975,315,119)
{
link(onItem,1967927:doAdd,[])
link(Array,14735267:Array,[])
}
Add(ChildPanel,13424780,315,189)
{
link(onEvent1,13243851:doExportHTML,[])
link(onEvent2,13243851:doStyle,[])
}
BEGIN_SDK
Add(EditMulti,15181507,21,21)
{
EventCount=2
WorkCount=2
VarCount=1
Width=279
Height=165
link(doWork1,3526081:doPosition,[(38,27)(38,48)])
link(doWork2,3526081:doMax,[(31,34)(31,55)])
link(Var1,9145761:Text,[(27,165)(55,165)])
}
Add(Panel,11566108,189,147)
{
Width=685
Height=90
Align=2
BevelInner=0
}
Add(Button,3353780,105,42)
{
Left=5
Top=5
Width=155
Height=40
Caption="Export Table to Html..."
link(onClick,15181507:onEvent1,[(194,48)(194,27)])
}
Add(ComboBox,1258626,105,98)
{
Left=185
Top=15
Width=115
Height=21
Strings=#11:Black&White|7:Classic|8:ColorFul|4:Gray|8:MS_Money|5:Murky|5:Olive|5:Plain|6:Simple|
Text="Black&White"
Point(Index)
link(onClick,2029955:doData,[])
}
Add(DoData,2029955,189,105)
{
link(onEventData,15181507:onEvent2,[(261,111)(261,34)])
link(Data,1258626:Index,[(195,93)(171,93)(171,155)(125,155)])
}
Add(Edit,9145761,49,112)
{
Left=330
Top=15
Width=235
Text="Демонстрация экспорта таблицы"
}
Add(ProgressBar,3526081,49,42)
{
Left=1
Top=69
Width=683
Align=4
Max=10
Smooth=1
ProgressColor=8388608
Point(doMax)
}
END_SDK
Add(ExportHTML,13243851,399,189)
{
Point(doStyle)
Point(Title)
Point(onProgress)
Point(onCount)
link(onExportHTML,13133152:doEvent1,[(471,195)(471,153)])
link(Handle,1967927:Handle,[])
link(Title,13424780:Var1,[(412,177)(366,177)(366,233)(321,233)])
link(onProgress,13424780:doWork1,[(467,202)(467,258)(287,258)(287,195)])
link(onCount,13424780:doWork2,[(443,209)(443,244)(296,244)(296,202)])
}
Add(WebBrowser,6206041,574,91)
{
Top=234
Width=685
Height=350
Align=5
Point(doFromText)
}
Add(Convertor,1642012,574,245)
{
Mode=12
link(onResult,16711050:doCopyFromStream,[])
}
Add(Hub,13133152,511,147)
{
OutCount=5
link(onEvent1,6206041:doFromText,[(549,153)(549,125)])
link(onEvent2,10077431:doString,[])
link(onEvent3,1642012:doConvert,[(557,167)(557,251)])
link(onEvent4,7734432:doString,[(545,174)(545,293)])
}
Add(FileStream,16711050,637,231)
{
FileName="Demo.html"
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,16564575:Var2,[])
}
Add(Dir,1751422,637,91)
{
}
Add(FormatStr,10077431,637,154)
{
Mask="%1Demo.html"
Point(FString)
link(Str1,1751422:CurrentDir,[])
}
Add(VBJScript,7818199,742,287)
{
WorkPoints=#11:##SetScript|
Script=#0:|0:|
}
Add(GetDataEx,16564575,637,196)
{
link(Data,10077431:FString,[])
}
Add(FormatStr,7734432,686,287)
{
Mask="Dim objExcel, objWorkbook, objRange \r\n\r\nSet objExcel = CreateObject("Excel.Application")\r\nobjExcel.Visible = True\r\nSet objWorkbook = objExcel.Workbooks.Open("%1")\r\nSet objWorksheet = objWorkbook.Worksheets(1)\r\nobjWorksheet.Activate\r\n\r\n' тут с верхних точек подставляй нужные значения\r\nSet objRange = objExcel.Range("A1","A1")\r\nobjRange.Font.Size = 14\r\nobjRange.Font.Color = RGB(0, 0, 255) ' RGB(red, green, blue)\r\n\r\nSet objRange = objExcel.Range("A2","A5")\r\nobjRange.Interior.ColorIndex = 36\r\n\r\nSet objRange = objExcel.ActiveCell.EntireColumn\r\nobjRange.AutoFit()\r\n"
link(onFString,7818199:##SetScript,[])
link(Str1,16564575:Var3,[(692,201)])
}

Редактировалось 2 раз(а), последний 2021-04-06 10:57:28
карма: 5

0
Ответов: 448
Рейтинг: 14
#3: 2021-04-06 12:30:28 ЛС | профиль | цитата
Этот код только создает файл .html и переносит его в Excel, создать вторую вкладку тут нельзя, пробовал по разному, переделывал, не получилось
карма: 4

0
Ответов: 1765
Рейтинг: 121
#4: 2021-04-06 13:31:30 ЛС | профиль | цитата
Sersey, Ну, это как пример и Html тут не причём, случайно затесался.
Надо изучить методы COM-объекта Excel https://docs.microsoft.com/ru-ru/office/vba/api/excel.oleobject и через OLE дёргать нужные в каком нибудь IC, или компонент сделать.
https://forum.mista.ru/topic.php?id=265330
Dim objExcel, objWorkbook, objRange 

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("%1")
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

' тут с верхних точек подставляй нужные значения
Set objRange = objExcel.Range("A1","A1")
objRange.Font.Size = 14
objRange.Font.Color = RGB(0, 0, 255) ' RGB(red, green, blue)

Set objRange = objExcel.Range("A2","A5")
objRange.Interior.ColorIndex = 36

Set objRange = objExcel.ActiveCell.EntireColumn
objRange.AutoFit()
тут посмотри, как сделано в 1С

Редактировалось 4 раз(а), последний 2021-04-06 13:54:12
карма: 5

0
Ответов: 448
Рейтинг: 14
#5: 2021-04-06 14:23:04 ЛС | профиль | цитата
Получилось. Спасибо за подсказку
Add(MainForm,2953706,112,133)
{
}
Add(VBJScript,7818199,343,133)
{
WorkPoints=#11:##SetScript|
Script=#0:|0:|
}
Add(FormatStr,7734432,287,133)
{
Mask="Dim objExcel, objWorkbook, objRange \r\n\r\nSet objExcel = CreateObject("Excel.Application")\r\nobjExcel.Visible = True\r\nSet objWorkbook = objExcel.Workbooks.Open("%1")\r\n\r\nSet objWorksheet = objWorkbook.Worksheets.Add() \r\n Set objWorksheet = objWorkbook.Worksheets(1)\r\nobjWorksheet.Activate\r\nobjWorksheet.Name = "Отчет"\r\n\r\n' тут с верхних точек подставляй нужные значения\r\n' Set objRange = objExcel.Range("A1","A1")\r\n' objRange.Font.Size = 14\r\n' objRange.Font.Color = RGB(0, 0, 255) ' RGB(red, green, blue)\r\n\r\n' Set objRange = objExcel.Range("A2","A5")\r\n' objRange.Interior.ColorIndex = 36\r\n\r\nSet objRange = objExcel.ActiveCell.EntireColumn\r\nobjRange.AutoFit()\r\n"
link(onFString,7818199:##SetScript,[])
}
Add(Button,11490679,175,133)
{
Left=165
Top=145
link(onClick,819712:doExecute,[])
}
Add(ODialog,819712,231,133)
{
link(onExecute,7734432:doString,[])
}

Редактировалось 1 раз(а), последний 2021-04-06 14:28:18
карма: 4

0
Ответов: 8641
Рейтинг: 801
#6: 2021-04-06 16:10:37 ЛС | профиль | цитата
Sersey, всего две строчки и одна точка к VB:

   Case "doAddSheet"
strIn = CStr(Data)
objExcel.Sheets.Add.Select
objExcel.ActiveSheet.Name = strIn
А вся схема здесь https://forum.hiasm.com/getfile/39226
(Хотя я не совсем понимаю, зачем в открытой Excel-ем книге создавать лист с помощью HiAsm )
карма: 18

0
Главный модератор
Ответов: 2961
Рейтинг: 390
#7: 2021-04-06 16:34:07 ЛС | профиль | цитата
Леонид писал(а):
(Хотя я не совсем понимаю, зачем в открытой Excel-ем книге создавать лист с помощью HiAsm )


Редактировалось 1 раз(а), последний 2021-04-06 16:35:29
карма: 7
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 448
Рейтинг: 14
#8: 2021-04-06 17:18:54 ЛС | профиль | цитата
Леонид писал(а):
(Хотя я не совсем понимаю, зачем в открытой Excel-ем книге создавать лист с помощью HiAsm

Вот зачем
Add(MainForm,2953706,112,133)
{
}
Add(VBJScript,7818199,371,133)
{
WorkPoints=#11:##SetScript|
Script=#0:|0:|
}
Add(FormatStr,7734432,287,133)
{
Mask="Dim objExcel, objWorkbook, objRange \r\n\r\nSet objExcel = CreateObject("Excel.Application")\r\nobjExcel.Visible = True\r\nSet objWorkbook = objExcel.Workbooks.Open("%1")\r\nSet objWorksheet = objWorkbook.Worksheets.Add() \r\n Set objWorksheet = objWorkbook.Worksheets(1)\r\nobjWorksheet.Activate\r\nobjWorksheet.Name = "%2"\r\n\r\nSet objRange = objExcel.ActiveCell.EntireColumn\r\nobjRange.AutoFit()\r\n"
link(onFString,16256335:doEvent1,[])
link(Str2,7763047:FormatTime,[])
}
Add(Button,11490679,175,133)
{
Left=15
Top=10
Width=100
Height=30
link(onClick,819712:doExecute,[])
}
Add(ODialog,819712,231,133)
{
link(onExecute,7734432:doString,[])
}
Add(FindWindow,9431484,420,203)
{
ClassName="XLMAIN"
SkipParam=1
link(onFind,3035978:doFindChild,[])
}
Add(FindWindow,3035978,469,196)
{
ClassName="XLDESK"
SkipParam=1
link(onFind,9555062:doFindChild,[])
}
Add(FindWindow,9555062,518,189)
{
ClassName="EXCEL7"
SkipParam=1
}
Add(KeyEvent,8986682,518,238)
{
Code=86
Ctrl=1
link(Handle,9555062:Handle,[])
}
Add(Clipboard,3823625,420,140)
{
Point(PutText)
link(PutText,8815586:Text,[])
}
Add(StrList,8815586,420,84)
{
Strings=#20:Имя Фамилия Отчество|20:Иван Иванов Иванович|
}
Add(Hub,16256335,329,133)
{
OutCount=4
link(onEvent1,7818199:##SetScript,[])
link(onEvent2,3823625:doPutText,[])
link(onEvent3,9431484:doFind,[(366,153)(366,209)])
link(onEvent4,8986682:doPress,[(362,160)(362,244)])
}
Add(Time,7763047,294,77)
{
Format="W-M-Y_h-m-s"
}


Редактировалось 1 раз(а), последний 2021-04-06 17:28:02
карма: 4

0
Ответов: 132
Рейтинг: 22
#9: 2021-04-10 22:39:12 ЛС | профиль | цитата
Sersey писал(а):
Как средствами Hiasm создать новый лист в Excel с понятным названием, например дата-время

Ещё вариант.

Add(MainForm,12243380,175,133)
{
Width=269
Height=113
Caption="Hiasm-Excel"
Position=1
link(onCreate,819712:doExecute,[])
}
Add(StrList,13732325,273,84)
{
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(FormatStr,1666019,273,147)
{
DataCount=3
Mask="$Excel = New-Object -ComObject Excel.Application\r\n# $WorkBook = $Excel.Workbooks.add()\r\n$WorkBook = $Excel.Workbooks.Open('%2')\r\n# $Sheet = $WorkBook.worksheets.Item(1)\r\n$Sheet = $Excel.Sheets.Add()\r\n$Sheet.activate()\r\n$Sheet.Name = '%3'\r\n# $Sheet.Name = 'test'\r\n$Sheet.Range('B2').Select()\r\n$Tabl = '%1'\r\nSet-Clipboard -Value $Tabl\r\n$Sheet.Paste()\r\n$Range = $Sheet.UsedRange\r\n$Range.texttocolumns($Range,1,-4142,$true,$false,$true,$false,$false)\r\n$Range = $Sheet.UsedRange\r\n$Range.EntireColumn.AutoFit()\r\n$Sheet.Range('B2').Select()\r\n$Excel.visible = $true\r\n"
link(onFString,9563171:doShellExec,[])
link(Str1,13732325:Text,[])
link(Str3,7763047:FormatTime,[(293,124)(328,124)])
}
Add(WinExec,9563171,329,140)
{
FileName="powershell"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(onConsoleError)
Point(onConsoleResult)
link(onExec,12243380:doClose,[(368,146)(368,188)(165,188)(165,160)])
}
Add(Time,7763047,322,84)
{
Format="W-M-Y_h-m-s"
}
Add(ODialog,819712,224,147)
{
link(onExecute,1666019:doString,[])
}

карма: 4

0
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)