现在的位置: 首页 > 综合 > 正文

vbs设置Excel表格格式

2013年10月04日 ⁄ 综合 ⁄ 共 3149字 ⁄ 字号 小 中 大 ⁄ 评论关闭
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 
返回
【上篇】
【下篇】

作者:

抱歉!评论已关闭.

返回首页

Copyright © 2013-2018 学步园  保留所有权利.
软文销售 QQ客服：2265327166 点击这里给我发消息（其他合作也可洽谈）
必威体育
必威电竞