以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 导出数据出现无效索引 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71335) |
-- 作者:kunmails -- 发布时间:2015/7/9 15:47:00 -- 导出数据出现无效索引 导出数据的代码,在发布之前可以正常导出 编译之后点导出 出现 导出代码如下 Dim flg As New SaveExcelFlags flg.RowNumber = False flg.CellStyle = False Tables("订单组订单查询_mb").SaveExcel(ProjectPath & "test.xls","原始数据",flg) Dim App As New MSExcel.Application Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "test.xls") Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("待导入数据") Dim Rg As MSExcel.Range = Ws.UsedRange rg.Formula = rg.Formula app.visible = True
|
-- 作者:大红袍 -- 发布时间:2015/7/9 15:58:00 -- 红色的表名肯定有误。
Dim flg As New SaveExcelFlags
flg.RowNumber = False
flg.CellStyle = False
Tables("订单组订单查询_mb").SaveExcel(ProjectPath & "test.xls","原始数据",flg)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("待导入数据")
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
app.visible = True
|
-- 作者:kunmails -- 发布时间:2015/7/9 16:25:00 -- 我在程序编译前测试时可以的 test.xls 是一个excel 模板包含 我需要将导出的数据放到原始数据表中,导出是没有任何问题的,自动将原始数据表中的数据覆盖了! 但是当我程序编译后在安装路径下放了test.xls文件 其实导出的文件已经重新生成了!并不是之前的文件,只有一个原始数据表,所以会导致出现无效索引,有没有合适的解决办法?
|
-- 作者:kunmails -- 发布时间:2015/7/9 16:30:00 -- 袍哥,之前我发过一个帖子 你帮我解决了这个问题,但是程序编译好后就不行了出现无效索引的问题 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=485996&ID=70684&skin=1
|
-- 作者:大红袍 -- 发布时间:2015/7/9 16:35:00 -- 如果你的系统是win7、win8系统,运行exe程序的时候,需要右键使用管理员身份运行。 |
-- 作者:kunmails -- 发布时间:2015/7/9 20:48:00 -- 袍哥,已经好了,路径放错了! [此贴子已经被作者于2015/7/9 21:03:25编辑过]
|
-- 作者:大红袍 -- 发布时间:2015/7/9 21:02:00 -- 以下是引用kunmails在2015/7/9 20:48:00的发言:
袍哥,及时按照管理员身份运行也不行,问题依旧啊!
管理员权限哦,电脑设置成管理员权限哦。
不行,做个不行的例子上来测试。 |
-- 作者:kunmails -- 发布时间:2015/7/9 21:04:00 -- 已经好了,谢谢袍哥,大晚上的还解答! |