亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: qtp對(duì)Excel的操作 [打印本頁(yè)]

作者: anonym0us    時(shí)間: 2016-01-29 17:10
標(biāo)題: qtp對(duì)Excel的操作
本帖最后由 anonym0us 于 2016-01-29 17:11 編輯


  1. '*************************************************************'
  2. '函數(shù)/過(guò)程名稱(chēng):DoExcel()
  3. '函數(shù)/過(guò)程的目的:操作Excel(讀寫(xiě))
  4. '假設(shè):無(wú)
  5. '影響:
  6. '輸入:無(wú)
  7. '返回值:無(wú)
  8. '創(chuàng)建者:lee
  9. '創(chuàng)建時(shí)間:2010/12/13
  10. '修改者:
  11. '修改原因:
  12. '修改時(shí)間:
  13. '*************************************************************'
  14. Function DoExcel(filepath,sheetname,x,y)
  15. Dim ObjExcel,SrcExcel,ExcValue

  16.    Set ObjExcel = CreateObject ("Excel.Application")
  17.        'Excel程序不在前臺(tái)顯示
  18.     ObjExcel.Visible = False

  19.        '設(shè)置變量SrcExcel等于Excel工作薄open
  20.        'Activate定位活動(dòng)的sheet
  21.        '并給某一單元格賦值
  22.    Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
  23.     SrcExcel.WorkSheets(sheetname).Activate
  24.     SrcExcel.WorkSheets(sheetname).Cells(x,y).Value = "該單元格的值"
  25.   
  26.   '當(dāng)出現(xiàn)“在當(dāng)前位置發(fā)現(xiàn)已經(jīng)存在為"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. '函數(shù)/過(guò)程名稱(chēng):DoExcel() 第二種方法實(shí)現(xiàn)。
  38. '函數(shù)/過(guò)程的目的:操作Excel(讀寫(xiě))
  39. '創(chuàng)建者:lee
  40. '創(chuàng)建時(shí)間:2010/12/13
  41. '修改者:
  42. '修改原因:使用統(tǒng)一對(duì)象ObjExcel
  43. '*************************************************************'
  44. Function DoExcel(filepath,sheetname,x,y)
  45. Dim ObjExcel,SrcExcel,ExcValue

  46.    Set ObjExcel = CreateObject ("Excel.Application")
  47.        'Excel程序不在前臺(tái)顯示
  48.     ObjExcel.Visible = False

  49.       'Activate定位活動(dòng)的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.   '當(dāng)出現(xiàn)“在當(dāng)前位置發(fā)現(xiàn)已經(jīng)存在為"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)



復(fù)制代碼





歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2