51Testing软件测试论坛

标题: 总结一些常用Excel对象方法 [打印本页]

作者: dreamsea123 时间: 2009-7-22 17:50
标题: 总结一些常用Excel对象方法
总结一下操作excel文件方法

1、创建excel对象
Set ExcelObj = CreateObject("Excel.Application")

2、add sheet
ExcelObj.Workbooks.Add

3、sheet命名
Set NewSheet = ExcelObj.Sheets.Item(1)
'get the sheet
NewSheet.Name = "

age Information"
'give a name to the sheet

4、set column width
NewSheet.Columns("A:A").ColumnWidth = 5

5、设置对齐格式
NewSheet.Columns(“D

”).HorizontalAlignment =4
‘右对齐 (2，3，4—左、中、右)

6、支持单元格自动换行
NewSheet.Columns("A

").WrapText = True
' 支持自动换行

7、cell
backgournd_color
NewSheet.Range("B1:C1").Interior.ColorIndex = 23

8、字体颜色
NewSheet.Range("B1:C1").Font.ColorIndex =2
' fontcolor

9、字体加粗
NewSheet.Range("B1:C1").Font.Bold = True
'字体加粗

10、单元格赋值
NewSheet.Range("A1

1").Value="test001“

11、set border’s pattern
NewSheet.Range(“B4”).Borders(1).LineStyle = 1
'左边框
NewSheet.Range(“B4”).Borders(2).LineStyle = 1
'上
NewSheet.Range(“B4”).Borders(3).LineStyle = 1
'右
NewSheet.Range(“B4”).Borders(4).LineStyle = 1
'下

12、set
border’s color
NewSheet.Range("B4").Borders(2).ColorIndex=45 ' 颜色序号

13 、save excel file

ExcelObj.ActiveWorkbook.SaveAs
"文件名"

14、close the application and clean the object
ExcelObj.Quit

Set ExcelObj = Nothing

这是从自动测试框架日志中总结出来的，大家看看还需要补充哪些！

作者: dreamsea123 时间: 2009-7-22 17:51
怎么会有表情！

重新发一次！

总结一下操作excel文件方法

1、创建excel对象
Set ExcelObj = CreateObject("Excel.Application")

2、add sheet
ExcelObj.Workbooks.Add

3、sheet命名
Set NewSheet = ExcelObj.Sheets.Item(1)
'get the sheet
NewSheet.Name = "

age Information"
'give a name to the sheet

4、set column width
NewSheet.Columns("A:A").ColumnWidth = 5

5、设置对齐格式
NewSheet.Columns(“D

”).HorizontalAlignment =4
‘右对齐 (2，3，4—左、中、右)

6、支持单元格自动换行
NewSheet.Columns("A

作者: dreamsea123 时间: 2009-7-22 17:53
我要疯了！
添加个附件吧！

作者: fly_away 时间: 2009-7-22 18:00
总结得很好啊，感谢楼主分享工作经验。

格式代码比较实用，可以用来设置EXCEL的测试报告格式。

作者: 泊涯 时间: 2009-7-23 09:15
总结得很好啊，感谢楼主分享工作经验。

作者: wuei9090 时间: 2009-7-23 09:56
其实这些东西完全不是QTP再做

只是VBS利用excel接口而已去找这方面东西能得到的收获更大

作者: testlab 时间: 2009-7-23 11:35
learning

作者: cinderella7827 时间: 2009-7-23 11:38
正好在用这个东西，谢谢楼主的总结！

作者: sunhope800 时间: 2009-7-28 15:16
谢谢楼主！

作者: 天空下下雨 时间: 2009-7-29 15:56
looking

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)