Foxtable(狐表)用户栏目专家坐堂 → 用foxtable程序操作excel表出现错误


  共有4966人关注过本帖树形打印复制链接

主题:用foxtable程序操作excel表出现错误

帅哥哟,离线,有人找我吗?
lrj03
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:1117 威望:0 精华:0 注册:2011/5/6 12:46:00
用foxtable程序操作excel表出现错误  发帖心情 Post By:2013/12/6 10:12:00 [只看该作者]

要用程序操作excel表,其中代码有:

Dim App As New MSExcel.Application
MessageBox.show("a1")
App.Visible = True
MessageBox.show("a")

运行到彩色显示的代码时,出现错误:


此主题相关图片如下:错误.png
按此在新窗口浏览图片
这要怎么解决啊,求专家指教!


 


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/6 10:13:00 [只看该作者]

重新安装完整版OFFICE 


或者

注册方法执行 开始----运行----输入excel2003的安装路径,例如 "C:\Program Files\Microsoft Office\OFFICE11\excel.exe" /regserver 注意/符号前面有一个空格,其中"C:\Program Files\Microsoft Office\OFFICE11\excel.exe" 是excel2003的安装程序的路径,参数regserver表示注册的意思!
运行后,会启动Office 2003的安装程序,进行修复,重新注册。
excel2007为默认的启动程序的方法类同,可以执行 开始----运行----"D:\Program Files\Microsoft Office\Office12\excel.exe" /regserver

 回到顶部
帅哥哟,离线,有人找我吗?
lrj03
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:1117 威望:0 精华:0 注册:2011/5/6 12:46:00
  发帖心情 Post By:2013/12/6 11:38:00 [只看该作者]

我运行了C:\Program Files\Microsoft Office\OFFICE14\excel.exe" /regserver(office2010),未成功

在office2010中运行setup.exe执行修复,重启电脑,未成功!

 


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/6 11:39:00 [只看该作者]

重新安装完整版OFFICE 

 回到顶部
帅哥哟,离线,有人找我吗?
lrj03
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:1117 威望:0 精华:0 注册:2011/5/6 12:46:00
  发帖心情 Post By:2013/12/6 15:21:00 [只看该作者]

卸了office2010,重装,还是不行,难道要重装系统?与.net framework版本有关系吗?


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/6 15:23:00 [只看该作者]

出问题的是COM组件,实在搞不定重装吧.

 回到顶部
帅哥哟,离线,有人找我吗?
longtechwj
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:659 积分:4686 威望:0 精华:0 注册:2013/6/11 17:51:00
  发帖心情 Post By:2013/12/6 16:16:00 [只看该作者]

Dim FileName As String="Attachments\排机计划表.xlt"
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & filename)
App.Visible=True

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/12/6 16:18:00 [只看该作者]

net2.0 升级到sp2

 回到顶部