以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印预览方式打开Excel（修改）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5152)
--  作者：lxl
--  发布时间：2009/11/26 19:22:00
--  打印预览方式打开Excel（修改）
只显示打印预览窗口，不显示EXCEL
调用方式：
foxls.mExcel.openxls("D:/abc.xls")
源代码
Imports Microsoft.Office.Interop
Public Module mExcel
    Sub openxls(ByVal FilePath As String)
        If IO.File.Exists(FilePath) Then
            Dim app As New Excel.Application
            Dim book As Excel.Workbook = app.Workbooks.Open(FilePath)
            Dim sheet As Excel.Worksheet = book.Sheets.Item(1)
            app.Visible = True
            sheet.PrintPreview()
            book.Close()
            app.Quit()
        Else
            MsgBox("文件不存在！", MsgBoxStyle.OkOnly)
        End If
    End Sub
End Module

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:dlls.rar

[此贴子已经被作者于2009-11-27 19:55:37编辑过]
--  作者：mr725
--  发布时间：2009/11/26 19:48:00
--  
先收藏学习～ 
--  作者：pyh6918
--  发布时间：2009/11/26 20:49:00
--  
多谢
--  作者：菜鸟foxtable
--  发布时间：2009/11/26 21:43:00
--  
图片点击可在新窗口打开查看收藏
--  作者：程兴刚
--  发布时间：2009/11/26 21:48:00
--  
以下是引用lxl在2009-11-26 19:22:00的发言：

 下载信息  [文件大小：191.9 KB  下载次数：3]
图片点击可在新窗口打开查看点击浏览该文件:dlls.rar

两个dll，其中一个是微软的Excel组件
解压缩到foxtable目录下，就能以打印预览的方式打开Excel
foxls.mExcel.openxls("E:/aaa.xls")

2007的excel文件测试没问题，不知道2003能不能用。



         呵呵，收藏备用，学习估计我就不行了，对设计.dll文件没有一点了解，谢谢lxl版主分享！
--  作者：狐狸爸爸
--  发布时间：2009/11/27 8:40:00
--  
呵呵，太好了。
--  作者：kylin
--  发布时间：2009/11/27 9:27:00
--  
 建议老六集成到狐表中，不错
--  作者：易服
--  发布时间：2009/11/27 10:04:00
--  
Execl报表本来就是以打印预览的方式打开，不知道还有什么用处？
--  作者：舜风
--  发布时间：2009/11/27 10:54:00
--  
现在的Excel报表看似更专业了，谢谢图片点击可在新窗口打开查看
--  作者：yangming
--  发布时间：2009/11/27 11:13:00
--  
收藏学习了!