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
excel表格斜线.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