以下是引用Kerberos在2012-9-28 15:35:22的发言：

public mypath
mypath=""
mypath=getfile("xls")
_ole_excel = CreateObject("Excel.Application")
_ole_excel.WorkBooks.Open(mypath)    && 要打开的工作表名(xls)必须是全路径
_ole_excel.WorkSheets(1).Activate   &&激活指定的工作簿
bookExcel = _ole_excel.APPLICATION.Workbooks.OPEN(mypath)
nrows=bookExcel.Worksheets(1)
UsedRange =nrows.UsedRange
r = UsedRange.ROWS.COUNT
 
USE 岗位分类表 EXCLUSIVE
ZAP
myexcel=createobject('excel.application')      &&创建一个对象
myexcel.visible=.f.&&不可见
bookexcel=myexcel.workbooks.open(mypath)      &&打开指定文件
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).text      &&工号   
       m2=myexcel.cells(i,2).text      &&姓名      
       m3=myexcel.cells(i,3).text      &&人员代码
       m4=myexcel.cells(i,4).text     &&岗位分类
       APPEND BLANK
REPLACE 工号 WITH m1,姓名 WITH m2,人员代码 WITH m3,岗位分类 WITH m4
    ENDFOR
ENDIF
myexcel.workbooks.close    &&关闭工作区
myexcel.quit    &&关闭excel
browse运行到REPLACE 工号 WITH m1,姓名 WITH m2,人员代码 WITH m3,岗位分类 WITH m4 时出现报错，说是数据类型不匹配，我表里的所有字段类型都是字符型啊，难道跟excel表里的数据类型有关？如果有关怎样改excel表里数据的类型？谢谢!

以下是引用hu9jj在2012-10-3 08:45:47的发言：

2、在repl语句之前对读入的数据进行判断。例如假设工号是数值型，则：
m1=myexcel.cells(i,1).VALUE
if type(m1)#"N"
    m1=val(m1)
endif