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