表单在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 编辑 ]
