dbf转到xls，单价列显示为：
 0.2
   2
2.12
  52

我想使单价显示为整齐的三位小数：
 0.200
 2.000
 2.120
52.000
用了这一句：
oExcel.Workbooks[1].Worksheets[alias()].Columns(danjiai).NumberFormatLocal = "0.000_"
但出错，求诸位指点！


mydbf=getfile('自由表文件:dbf','打开表','确定',0,'请取含有日期字段的表')                                     
use (mydbf)
xlsname=Sys(5) + Curdir() + alias()+'.xls'          &&给Excel文件取名
copy to (xlsname) type xls                          &&把当前工作区中的表copy为.xls文件，日期格式不好
oExcel=createobject("excel.application")            &&建立Excel
oExcel.visible=.t.                                  &&显示Excel
oExcel.Workbooks.Open(xlsname)                      &&在Excel中打开已经copy为xls的文件

*-------求单价字段第次i
for i=1 to fcount()                                 
    if allt(field(i))='单价'
        danjiai=i
    endif
endfor

oExcel.Workbooks[1].Worksheets[alias()].Columns(danjiai).select  &&选择此列

*下一句错在哪？
oExcel.Workbooks[1].Worksheets[alias()].Columns(danjiai).NumberFormatLocal = "0.000_" &&使此列为数字型，并为3位小数

oExcel.Workbooks[1].SaveAs(xlsname+'c',39) &&用39表示另存为5.0的Excel格式 

oExcel.Workbooks[1].saved=.t.           &&不保存
oExcel.Workbooks.Close      &&关闭工作簿
oExcel.Quit                 &&退出EXCEL 
Release oExcel              &&释放变量 

use