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

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

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

入参：待查找的sheet名称

返回：如果存在则返回worksheet对象，如果不存在则返回nothing

     Public  Function WorksheetExist(name  As  String)  As 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  String)  As 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  Nothing)  Then  
             Continue  For  
         End  If  
     End  If 

 

转载于:https://www.cnblogs.com/pop-lar/p/5031524.html