QTP对Excel的操作(一)之 Vbs对Excel的操作-阿里云开发者社区

开发者社区> 云计算> 正文

QTP对Excel的操作(一)之 Vbs对Excel的操作

简介:

'*************************************************************'
'函数/过程名称:DoExcel()
'函数/过程的目的:操作Excel(读写)
'假设:无
'影响:
'输入:无
'返回值:无
'创建者:lee
'创建时间:2010/12/13
'修改者:
'修改原因:
'修改时间:
'*************************************************************'
Function DoExcel(filepath,sheetname,x,y)
 Dim ObjExcel,SrcExcel,ExcValue

   Set ObjExcel = CreateObject ("Excel.Application")
       'Excel程序不在前台显示
    ObjExcel.Visible = False

       '设置变量SrcExcel等于Excel工作薄open
       'Activate定位活动的sheet
       '并给某一单元格赋值
   Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
    SrcExcel.WorkSheets(sheetname).Activate
    SrcExcel.WorkSheets(sheetname).Cells(x,y).Value = "该单元格的值"
  
  '当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗?” 使用DisplayAlerts代码该列
          ObjExcel.DisplayAlerts = False
          ObjExcel.save
       
  'Excel退出,释放资源
    ObjExcel.quit
    Set ObjExcel = Nothing
    Set SrcExcel = Nothing
End Function
Call DoExcel("D:\Case.xls","Sheet1",9,8)

 

'*************************************************************'
'函数/过程名称:DoExcel() 第二种方法实现。
'函数/过程的目的:操作Excel(读写)
'创建者:lee
'创建时间:2010/12/13
'修改者:
'修改原因:使用统一对象ObjExcel
'*************************************************************'
Function DoExcel(filepath,sheetname,x,y)
 Dim ObjExcel,SrcExcel,ExcValue

   Set ObjExcel = CreateObject ("Excel.Application")
       'Excel程序不在前台显示
    ObjExcel.Visible = False

      'Activate定位活动的sheet
       '并给某一单元格赋值

    'Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
    ObjExcel.WorkBooks.Open(filepath)
    ObjExcel.WorkSheets(sheetname).Activate
    ObjExcel.WorkSheets(sheetname).Cells(x,y).Value = "该单元格的值"
  
  '当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗?” 使用DisplayAlerts代码该列
          ObjExcel.DisplayAlerts = False
          ObjExcel.save
       
    'Excel退出,释放资源

    ObjExcel.WorkBooks.Close
    ObjExcel.quit
    Set ObjExcel = Nothing
End Function
Call DoExcel("D:\Case.xls","Sheet1",9,8)





















本文转自hblxp32151CTO博客,原文链接:http://blog.51cto.com/starpoint/585059,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
云计算
使用钉钉扫一扫加入圈子
+ 订阅

时时分享云计算技术内容,助您降低 IT 成本,提升运维效率,使您更专注于核心业务创新。

其他文章