Foxtable(狐表)用户栏目专家坐堂 → [求助]在狐表代码编辑器里不支持Dim app As New Excel.Application


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

主题:[求助]在狐表代码编辑器里不支持Dim app As New Excel.Application

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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
[求助]在狐表代码编辑器里不支持Dim app As New Excel.Application  发帖心情 Post By:2012/12/25 14:04:00 [只看该作者]

[求助]在狐表代码编辑器里不支持Dim app As New Excel.Application吗?

            Dim app As New Excel.Application
            Dim book As Excel.Workbook = app.Workbooks.Open(ProjectPath & "Attachments\book1.xls"))
            Dim sheet As Excel.Worksheet = book.Sheets("sheet1")

            app.Visible = True
            sheet.PrintPreview()
            book.Close()
            app.Quit()
这段代码报错:未定义类型:Excel.Application

要怎么写代码,才能进行excel打印预览?请狐表高手指导,万分感谢!


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/25 14:07:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/25 14:33:00 [只看该作者]

林老师,这个功能实现了,谢谢。这就是没有功夫仔细看帮助的后果。

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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/25 15:24:00 [只看该作者]

以下是引用lin_hailun在2012-12-25 14:07:00的发言:
 http://www.foxtable.com/help/topics/2121.htm

林老师,有什么办法可以关闭预览而不保存退出呢?

网上找的办法都试了,没用: book.Saved = false 或者 app.DisplayAlerts=False


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


加好友 发短信
等级:幼狐 帖子:148 积分:1036 威望:0 精华:0 注册:2012/11/26 13:05:00
  发帖心情 Post By:2012/12/25 15:35:00 [只看该作者]

以下是引用samica在2012-12-25 15:24:00的发言:

林老师,有什么办法可以关闭预览而不保存退出呢?

网上找的办法都试了,没用: book.Saved = false 或者 app.DisplayAlerts=False

哦,找到办法了,原来是这样:book.saved=true


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/25 15:41:00 [只看该作者]

 我查了一下,应该没有简单办法的。因为preview以后,就不到我们控制了。

 而且我对vba不太熟。

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


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

app.Quit()  去掉不行吗


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


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

  • Quit

    关闭Excel应用程序,如:App.Quit

重要说明:只要定义了Application,Excel程序就会被打开。如果没有将其Visible属性设为True,这个Excel程序就会一直停留在进程中。为避免这种现象,一定要在代码的最后一行加上App.Quit,如果已经将Visible设为True,就不用加App.Quit。因为Excel程序在可见状态下,可直接手工关闭退出。 


 回到顶部