vfp导入EXCEL,如何单独设置一列为日期格式?
导入一个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