以文本方式查看主题

-  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
--  
收藏学习了!