VB.NET实现Excel表格样式自动化设置

 Public   Sub   SetSheetStyles(ByVal   xlSheet   As   Excel.Worksheet,   _   
                                                                                ByVal   rowCount   As   Int32,   _   
                                                                                ByVal   colCount   As   Int32)   
                  Dim   i,   intStart   As   Int32   
    
                  With   xlSheet   
    
    
                          If   AllowHeaderColor   Then   .Range(.Cells(1,   1),   .Cells(1,   MasterColumnCount)).Interior.Color   =   GetHeaderBackColorRGB   
    
                          If   IsExistMasterD   Then   '主从表   
                                  intStart   =   5   
    
                                  .Range(.Cells(1,   1),   .Cells(1,   MasterColumnCount)).Font.Size   =   10   '标头字体大小   
                                  .Range(.Cells(2,   1),   .Cells(2,   MasterColumnCount)).Font.Size   =   10   '主数据字体大小   
    
                                  .Range(.Cells(1,   1),   .Cells(1,   MasterColumnCount)).Font.Bold   =   True       '标题字体加粗   
                                  .Range(.Cells(2,   1),   .Cells(2,   MasterColumnCount)).Font.Italic   =   True       '主数据字体斜体   
    
                                  .Range(.Cells(1,   1),   .Cells(1,   MasterColumnCount)).Borders.LineStyle   =   1     '粗边框(已取消)   
                                  .Range(.Cells(2,   1),   .Cells(2,   MasterColumnCount)).Borders.LineStyle   =   1   '粗边框(已取消)   
    
                                  If   AllowHeaderColor   Then   .Range(.Cells(4,   1),   .Cells(4,   colCount)).Interior.Color   =   GetHeaderBackColorRGB   
                                  .Range(.Cells(4,   1),   .Cells(rowCount   +   4,   colCount)).Borders.LineStyle   =   1   '主数据边框样式   
    
                                  .Range(.Cells(4,   1),   .Cells(4,   colCount)).Font.Bold   =   True       '标题字体加粗   
                                  .Range(.Cells(4,   1),   .Cells(4,   colCount)).Font.Size   =   10   '数据项字体大小   
    
                                  .Range(.Cells(5,   1),   .Cells(rowCount   +   4,   colCount)).Font.Size   =   9   '数据项字体大小