Posted: 24 Jul 2007 10:38Posted: 24 Jul 2007 11:40| Code: |
| //===========================================================================
//=========================================================================== // Пример вывода в Excel Function User_Rep01() Local nLine:=3 Local NameShit:="БЭСТ-5" //наименование листа Excel Local anPar, aParNew Local cRet := 'Выполнение программы прекращено пользователем' Local dDat1, dDat2 Local nProc:=0 Local cStrVid:="010,014,015,017,000,000" Local cStrVidRet:='' Private oApp,oWorkBook,oRange, oAS dbPush() // Объявляем массив anPar и добавляем записи в массив с описанием параметров // карточки запроса anPar := ARRAY(3) aNPar[1] := {} AADD( aNPar[1], 'Начало отчетного периода ') AADD( aNPar[1], 'Конец отчетного периода ') AADD( aNPar[1], 'Ставка комиссионных % годовых ') AADD( aNPar[1], 'Виды договоров для отчета ') aNPar[2] := { '', '', '99.99','XXX,XXX,XXX,XXX,XXX,XXX'} aNPar[3] := { Date(), Date(), 10 , cStrVid} aParNew:=Dialog( aNPar[1], aNPar[2], aNPar[3] ,'Покупка закладной в банке...',,,'gr+/b*,w+/n,,,n/w') If LastKey() = 27 //Код клавиши "Esc" =27 SayAndWait(cRet) Return else dDat1:=aParNew[1] dDat2:=aParNew[2] nProc:=aParNew[3] cStrVidRet:=aParNew[4] endif TRY WIN32_OLEINITIALIZE() oApp := oleCreateObject( "Excel.Application" ) //попытка создать объект Excel CATCH Alert("Excel не доступен!") RETURN .F. END oWorkBook:=oApp:WorkBooks:Add() //добавление рабочей книги oAS:=oWorkBook:Worksheets():Add() //добавление таблицы oAS:Name:=NameShit //присвоение имени таблице oRange:=oAS:Range("B2:B2") oRange:value:="Пример вывода БЭСТ -> EXCEL" oAS:Cells(nLine,3):FormulaR1C1:="="+str(nProc)+"/2" oAS:Cells(nLine,3):NumberFormat:="# ##0.00" oApp:visible:=.T. //отобразить Excel WIN32_OLEUNINITIALIZE() dbPop() return nil |
output generated using printer-friendly topic mod. All times are GMT + 4 Hours