Web测试

QTP对EXCEL的一些操作

上一篇 / 下一篇  2013-01-16 13:59:53 / 个人分类:测试总结

使用excel.application对象对excel进行的一些操作代码脚本

'给特定单元格赋值
Optionexplicit
Dim excelapp
set excelapp=CreateObject("excel.application")
'1 都使用excelapp对象操作
excelapp.Workbooks.Open("D:\test.xlsx")
excelapp.Worksheets("Sheet1").cells(2,2).value=77
excelapp.ActiveWorkbook.Save
'2 excelapp 和 book对象操作
'Set book=excelapp.Workbooks.Open(""D:\test.xlsx"")
'book.Worksheets("sheet1").cells(2,2).value=77
'book.Save
excelapp.Quit


'新增sheet并给特定单元格赋值
Option explicit
Dim excelapp,new1,new2
set excelapp=CreateObject("excel.application")
excelapp.Workbooks.Open("D:\test.xlsx")
Set new1=excelapp.Worksheets.Add
new1.name="new1"
excelapp.Worksheets("new1").cells(2,2).value=77
excelapp.ActiveWorkbook.Save
excelapp.Quit

'读取特定单元格的值
Option explicit
Dim excelapp,new1
set excelapp=CreateObject("excel.application")
excelapp.Workbooks.Open("D:\test.xlsx")
Set new1=excelapp.Worksheets("new1")
MsgBox new1.cells(2,2).value & new1.range("B3") 'cell 和 range都可以定位单元格
excelapp.Quit


TAG: Excel excel EXCEL QTP 脚本

 

评分:0

我来说两句

jing17

jing17

有梦想 有激情 ~@! 放飞无限青春 像鹰一样翱翔 ~#@

日历

« 2021-12-06  
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

  • 访问量: 10843
  • 日志数: 19
  • 建立时间: 2012-05-19
  • 更新时间: 2013-08-18

RSS订阅

Open Toolbar