123.xls里录入了数据，需要生成DBF格式的文件。用excel 2003另存为456.DBF(dBASE IV)，但是，数据的格式都不符合要求。后来，用VFP导进123.xls的数据，但是数据的格式也不符合要求。我就用VFP建了一个123.DBF文件，设置好了格式。想要把123.xls的数据导进去，但不要改变123.DBF已经设置好的格式。我不会弄，想请大家帮帮我，谢谢了！

SET DATE TO AMERICAN
SET CENTURY ON
SET MARK TO '/'
ASTACKINFO(a程序)
cPath = ADDBS(JUSTPATH(a程序[2]))
cDBF = cPath + "123.dbf"
cXLS = cPath + "123.xls"
cTXT = cPath + "123.txt"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Open(cXLS)
oExcel.ActiveWorkBook.SaveAs(cTXT, -4158)
oExcel.ActiveWorkBook.Saved = .T.
oExcel.WorkBooks.Close
oExcel.Quit
USE (cDBF)
ZAP
APPEND FROM (cTXT) FOR fnum!=0 DELIMITED WITH TAB
BROWSE

"用excel 2003另存为456.DBF(dBASE IV)，但是，数据的格式都不符合要求。"

这是你楼主的EXCEL基本功夫不到家！

excel会根据输入内容自动变换格式，常造成导入格式不对，建议先对EXCEL数据格式进行设置

非常感谢版主的帮助！

[此贴子已经被作者于2018-7-19 22:06编辑过]