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