http://bbs.pfan.cn/post-208186.html

如下代码
eole=CREATEOBJECT('Excel.application') && 创建Excel对象
eole.Workbooks.Open(GETFILE("xls"))  && 要打开的工作表名
eole.visible=.f.   && 不显示Excel窗口
eole.WorkSheets(1).Activate   &&激活工作簿1
nrows=eole.Worksheets('包装清单')
UsedRange =nrows.UsedRange
lnRow = UsedRange.ROWS.COUNT    &&获取的总行数("有内容的")
SELECT 包装清单
for i=2 to lnrow &&从第2行起读到最后一行
    
    x2=alltrim(eole.Cells(i,2).value) &&取第i行第二列的值
    x3=alltrim(eole.Cells(i,3).value) &&取第i行第三列的值
    x4=alltrim(eole.Cells(i,4).value) &&取第i行第四列的值
    x5=str(eole.Cells(i,5)) &&取第i行第五列的值,需要转换数据类型
    x6=alltrim(eole.Cells(i,6).value) &&取第i行第五列的值
    x10=alltrim(eole.Cells(i,10).value) &&取第i行第五列的值
    
    
    
    
    **
    
    INSERT INTO 包装清单 (序号,图号,名称,数量,材料,工艺路线) VALUES (x2,x3,x4,x5,x6,x10) 
endfor
eole.Workbooks.close  && 关闭工作簿
eole.quit && 退出Excel

excel的类型全部为字符型，而dbf中，数量、单重、总重为数值型，请问怎么把excel中的类型在代码中转换为数值型？请赐教！

用Val()函数转换成数值型
  x5=val(str(eole.Cells(i,5))) &&取第i行第五列的值,需要转换数据类型