有一个电子表格数据，有很多字段,导入到VF后，其中bklbdm的数据‘0100’的首字符‘0’丢失了，怎么解决，快快帮助？ 这是此附件

Excel表格中bklbdm欄的格式應設為文本類型。

你自己仔細看看數據有什麽問題？帶綠色三角符號的是文本型數據，不帶的是數値型數據。

怎么才能快速设置成文本，如果从设置单元格里设置，前而的“0”就丢失了

首先在該欄頂部標籤處單擊鼠標，選中整欄，然後右擊鼠標，調出下圖菜單，用【設置單元格格式】。



[ 本帖最后由 TonyDeng 于 2011-7-1 13:03 编辑 ]

事實上，解決這個問題的方法有許多。導入FP數據庫後，再集中處理一次也是可以的，用PADL()函數，按指定位數填充整齊。

收到的鲜花

• sgzhn 于 2011-07-01 13:30 送鲜花  3朵   附言：我很赞同

给你段vfp直接读取EXCEL文件的示例。这样估计就不会出错了。

M_File=GETFILE('xls','订单文件')
IF M_File=""
   =MESSAGEBOX("请选择待导入的收订单文件！",0+48,"提示")
   RETURN
ELSE
   IF JUSTEXT(M_FILE)#"XLS"  &&获得文件扩展名
      =MESSAGEBOX("您选择的不是EXCEL文档！",0+48,"提示")
      RETURN
   ENDIF
ENDIF
USE 图书订单表
ZAP
myexcel=createobject('excel.application')      &&创建一个对象
myexcel.visible=.f.&&不可见
bookexcel=myexcel.workbooks.open(M_File)      &&打开指定文件
o_SheetName=myexcel.application.ActiveSheet.Name    &&获取当前激活工作表的名称
UsedRange =bookexcel.worksheets(o_SheetName).UsedRange     &&返回工作表中可使用的区域，UsedRange表的属性
o_rows=UsedRange.rows.count    &&汇总行
o_cols=UsedRange.columns.count    &&汇总列
IF o_rows<=1
   =MESSAGEBOX("待导入数据行数太少，请检查！",0+16,"提示")
ELSE
   FOR i=2 TO o_rows
       m1=myexcel.cells(i,1).value      &&书号     
       m2=myexcel.cells(i,2).value      &&书名      
       m3=myexcel.cells(i,3).value      &&出版社
       m4=myexcel.cells(i,4).value      &&作者      
       m5=myexcel.cells(i,5).value      &&定价
       m6=myexcel.cells(i,6).value      &&数量
       APPEND BLANK
       REPLACE 书号 WITH m1,书名 WITH m2,出版社 WITH m3,作者 WITH m4,定价 WITH m5,数量 WITH m6
    ENDFOR
ENDIF
myexcel.workbooks.close    &&关闭工作区
myexcel.quit    &&关闭excel
brow