VB写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