Public Class Coffice
Public xls As Excel.Application
Public xlsworkbook As Excel.Workbook
Public xlsworksheet As Excel.Worksheet
Public doc As Word.Application
Public document As Word.Document
'************************************************************************************************************
'创建工作簿,获得第一个工作表,为需要的操作做准备
Public Function CreateXls(ByVal bool As Boolean) As Boolean
Try
xls = New Excel.Application
xls.Visible = bool
xls = CreateObject("excel.application")
xlsworkbook = xls.Application.Workbooks.Add()
xlsworksheet = xlsworkbook.Sheets(1)
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Function
'打开现有的工作簿,获得第一个工作表,为需要的操作做准备
Public Function OpenXls(ByVal path As String, ByVal name As String, ByVal bool As Boolean) As Boolean
Try
xls = New Excel.Application
xls.Visible = bool
xls = CreateObject("excel.application")<