| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7667 人关注过本帖
标题:导入EXCEL表出现数据类型不匹配
取消只看楼主 加入收藏
Kerberos
Rank: 5Rank: 5
来 自:江苏扬州
等 级:职业侠客
帖 子:227
专家分:355
注 册:2012-9-11
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:1 
导入EXCEL表出现数据类型不匹配
程序代码:
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).value      &&工号   
       m2=myexcel.cells(i,2).value      &&姓名     
       m3=myexcel.cells(i,3).value      &&人员代码
       m4=myexcel.cells(i,4).value      &&岗位分类
       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表里数据的类型?谢谢!
搜索更多相关主题的帖子: color EXCEL 工作表 
2012-09-28 15:35
Kerberos
Rank: 5Rank: 5
来 自:江苏扬州
等 级:职业侠客
帖 子:227
专家分:355
注 册:2012-9-11
收藏
得分:0 
回复 2楼 sdta
请问excel表里各数据类型怎么看啊?

想学好VFP,想做VFP高手,想帮助更多的人解决VFP问题!
2012-09-29 09:35
快速回复:导入EXCEL表出现数据类型不匹配
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024536 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved