QTP操作Excel.docx
《QTP操作Excel.docx》由会员分享，可在线阅读，更多相关《QTP操作Excel.docx（12页珍藏版）》请在冰豆网上搜索。
QTP操作Excel
QTP操作Excel
QTP Excel函数操作EXCEL数据表格表单编辑EXCEL 工作表
DimExcelApp 'AsExcel.Application
DimexcelSheet'AsExcel.worksheet
DimexcelBook 'AsExcel.workbook
Dimfso 'Asscrīpting.FileSystemObject
'*********************************************************************************************
'函数说明：
创建一个Excel应用程序ExcelApp,并创建一个新的工作薄Workbook;
'参数说明：
无
'调用方法:
' CreateExcel（）
'*********************************************************************************************
FunctionCreateExcel（）
DimexcelSheet
SetExcelApp=CreateObject（"Excel.Application"）
ExcelApp.Workbooks.Add
ExcelApp.Visible=True
SetCreateExcel=ExcelApp
EndFunction
'*********************************************************************************************
'函数说明：
关闭Excel应用程序;
'参数说明：
'
（1）ExcelApp:
Excel应用程序名称;
'调用方法:
' CloseExcel（ExcelApp）
'*********************************************************************************************
SubCloseExcel（ExcelApp）
SetexcelSheet=ExcelApp.ActiveSheet
SetexcelBook=ExcelApp.ActiveWorkbook
Setfso=CreateObject（"scrīpting.FileSystemObject"）
OnErrorResumeNext
fso.CreateFolder"C:
\Temp"
fso.DeleteFile"C:
\Temp\ExcelExamples.xls"
excelBook.SaveAs"C:
\Temp\ExcelExamples.xls"
ExcelApp.Quit
SetExcelApp=Nothing
Setfso=Nothing
Err=0
OnErrorGoTo0
EndSub
'*********************************************************************************************
'函数说明：
保存工作薄;
'参数说明：
'
（1）ExcelApp:
Excel应用程序名称;
'
（2）workbookIdentifier:
属于ExcelApp的工作薄名称;
' （3）path:
保存的路径;
'返回结果：
'
（1）保存成功，返回字符串：
OK
'
（2）保存失败，返回字符串：
BadWorksheetIdentifier
'调用方法:
' ret=SaveWorkbook（ExcelApp,"Book1","D:
\Example1.xls"）
'*********************************************************************************************
FunctionSaveWorkbook（ExcelApp,workbookIdentifier,path）'AsString
Dimworkbook
OnErrorResumeNext'启用错误处理程序
Setworkbook=ExcelApp.Workbooks（workbookIdentifier）
OnErrorGoTo0 '禁用错误处理程序
IfNotworkbookIsNothingThen
Ifpath=""Orpath=workbook.FullNameOrpath=workbook.NameThen
workbook.Save
Else
Setfso=CreateObject（"scrīpting.FileSystemObject"）
'判断路径中是否已添加扩展名.xls
IfInStr（path,"."）=0Then
path=path&".xls"
EndIf
'删除路径下现有同名的文件
OnErrorResumeNext
fso.DeleteFilepath
Setfso=Nothing
Err=0
OnErrorGoTo0
workbook.SaveAspath
EndIf
SaveWorkbook="OK"
Else
SaveWorkbook="BadWorkbookIdentifier"
EndIf
EndFunction
'*********************************************************************************************
'函数说明：
设置工作表excelSheet单元格的值
'参数说明：
'
（1）excelSheet:
工作表名称;
'
（2）row:
列的序号,第一列为1;
' （3）column:
行的序号,第一行为1;
' （4）value:
单元格要设置的值;
'返回结果：
' 无返回值
'调用方法:
' SetCellValueexcelSheet1,1,2,"test"
'*********************************************************************************************
SubSetCellValue（excelSheet,row,column,value）
OnErrorResumeNext
excelSheet.Cells（row,column）=value
OnErrorGoTo0
EndSub
'TheGetCellValuereturnsthecell'svalueaccordingtoitsrowcolumnandsheet
'excelSheet-theExcelSheetinwhichthecellexists
'row-thecell'srow
'column-thecell'scolumn
'return0ifthecellcouldnotbefound
'*********************************************************************************************
'函数说明：
获取工作表excelSheet单元格的值
'参数说明：
'
（1）excelSheet:
工作表名称;
'
（2）row:
列的序号;
' （3）column:
行的序号;
'返回结果：
'
（1）单元格存在,返回单元格值;
'
（2）单元格不存在，返回0;
'调用方法:
' setCellValue=GetCellValue（excelSheet,1,2）
'*********************************************************************************************
FunctionGetCellValue（excelSheet,row,column）
value=0
Err=0
OnErrorResumeNext
tempValue=excelSheet.Cells（row,column）
IfErr=0Then
value=tempValue
Err=0
EndIf
OnErrorGoTo0
GetCellValue=value
EndFunction
'*********************************************************************************************
'函数说明：
获取并返回工作表对象
'参数说明：
'
（1）ExcelApp:
Excel应用程序名称;
'
（2）sheetIdentifier:
属于ExcelApp的工作表名称;
'返回结果：
'
（1）成功：
工作表对象Excel.worksheet
'
（1）失败：
Nothing
'调用方法:
' SetexcelSheet1=GetSheet（ExcelApp,"SheetName"）
'*********************************************************************************************
FunctionGetSheet（ExcelApp,sheetIdentifier）
OnErrorResumeNext
SetGetSheet=ExcelApp.Worksheets.Item（sheetIdentifier）
OnErrorGoTo0
EndFunction
'*********************************************************************************************
'函数说明：
添加一张新的工作表
'参数说明：
'
（1）ExcelApp:
Excel应用程序名称;
'
（2）workbookIdentifier:
属于ExcelApp的工作薄名称;
'
（2）sheetName:
要插入的工作表名称;
'返回结果：
'
（1）成功：
工作表对象worksheet
'
（1）失败：
Nothing
'调用方法:
' InsertNewWorksheet（ExcelApp,workbookIdentifier,"newsheet"）
'*********************************************************************************************
FunctionInsertNewWorksheet（ExcelApp,workbookIdentifier,sheetName）
Dimworkbook'AsExcel.workbook
Dimworksheet'AsExcel.worksheet
'如果指定的工作薄不存在，将在当前激活状态的工作表中添加工作表
IfworkbookIdentifier=""Then
Setworkbook=ExcelApp.ActiveWorkbook
Else
OnErrorResumeNext
Err=0
Setworkbook=ExcelApp.Workbooks（workbookIdentifier）
IfErr<>0Then
SetInsertNewWorksheet=Nothing
Err=0
ExitFunction
EndIf
OnErrorGoTo0
EndIf
sheetCount=workbook.Sheets.Count'获取工作薄中工作表的数量
workbook.Sheets.Add,sheetCount'添加工作表
Setworksheet=workbook.Sheets（sheetCount+1）'初始化worksheet为新添加的工作表对象
'设置新添加的工作表名称
IfsheetName<>""Then
worksheet.Name=sheetName
EndIf
SetInsertNewWorksheet=worksheet
EndFunction
'*********************************************************************************************
'函数说明：
修改工作表的名称;
'参数说明：
'
（1）ExcelApp:
Excel应用程序名称;
'
（2）workbookIdentifier:
属于ExcelApp的工作薄名称;
' （3）worksheetIdentifier:
属于workbookIdentifier工作薄的工作表名称;
' （4）sheetName:
修改后的工作表名称;
'返回结果：
'
（1）修改成功，返回字符串：
OK
'
（2）修改失败，返回字符串：
BadWorksheetIdentifier
'调用方法:
' setret=RenameWorksheet（ExcelApp,"Book1","Sheet1","SheetName"）
'*********************************************************************************************
FunctionRenameWorksheet（ExcelApp,workbookIdentifier,worksheetIdentifier,sheetName）
Dimworkbook
Dimworksheet
OnErrorResumeNext
Err=0
Setworkbook=ExcelApp.Workbooks（workbookIdentifier）
IfErr<>0Then
RenameWorksheet="BadWorkbookIdentifier"
Err=0
ExitFunction
EndIf
Setworksheet=workbook.Sheets（worksheetIdentifier）
IfErr<>0Then
RenameWorksheet="BadWorksheetIdentifier"
Err=0
ExitFunction
EndIf
worksheet.Name=sheetName
RenameWorksheet="OK"
EndFunction
'*********************************************************************************************
'函数说明：
删除工作表;
'参数说明：
'
（1）ExcelApp:
Excel应用程序名称;
'
（2）workbookIdentifier:
属于ExcelApp的工作薄名称;
' （3）worksheetIdentifier:
属于workbookIdentifier工作薄的工作表名称;
'返回结果：
'
（1）删除成功，返回字符串：
OK
'
（2）删除失败，返回字符串：
BadWorksheetIdentifier
'调用方法:
' setret=RemoveWorksheet（ExcelApp,"Book1","Sheet1"）
'*********************************************************************************************
FunctionRemoveWorksheet（ExcelApp,workbookIdentifier,worksheetIdentifier）
Dimworkbook'AsExcel.workbook
Dimworksheet'AsExcel.worksheet
OnErrorResumeNext
Err=0
Setworkbook=ExcelApp.Workbooks（workbookIdentifier）
IfErr<>0Then
RemoveWorksheet="BadWorkbookIdentifier"
ExitFunction
EndIf
Setworksheet=workbook.Sheets（worksheetIdentifier）
IfErr<>0Then
RemoveWorksheet="BadWorksheetIdentifier"
ExitFunction
EndIf
worksheet.Delete
RemoveWorksheet="OK"
EndFunction
'*********************************************************************************************
'函数说明：
添加新的工作薄
'参数说明：
'
（1）ExcelApp:
Excel应用程序名称;
'返回结果：
'
（1）成功：
工作表对象NewWorkbook
'
（1）失败：
Nothing
'调用方法:
' setNewWorkbook=CreateNewWorkbook（ExcelApp）
'*********************************************************************************************
FunctionCreateNewWorkbook（ExcelApp）
SetNewWorkbook=ExcelApp.Workbooks.Add（）
SetCreateNewWorkbook=NewWorkbook
EndFunction
'*********************************************************************************************
'函数说明：
打开工作薄
'参数说明：
'
（1）ExcelApp:
Excel应用程序名称;
'
（2）path:
要打开的工作薄路径;
'返回结果：
'
（1）成功：
工作表对象NewWorkbook
'
（1）失败：
Nothing
'调用方法:
' setNewWorkbook=CreateNewWorkbook（ExcelApp）
'*********************************************************************************************
FunctionOpenWorkbook（ExcelApp,path）
OnErrorResumeNext
SetNewWorkbook=ExcelApp.Workbooks.Open（path）
SetōpenWorkbook=NewWorkbook
OnErrorGoTo0
EndFunction
'***********************
升级会员 