总结一些常用Excel对象方法

dreamsea123

总结一下操作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("A11").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

怎么会有表情！

重新发一次！

总结一下操作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("A11").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

我要疯了！
添加个附件吧！

fly_away

总结得很好啊，感谢楼主分享工作经验。

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

泊涯

总结得很好啊，感谢楼主分享工作经验。

wuei9090

其实这些东西完全不是QTP再做

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

testlab

learning

cinderella7827

正好在用这个东西，谢谢楼主的总结！

sunhope800

谢谢楼主！

天空下下雨

looking