vbs 设置Excel表格格式

Set ExcelApp = CreateObject("Excel.Application")    
Set ExcelBook = ExcelApp.Workbooks.Open (filepath) 
\'指定sheet 
Set ExcelSheet = ExcelApp.Sheets.Item(1)    
With ExcelSheet                        
\'设置列宽
.Columns("A:A").ColumnWidth = 20
.Columns("B:B").ColumnWidth = 15
.Columns("C:C").ColumnWidth = 10
.Columns("D:D").ColumnWidth = 25
.Columns("E:E").ColumnWidth = 20
.Columns("F:F").ColumnWidth = 10
\'以下设置方式均合法
.Columns("A:f").ColumnWidth = 20      \'指定从A列至F列的列宽
.Columns("b").ColumnWidth = 20        \'指定b列列宽
.Columns("F").ColumnWidth = 20        \'指定F列列宽
.Columns("A:A").ColumnWidth = 20      \'指定A列列宽
\'设置行高
.Rows(1).RowHeight = 15
.Rows(2).RowHeight = 20
.Rows(3).RowHeight = 25
\'设置显示区域的字体类型和大小
\'字体类型             
.Range("A:A").Font.Name = "Arial"
.Range("B:B").Font.Name = "宋体"
.Range("C:C").Font.Name = "黑体"
.Range("D:D").Font.Name = "新宋体"
.Range("E:E").Font.Name = "Times New Roman"
.Range("F:F").Font.Name = "Times New Roman"
\'以下设置方式均合法
.Range("A:D").Font.Name = "Arial" 
.Range("a:b").Font.Name = "Arial"
.Range("A:f").Font.Name = "Arial"
\'字体大小
.Range("A:A").Font.Size = 12
.Range("B:B").Font.Size = 16
.Range("C:C").Font.Size = 20
\'以下设置方式均合法
.Range("A:F").Font.Size = 6  
.Range("a:b").Font.Size = 8
.Range("A:f").Font.Size = 10
\'给指定区域赋值
.Range("A1").Value = "用例名称"             
.Range("B1").Value = "测试号码"
.Range("C1").value = "号码类型"
.Range("D1").value = "执行时间"
.Range("E1").value = "检查点描述"    
.Range("F1").value = "检查结果"
\'以下设置方式均合法
.Range("a1").Value = "for"            \'A1单元格内容为 for
.Range("b:b").Value = "test"          \'B列内容都为 test
.Range("c:A").Value = "test"          \'从A列至C列的内容均为 test
.Range("a3:F3").Value = "great"       \'第三行,从A至F列均为 great
.Range("b3:E6").Value = "day"         \'从B3单元格至E6单元格矩形区间范围的值均为 day
\'合并居中
.Range("B1:C1").Merge                 \'B1单元格与C1单元格合并居中
\'以下设置方式均合法
.Range("a:f").Merge                   \'A列至F列合并居中
.Range("B3:g7").Merge                 \'从B3单元格至G7单元格矩形区间合并居中
.Range("a2:f2").Merge                 \'A2,B2,C2,D2,E2,F2单元格合并居中
\'设置文字颜色
\'颜色取值范围:0~56
\'0为无颜色
.Range("A1").Font.ColorIndex = 5
\'以下设置方式均合法
.Range("g:G").Font.ColorIndex = 48       \'G列的字体颜色设为48
.Range("A:c").Font.ColorIndex = 28       \'A列至C列的字体颜色设为 28
.Range("b2:c2").Font.ColorIndex = 3      \'B2至C2单元格字体颜色设为 3
.Range("A1:c4").Font.ColorIndex = 9      \'A1至C4单元格矩形区间字体颜色设为 9
\'加粗
.Range("A1").Font.Bold = True            
\'以下设置方式均合法
.Range("g:G").Font.Bold = True           \'G列的字体设为粗体
.Range("A:C").Font.Bold = True           \'A列至C列的字体设为粗体
.Range("b3:g5").Font.Bold = True         \'B3至G5单元格矩形区间的字体设为粗体
.Range("c1:G1").Font.Bold = True         \'C1至G1单元格的字体设为粗体
\'对齐方式
.Range("A:A").HorizontalAlignment = 4        \'右边对齐   A列所有行
.Range("B:B").HorizontalAlignment = 1        \'常规方式
.Range("C:C").HorizontalAlignment = 2        \'左对齐
.Range("D:D").HorizontalAlignment = 3        \'居中
.Range("E:E").HorizontalAlignment = 5        \'填充方式
\'以下设置方式均合法
\'单元格背景
\'取值范围0~56
\'0为无颜色
.Range("A1:F1").Interior.ColorIndex = 45
\'以下设置方式均合法
\'以下语句可以显示所有颜色对应的数值
For i=1 to 56
    A="A"&i
    B="c"&i
    .Range(A).Interior.ColorIndex = i
    .Range(B).Value = i  
NEXT
\'单元格边框
\'Borders参数
\'1左边框
\'2右边框
\'3上边框    
\'4下边框    
\'5左斜线    
\'6右斜线    
\'不可为0         
\'其余作用未知    
\'Linestyle参数   
\'设置边框线条格式
\'0不显示
\'1实线条显示
\'其余参数未知  
\'不常用          
.Range("A:F").Borders(1).LineStyle = 1
.Range("A:F").Borders(2).LineStyle = 1
.Range("A:F").Borders(3).LineStyle = 1
.Range("A:F").Borders(4).LineStyle = 1
End with
\'保存退出
ExcelBook.Save                  
ExcelBook.Close                  
Set ExcelBook = nothing
ExcelApp.Quit