QTP自动化测试--EXCEL文件操作(二)

8.

Set xlsApp = CreateObject("Excel.Application") '创建应用程序对象

xlsApp.Visible = True'显示当前窗口

xlsApp.Workbooks.Add'添加新工作簿

 xlsApp.Cells(1, 1).Value = "Test value"'给单元格赋值

Set bjRange = xlsApp.Range("A1","A5")'指定范围

objRange.Font.Size = 14'设置字体属性

Set bjRange = xlsApp.Range("A2","A5")'指定范围

objRange.Interior.ColorIndex = 36'设置背景属性

xlsApp.ActiveSheet.Rows(2).Delete

xlsApp.ActiveSheet.Columns(1).Delete

9.

Set xlsApp = CreateObject("Excel.Application") '创建应用程序对象

xlsApp.Visible = True'显示当前窗口

xlsApp.Workbooks.Add'添加新工作簿

 xlsApp.Cells(1, 1).Value = "Test value"'给单元格赋值

Set bjRange = xlsApp.Range("A1","A5")'指定范围

objRange.Font.Size = 14'设置字体属性

Set bjRange = xlsApp.Range("A2","A5")'指定范围

objRange.Interior.ColorIndex = 36'设置背景属性

xlsApp.ActiveSheet.Rows(2).Insert’在第二行插入行

xlsApp.ActiveSheet.Columns(1).Insert在第一列插入列

10.

Set xlsApp = CreateObject("Excel.Application") '创建应用程序对象

xlsApp.Visible = True'显示当前窗口

xlsApp.Workbooks.Add'添加新工作簿

 xlsApp.Cells(1, 1).Value = "Test value"'给单元格赋值

Set bjRange = xlsApp.Range("A1","A5")'指定范围

objRange.Font.Size = 14'设置字体属性

Set bjRange = xlsApp.Range("A2","A5")'指定范围

xlsApp.ActiveSheet.Range( "A1:E2" ).Copy’拷贝指定区域

xlsApp.ActiveSheet.PrintOut打印输出工作表

11.使用ADODB导入EXCEL数据文件的方法（暂未实现）

Option Explicit

Dim conn, rst, fileName, strConn

Dim var, i

fileName = Environment.Value("TestDir") & "\test.xls"

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info = False;"

strConn = strConn & "Data Source = " & filename & ";Extended Properties='Excel 8.0'"

Set conn = CreateObject("ADODB.Connection")

conn.Open strConn

Set rst = CreateObject("ADODB.RecordSet")

rst.Open "select * from [Sheet1$]", conn, 1, 1

Print rst.RecordCount

i = 0

'读取Excel表格时，自动从第二行开始读起，将第一行作为Title

While Not rst.EOF

i = i + 1

Print "LINE " & CStr(i) & " : " & rst.Fields(0).Value & " " & rst.Fields(1).Value

rst.MoveNext

Wend

rst.Close

Set rst = Nothing