написать в 101-й и последний раз что ли?

PARAMETERS AdresYNo

*SET DATE TO DMY


* Create a reference to Excel
objExcel = CreateObject("Excel.Application")
* Open an existing workbook
cFileName = fullpath('')+"templates\Osv.xlt"
* cFileName = "C:\Kartrid\templates\ex1.xlt"
objBook = objExcel.WorkBooks.Open(cFileName)

=thermometr(0,100,.T.,.F.,'Ïiäãîòóâàííÿ EXCEL-³âñüêîãî ôàéëó',;
'Ç à ÷ å ê à é ò å á ó ä ü ë à ñ ê à')

objExcel.DisplayAlerts =.F.

DO CASE
CASE AdresYNo = 0

objExcel.Sheets("Osv").Select
objExcel.parent.cells(4,1).value = "çà " + ALLTRIM(THISFORM.Month1.caption) + ;
" " + THISFORM.Year1.Caption + " ðîêó"

objExcel.Range("a8").Select
StartRowNumber = 8

SELECT TmpSal
goto top
SCAN

nProgressBarCounter = 100 * RECNO()/RECCOUNT()
=thermometr(nProgressBarCounter,100)

objExcel.parent.cells(StartRowNumber,1).value = ALLTRIM(TmpSal.cOsobAcc)
objExcel.parent.cells(StartRowNumber,2).value = STR(TmpSal.nSaldoIn,12,2)
objExcel.parent.cells(StartRowNumber,3).value = STR(TmpSal.nDebet,12,2)
objExcel.parent.cells(StartRowNumber,4).value = STR(TmpSal.nKredit,12,2)
objExcel.parent.cells(StartRowNumber,5).value = STR(TmpSal.nSaldoOut,12,2)

objExcel.Cells(StartRowNumber+1,1).Select

objExcel.Selection.EntireRow.Insert

StartRowNumber = StartRowNumber + 1

ENDSCAN

StartRowNumber = StartRowNumber + 1
objExcel.parent.cells(StartRowNumber,1).value = "ÂÑÜÎÃÎ :"
objExcel.parent.cells(StartRowNumber,2).value = "=SUM(B7:B" +;
ALLTRIM(STR(StartRowNumber - 1)) + ")"
objExcel.parent.cells(StartRowNumber,3).value = "=SUM(C7:C" +;
ALLTRIM(STR(StartRowNumber - 1)) + ")"
objExcel.parent.cells(StartRowNumber,4).value = "=SUM(D7:D" +;
ALLTRIM(STR(StartRowNumber - 1)) + ")"
objExcel.parent.cells(StartRowNumber,5).value = "=SUM(E7:E" +;
ALLTRIM(STR(StartRowNumber - 1)) + ")"


=thermometr(0,100,.F.,.T.)
objExcel.Visible = .T.

CASE AdresYNo = 1

objExcel.Sheets("Osvad").Select
objExcel.parent.cells(4,1).value = "çà " + ALLTRIM(THISFORM.Month1.caption) + ;
" " + THISFORM.Year1.Caption + " ðîêó"

objExcel.Range("a8").Select
StartRowNumber = 8

SELECT TmpSal
goto top
SCAN

nProgressBarCounter = 100 * RECNO()/RECCOUNT()
=thermometr(nProgressBarCounter,100)

objExcel.parent.cells(StartRowNumber,1).value = ALLTRIM(TmpSal.cOsobAcc)
objExcel.parent.cells(StartRowNumber,2).value = STR(TmpSal.nSaldoIn,12,2)
objExcel.parent.cells(StartRowNumber,3).value = STR(TmpSal.nDebet,12,2)
objExcel.parent.cells(StartRowNumber,4).value = STR(TmpSal.nKredit,12,2)
objExcel.parent.cells(StartRowNumber,5).value = STR(TmpSal.nSaldoOut,12,2)
objExcel.parent.cells(StartRowNumber,6).value = ALLTRIM(TmpSal.cadress)

objExcel.Cells(StartRowNumber+1,1).Select

objExcel.Selection.EntireRow.Insert

StartRowNumber = StartRowNumber + 1

ENDSCAN

StartRowNumber = StartRowNumber + 1
objExcel.parent.cells(StartRowNumber,1).value = "ÂÑÜÎÃÎ :"
objExcel.parent.cells(StartRowNumber,2).value = "=SUM(B7:B" +;
ALLTRIM(STR(StartRowNumber - 1)) + ")"
objExcel.parent.cells(StartRowNumber,3).value = "=SUM(C7:C" +;
ALLTRIM(STR(StartRowNumber - 1)) + ")"
objExcel.parent.cells(StartRowNumber,4).value = "=SUM(D7:D" +;
ALLTRIM(STR(StartRowNumber - 1)) + ")"
objExcel.parent.cells(StartRowNumber,5).value = "=SUM(E7:E" +;
ALLTRIM(STR(StartRowNumber - 1)) + ")"


=thermometr(0,100,.F.,.T.)
objExcel.Visible = .T.


ENDCASE

Уж извините, нет времени копаться, а указанный Вами генератор отчетов делает в ворде ии экселле данные как вставки-надписи, или же пишет так, что можно их редактировать?
Если только как внедренные объекты-надписи, то ИМХО на помойке его место...

Да вот я не знаю прав аль нет.. но.... Refox он у Вас купленный или ломанный?
Так вот у меня ломанный, и, похоже он рефоксит ТОЛЬКО таким же ломанным рефоксом защищенные ехе-шники....
то есть, если программа защищена нормальным рефоксом - тот, который ходит по просторам бывшего СССР (и, который у ВСЕХ нас вроде как один и тот же) увы.. не годится... ну, по крайней мере мне НЕ удалось расшифровать НИ ОДНОЙ чужой программы..... а мои зашифрованные ломает на ура....
Но, может я и не прав....

а качать и пробовать, тем более демку - ну извините неохота (напробовался уж с Fox2Any и платный и надписями вставляет, что настолько неудобно...), да и ко всему меня мой метод передачи в эксель полностью удовлетворяет....

а почему тратите время на поиск крякнутого, если можно напрямую писать в ворд или эксель?
и в ПДФ можно....

2 Igor Korolev

игорь да ведь это я Вам как-то давал на излом свою програмку.. вы ее успешно вскрыли, и помнится мне мы пришли к выводу о Рефоксе..
Дерефоксом пользуюсь НО!!!
на чужие программы он пароля не просит, он просто их не ломет и все... Рефокс точней пароля не просит.. он открывает программу как будто она писана не на фоксе....
посему меня посетила идея, что ломанный рефокс ломает только то, что им же наРефоксено... и никакой Дерефокс тут не поможет....
Может я и не прав в корне, но ломание - мне оно и не надо.. все равно в чужом коде черт ногу сломит....

да.. пробовал таким образом взломать HardWare Inspector...
программа для учета оргтехники, лежит в и-нете, где не помню.. не вышло... вот и забил.... а другие, свои например программы при помощи Дерефокса9 валятся запросто..... а не своих нету.. как проверить-то?