导入一个EXCEL,其中有一列为日期格式
导入EXCEL代码是以前的，其他都对，就是日期格式变数字了，
求教如何导入时单独设置某一列为日期格式，代码如下：

lcFileName=opendbf
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
oExcel.ActiveSheet.UsedRange.Select &&选中已用区域的数据
oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式
oExcel.Columns.AutoFit  &&让所有的列宽都自动调整
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs('C:\1.xls',39) && 43为97/2003 xlExcel9795（39为5.0/95 xlExcel5 & xlExcel7)
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL

那为什么导入后日期仍是文本格式？
oExcel.ActiveWorkbook.SaveAs('C:\1.xls',39)
这句语句生成的1.xls上日期格式是对的
IMPORT from c:\1  xl5
这时生成DBF，格式就变文本了

请问斑竹，如何对日期格式转换呢？
对EXCEL转DBF，本人真是一知半解，以前都是文本格式
直接别人代码复制过来，现在遇到这个，真没法了

后来我试下来是这种情况：
由于EXCEL的不同列的格式不同，比如1-6列为文本，第7列为日期格式
如果导入时为不同的列设置格式，就会出现问题
现在我干脆不设格式，导入时倒正常了。。。