收集的一些QTP函数方法

'************************************
'函数功能：读取Excel文件的指定单元格内容
'输入参数：
' pathway - Excel文件全路径
' sheetname - 操作的工作表名称
' x - 单元格行数
' y - 单元格列数
'返回值：
' Excel单元格的内容
'示例调用：
''MsgBox ReadExcelCell("d:\test.xls", "sheet1", 2, 2)
'*************************************
Public Function ReadExcelCell(pathway,sheetname,x,y)
 Dim srcData,srcDoc,ret
 set srcData = CreateObject("Excel.Application")
 srcData.Visible = false
 set srcDoc = srcData.Workbooks.Open(pathway)
 srcDoc.Worksheets(sheetname).Activate
 ret = srcDoc.Worksheets(sheetname).Cells(x,y).value
 srcData.Workbooks.Close
 ReadExcelCell = ret
 Set srcData = Nothing
 Set srcDoc = Nothing
End Function

'************************************
'函数功能：检查文件是否存在
'输入参数：
' pathway - 文件全路径
'返回值：
' 如果文件存在，返回True，否则返回False
'示例调用：
'MsgBox CheckFileExists("D:\test.txt")
'*************************************
Function CheckFileExists (FilePath)
 dim oFSO
 Set FSO = CreateObject ("Scripting.FileSystemObject")
    CheckFileExists = oFSO.FileExists(FilePath)
    Set FSO = Nothing
End Function

'************************************
'函数功能：如果文件夹不存在则创建文件夹
'输入参数：
' fldr - 文件夹全路径
'返回值：
' 无
'示例调用：
'Call CreatFolderIfNotExist("D:\test")
'*************************************
Function CreatFolderIfNotExist(fldr)
   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If Not (fso.FolderExists(fldr)) Then
   Set f = fso.CreateFolder(fldr)
   End If
End Function

'************************************
'函数功能：读取指定行内容
'输入参数：
' pathway - 文件全路径,该文件不能是excel文件
' rowcount - 行数
'返回值：
' 该行内容
'示例调用：
'MsgBox ReadLine("c:\c.txt", 2)
'*************************************
Function ReadLine(pathway, rowcount)
 Dim fso,myfile,i,flag
 flag = 1
 Set fso=CreateObject("scripting.FileSystemObject")
 If fso.FileExists(pathway) Then
  Set myfile = fso.openTextFile(pathway,1,False)
 Else
  flag = 0
 End If
 
 For i=1 to rowcount-1
  If Not myfile.AtEndOfLine Then
   myfile.SkipLine
  End If
 Next
 If flag = 1 Then
  If Not myfile.AtEndOfLine Then
   ReadLine = myfile.ReadLine
  Else
   ReadLine = "越界"
  End If
  myfile.close
 Else
  ReadLine = "文件不存在"
 End If
End Function