Add(Label,9698110,399,133)
{
Width=476
Height=45
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,3171043,203,210)
{
Left=20
Top=105
Width=492
Height=273
Caption="Excel в XML"
Position=1
link(onCreate,10550167:doEvent1,[])
}
Add(Button,941652,203,259)
{
Left=310
Top=10
Width=95
Caption="Конвертировать"
link(onClick,10550167:doEvent2,[(242,265)(242,237)])
}
Add(Edit,11108326,357,224)
{
Left=10
Top=10
Width=295
Text=""
link(onChange,15044656:doPart,[])
}
Add(ODialog,14109174,301,224)
{
Filter="Excel|*.xls*"
link(onExecute,11108326:doText,[])
}
Add(DS_ODBC,6691432,574,224)
{
Name="asd"
Point(onError)
link(onCreate,4428936:doString,[])
link(onError,16198617:doEvent,[(620,237)(620,286)])
}
Add(DSC_Query,9809447,679,224)
{
DSManager="asd"
link(onQuery,3242928:doAddRow,[])
link(onColumns,3242928:doAddCols,[])
link(onError,11634924:doEvent,[(739,244)(739,300)])
}
Add(FormatStr,4428936,630,224)
{
Mask="SELECT *\r\nFROM [Лист1$]\r\n"
link(onFString,9809447:doQuery,[])
}
Add(Hub,10550167,259,224)
{
InCount=2
link(onEvent1,14109174:doExecute,[])
}
Add(Debug,16198617,630,280)
{
LogCount=100
}
Add(MTStrTbl,820392,616,147)
{
Width=506
Height=244
Align=5
Name="tabl"
ColorItems=0
Redaction=0
Grid=0
}
Add(MST_DB,3242928,749,224)
{
MSTControl="tabl"
}
Add(Debug,11634924,756,294)
{
LogCount=100
}
Add(FormatStr,11025785,497,224)
{
Mask="Driver={Microsoft Excel Driver (*.xls)};\r\nDriverId=790;\r\nDbq=%1;\r\nDefaultDir=%2;"
link(onFString,6691432:doOpen,[])
link(Str1,11108326:Text,[(503,215)(489,215)(489,264)(363,264)])
}
Add(FilePartElm,15044656,420,224)
{
Mode=0
link(onPart,11025785:doString,[])
}
У меня всё работает