亚洲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 編輯
'*************************************************************'
'函數(shù)/過(guò)程名稱(chēng):DoExcel()
'函數(shù)/過(guò)程的目的:操作Excel(讀寫(xiě))
'假設(shè):無(wú)
'影響:
'輸入:無(wú)
'返回值:無(wú)
'創(chuàng)建者:lee
'創(chuàng)建時(shí)間:2010/12/13
'修改者:
'修改原因:
'修改時(shí)間:
'*************************************************************'
Function DoExcel(filepath,sheetname,x,y)
Dim ObjExcel,SrcExcel,ExcValue
Set ObjExcel = CreateObject ("Excel.Application")
'Excel程序不在前臺(tái)顯示
ObjExcel.Visible = False
'設(shè)置變量SrcExcel等于Excel工作薄open
'Activate定位活動(dòng)的sheet
'并給某一單元格賦值
Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
SrcExcel.WorkSheets(sheetname).Activate
SrcExcel.WorkSheets(sheetname).Cells(x,y).Value = "該單元格的值"
'當(dāng)出現(xiàn)“在當(dāng)前位置發(fā)現(xiàn)已經(jīng)存在為"RESUME.XLW"的文件。您希望將該文件替換掉嗎?” 使用DisplayAlerts代碼該列
ObjExcel.DisplayAlerts = False
ObjExcel.save
'Excel退出,釋放資源
ObjExcel.quit
Set ObjExcel = Nothing
Set SrcExcel = Nothing
End Function
Call DoExcel("D:\Case.xlsx","Sheet1",9,8)
'*************************************************************'
'函數(shù)/過(guò)程名稱(chēng):DoExcel() 第二種方法實(shí)現(xiàn)。
'函數(shù)/過(guò)程的目的:操作Excel(讀寫(xiě))
'創(chuàng)建者:lee
'創(chuàng)建時(shí)間:2010/12/13
'修改者:
'修改原因:使用統(tǒng)一對(duì)象ObjExcel
'*************************************************************'
Function DoExcel(filepath,sheetname,x,y)
Dim ObjExcel,SrcExcel,ExcValue
Set ObjExcel = CreateObject ("Excel.Application")
'Excel程序不在前臺(tái)顯示
ObjExcel.Visible = False
'Activate定位活動(dòng)的sheet
'并給某一單元格賦值
'Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
ObjExcel.WorkBooks.Open(filepath)
ObjExcel.WorkSheets(sheetname).Activate
ObjExcel.WorkSheets(sheetname).Cells(x,y).Value = "該單元格的值"
'當(dāng)出現(xiàn)“在當(dāng)前位置發(fā)現(xiàn)已經(jīng)存在為"RESUME.XLW"的文件。您希望將該文件替換掉嗎?” 使用DisplayAlerts代碼該列
ObjExcel.DisplayAlerts = False
ObjExcel.save
'Excel退出,釋放資源
ObjExcel.WorkBooks.Close
ObjExcel.quit
Set ObjExcel = Nothing
End Function
Call DoExcel("D:\Case.xlsx","Sheet1",9,8)
復(fù)制代碼
歡迎光臨 Chinaunix (http://72891.cn/)
Powered by Discuz! X3.2