以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在狐表代码编辑器里不支持Dim app As New Excel.Application  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27216)
--  作者：samica
--  发布时间：2012/12/25 14:04:00
--  [求助]在狐表代码编辑器里不支持Dim app As New Excel.Application

[求助]在狐表代码编辑器里不支持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
--  发布时间：2012/12/25 14:07:00
--  
 http://www.foxtable.com/help/topics/2121.htm
--  作者：samica
--  发布时间：2012/12/25 14:33:00
--  
林老师，这个功能实现了，谢谢。这就是没有功夫仔细看帮助的后果。
--  作者：samica
--  发布时间：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
--  发布时间：2012/12/25 15:35:00
--  
以下是引用samica在2012-12-25 15:24:00的发言：

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

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

哦，找到办法了，原来是这样：book.saved=true
--  作者：lin_hailun
--  发布时间：2012/12/25 15:41:00
--  
 我查了一下，应该没有简单办法的。因为preview以后，就不到我们控制了。

 而且我对vba不太熟。
--  作者：blackzhu
--  发布时间：2012/12/25 16:48:00
--  
app.Quit()  去掉不行吗
--  作者：blackzhu
--  发布时间：2012/12/25 16:51:00
--  
  • Quit

    关闭Excel应用程序，如：App.Quit

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