Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 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"
}

карма: 4

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