免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 892 | 回复: 0

[函数] qtp对Excel的操作 [复制链接]

论坛徽章:
2
IT运维版块每日发帖之星
日期:2016-03-29 06:20:00IT运维版块每日发帖之星
日期:2016-03-30 06:20:00
发表于 2016-01-29 17:10 |显示全部楼层
本帖最后由 anonym0us 于 2016-01-29 17:11 编辑


  1. '*************************************************************'
  2. '函数/过程名称:DoExcel()
  3. '函数/过程的目的:操作Excel(读写)
  4. '假设:无
  5. '影响:
  6. '输入:无
  7. '返回值:无
  8. '创建者:lee
  9. '创建时间:2010/12/13
  10. '修改者:
  11. '修改原因:
  12. '修改时间:
  13. '*************************************************************'
  14. Function DoExcel(filepath,sheetname,x,y)
  15. Dim ObjExcel,SrcExcel,ExcValue

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

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

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

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

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

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

  61.     ObjExcel.WorkBooks.Close
  62.     ObjExcel.quit
  63.     Set ObjExcel = Nothing
  64. End Function
  65. Call DoExcel("D:\Case.xlsx","Sheet1",9,8)



复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会,7折限时优惠重磅来袭!
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。

限时七折期:2019年8月31日前


----------------------------------------

大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP