Плешивцев Евгений
Joined: 03 Apr 2007
Posts: 95
Location: Плешивцев Евгений
Interests: Волгоград
|
 Posted: 24 Jul 2007 11:40 Post subject: |
 |
|
вот так работает:
| 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 |
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
