VB.Net创建的office类

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")<