Excel开发学习笔记:查找与创建worksheet

开发环境基于VSTO,具体配置:visual studio 2010,VB .Net,excel 2007,文档级别的定制程序。

如题,我在ThisWorkbook.vb中添加了一个public函数来完成查找功能。

入参:待查找的sheet名称

返回:如果存在则返回worksheet对象,如果不存在则返回nothing
    Public Function WorksheetExist(name As StringAs Excel.Worksheet  
        Try  
            Dim existSheet As Excel.Worksheet = Globals.ThisWorkbook.Sheets(name)  
            Return existSheet  
        Catch ex As Exception  
            Return Nothing  
        End Try  
      
    End Function 

 

 

创建worksheet函数,要求在现有sheet的尾部添加新的sheet。

入参:Workbook,新sheet名

返回:成功则返回新的sheet对象,失败返回nothing

    Private Function CreatWorksheet(ByRef book As Excel.Workbook, ByRef name As StringAs Excel.Worksheet  
        Dim newSheet As Excel.Worksheet = book.Sheets.Add(After:=book.Worksheets(book.Sheets.Count))  
        Try  
      
            newSheet.Name = name  
            Return newSheet  
        Catch ex As Exception  
            MsgBox("""" + name + """" + "不能被用作excel工作表(sheet)名称")  
            newSheet.Delete()  
            Return Nothing  
        End Try  
      
    End Function 

 

 查询与创建连起来使用,未查找到则创建的代码片段:

    Dim algoSheet As Excel.Worksheet = Globals.ThisWorkbook.WorksheetExist(name)  
    If algoSheet Is Nothing Then  
        algoSheet = CreatWorksheet(Globals.ThisWorkbook.Application.Workbooks(Globals.ThisWorkbook.Name), name)  
        If (algoSheet Is NothingThen  
            Continue For  
        End If  
    End If 

 

posted @ 2015-12-09 00:05  _pop  阅读(1022)  评论(0编辑  收藏  举报