Please, help with DC_WorkArea2Excel() application
Posted: Fri Sep 28, 2012 8:31 pm
The program for some reason provided below normally converts some databases in xls, and on others gives a mistake. On test examples from c:\exp19\Samples\EXCEL\ все работает отлично. Couldn't help to understand what is the matter? At me there was such impression. that I create for work any not such databases as it is necessary.
Code: Select all
/*
This test program will export a Work Area to an Excel
Spread-Sheet.
*/
#INCLUDE "dcdialog.CH"
#INCLUDE "fileio.CH"
#pragma library( "XPPRT1.LIB" )
#pragma library( "dclip1.lib" )
#pragma library( "dclip2.lib" )
#pragma library( "dclipx.lib" )
#pragma library( "xbtbase1.lib" )
#pragma library( "xbtbase2.lib" )
FUNCTION Main()
LOCAL oScrn, nError, nHandle
DC_LoadRdds()
N_dbf = ADIR("*.DBF")
PRIVATE F_name_dbf[N_dbf]
ADIR("*.DBF",F_name_dbf) // Информация о DBF-файлах
ASORT(F_name_dbf)
FOR f=1 TO LEN(F_name_dbf)
M_FName = SUBSTR(F_name_dbf[f],1,AT(".",F_name_dbf[f])-1)
CLOSE ALL
USE (M_FName) EXCLUSIVE NEW VIA 'DBFCDX'
* USE (M_FName) EXCLUSIVE NEW VIA 'DBFNTX'
aFields := {}
FOR j=1 TO FCOUNT()
* IF FIELDDECI(j) = 0
AADD(aFields, FIELDNAME(j))
* ENDIF
NEXT
DC_WorkArea2Excel( DC_CurPath() + '\'+M_FName+'.XLS',,,,aFields )
* DC_SpawnUrl( DC_CurPath() + '\'+M_FName+'.XLS' )
NEXT
DCMSGBOX 'Done!'
RETURN nil
* ---------------
PROC appsys ; RETURN