回复 4楼 wengjl
SET DEFAULT TO C:\TESTSET TALK OFF
SET SAFETY OFF
CLOSE DATABASES
ADIR(ABC)
? ALEN(ABC)
IF ALEN(ABC)>5
FOR I=1 TO ALEN(ABC)/5
IF JUSTEXT(ABC(I ,1))#"XLS" OR !(ISDIGIT(LEFT(ALLTRIM(JUSTFNAME(ABC(I ,1))),1))) &&获得文件扩展名
? ABC(I ,1)
DELETE FILE ABC(I ,1) RECYCLE
ENDIF
ENDFOR
ENDIF
OEXCEL = CREATEOBJECT("EXCEL.APPLICATION")
WITH OEXCEL
.WORKBOOKS.OPEN(SYS(5) + SYS(2003) +"\"+ALLTRIM(ABC(1,1)))
.DISPLAYALERTS = .F.
.ACTIVEWORKBOOK.SAVEAS(SYS(5) + SYS(2003) + "\771.dbf",8) && 保存为以制表符分隔的文本文件
.ACTIVEWORKBOOK.CLOSE
.DISPLAYALERTS = .T.
.QUIT
ENDWITH
将EXCEL数据转为771.DBF后,数据都被取整了,是不是有些参数没设好 ?






