| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3150 人关注过本帖
标题:表单在VFP内部运行正常,连编之后运行exe文件的时候却出现“无效路径或文件 ...
取消只看楼主 加入收藏
Kerberos
Rank: 5Rank: 5
来 自:江苏扬州
等 级:职业侠客
帖 子:227
专家分:355
注 册:2012-9-11
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:2 
表单在VFP内部运行正常,连编之后运行exe文件的时候却出现“无效路径或文件名”错误
图片附件: 游客没有浏览图片的权限,请 登录注册

“开始导入”的程序代码为
程序代码:
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).value      &&姓名     
       m3=myexcel.cells(i,3).text      &&人员代码
       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
请教各位大神是怎么回事?出现这样的错误
图片附件: 游客没有浏览图片的权限,请 登录注册



[ 本帖最后由 Kerberos 于 2012-10-16 12:44 编辑 ]
搜索更多相关主题的帖子: 工作表 表单 
2012-10-16 12:38
Kerberos
Rank: 5Rank: 5
来 自:江苏扬州
等 级:职业侠客
帖 子:227
专家分:355
注 册:2012-9-11
收藏
得分:0 
回复 2楼 sdta
主路径没有问题,可能跟数据类型有关,但不知道怎么改。

想学好VFP,想做VFP高手,想帮助更多的人解决VFP问题!
2012-10-16 14:56
Kerberos
Rank: 5Rank: 5
来 自:江苏扬州
等 级:职业侠客
帖 子:227
专家分:355
注 册:2012-9-11
收藏
得分:0 
回复 4楼 sdta
问题已经解决,谢谢~~~

想学好VFP,想做VFP高手,想帮助更多的人解决VFP问题!
2012-10-16 16:33
快速回复:表单在VFP内部运行正常,连编之后运行exe文件的时候却出现“无效路径或 ...
数据加载中...
 
   



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

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