主题：打印预览方式打开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