qtp對(duì)Excel的操作

anonym0us

1. 
   
2. 
   
3. '*************************************************************'
   
4. '函數(shù)/過(guò)程名稱：DoExcel()
   
5. '函數(shù)/過(guò)程的目的：操作Excel(讀寫(xiě))
   
6. '假設(shè)：無(wú)
   
7. '影響：
   
8. '輸入：無(wú)
   
9. '返回值：無(wú)
   
10. '創(chuàng)建者：lee
    
11. '創(chuàng)建時(shí)間：2010/12/13
    
12. '修改者：
    
13. '修改原因：
    
14. '修改時(shí)間:
    
15. '*************************************************************'
    
16. Function DoExcel(filepath,sheetname,x,y)
    
17. Dim ObjExcel,SrcExcel,ExcValue
    
18. 
    
19.    Set ObjExcel = CreateObject ("Excel.Application")
    
20.        'Excel程序不在前臺(tái)顯示
    
21.     ObjExcel.Visible = False
    
22. 
    
23.        '設(shè)置變量SrcExcel等于Excel工作薄open
    
24.        'Activate定位活動(dòng)的sheet
    
25.        '并給某一單元格賦值
    
26.    Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
    
27.     SrcExcel.WorkSheets(sheetname).Activate
    
28.     SrcExcel.WorkSheets(sheetname).Cells(x,y).Value = "該單元格的值"
    
29.   
    
30.   '當(dāng)出現(xiàn)“在當(dāng)前位置發(fā)現(xiàn)已經(jīng)存在為"RESUME.XLW"的文件。您希望將該文件替換掉嗎？” 使用DisplayAlerts代碼該列
    
31.           ObjExcel.DisplayAlerts = False
    
32.           ObjExcel.save
    
33.       
    
34.   'Excel退出，釋放資源
    
35.     ObjExcel.quit
    
36.     Set ObjExcel = Nothing
    
37.     Set SrcExcel = Nothing
    
38. End Function
    
39. Call DoExcel("D:\Case.xlsx","Sheet1",9,8)
    
40. 
    
41. '*************************************************************'
    
42. '函數(shù)/過(guò)程名稱：DoExcel() 第二種方法實(shí)現(xiàn)。
    
43. '函數(shù)/過(guò)程的目的：操作Excel(讀寫(xiě))
    
44. '創(chuàng)建者：lee
    
45. '創(chuàng)建時(shí)間：2010/12/13
    
46. '修改者：
    
47. '修改原因：使用統(tǒng)一對(duì)象ObjExcel
    
48. '*************************************************************'
    
49. Function DoExcel(filepath,sheetname,x,y)
    
50. Dim ObjExcel,SrcExcel,ExcValue
    
51. 
    
52.    Set ObjExcel = CreateObject ("Excel.Application")
    
53.        'Excel程序不在前臺(tái)顯示
    
54.     ObjExcel.Visible = False
    
55. 
    
56.       'Activate定位活動(dòng)的sheet
    
57.        '并給某一單元格賦值
    
58. 
    
59.     'Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
    
60.     ObjExcel.WorkBooks.Open(filepath)
    
61.     ObjExcel.WorkSheets(sheetname).Activate
    
62.     ObjExcel.WorkSheets(sheetname).Cells(x,y).Value = "該單元格的值"
    
63.   
    
64.   '當(dāng)出現(xiàn)“在當(dāng)前位置發(fā)現(xiàn)已經(jīng)存在為"RESUME.XLW"的文件。您希望將該文件替換掉嗎？” 使用DisplayAlerts代碼該列
    
65.           ObjExcel.DisplayAlerts = False
    
66.           ObjExcel.save
    
67.       
    
68.     'Excel退出，釋放資源
    
69. 
    
70.     ObjExcel.WorkBooks.Close
    
71.     ObjExcel.quit
    
72.     Set ObjExcel = Nothing
    
73. End Function
    
74. Call DoExcel("D:\Case.xlsx","Sheet1",9,8)
    
75. 
    
76. 
    
77. 
    

復(fù)制代碼