QTP COM组件操纵Excel文件、Txt文件

QTP脚本中操纵Excel文件：

DataStr= "D:\Automation\data\data.xls"

Set ExlObj=CreateObject("Excel.Application")
ExlObj.Visible = true' 设置为true的情况，文档会打开
ExlObj.DisplayAlerts = false
Set book=ExlObj.Workbooks.Open(DataStr)
Set sheet=book.Worksheets("Sheet1")
For i=2 to sheet.usedrange.rows.count
  systemutil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4b.exe"
  UserName=ExlObj.WorkSheets("Sheet1").Cells(i,1)  '或者UserName=sheet.Cells(i,1)
  PassWord=ExlObj.WorkSheets("Sheet1").Cells(i,2)  '或者PassWord=sheet.Cells(i,2)
  Dialog("Login").WinEdit("Agent Name:").Set UserName
  Dialog("Login").WinEdit("Password:").SetSecure PassWord
  wait 2
  Dialog("Login").WinButton("Cancel").Click
Next
ExlObj.Quit

Set ExlObj = nothing

QTP脚本中操纵txt文件：

Const ForReading=1
TFilePath= "D:\Automation\data\data.txt"
Set Fso3 = CreateObject("Scripting.FileSystemObject")
Set DataFile= Fso3.OpenTextFile(TFilePath,ForReading,False)
DataFile.SkipLine
Do while DataFile.AtEndOfLine<>true
     systemutil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4b.exe"
      ReadString = DataFile.ReadLine
      DataStr=split(ReadString,",")
      Dialog("Login").WinEdit("Agent Name:").Set DataStr(0)
      Dialog("Login").WinEdit("Password:").SetSecure DataStr(1)
      wait 2
Dialog("Login").WinButton("Cancel").Click
loop
DataFile.close
Set Fso3=Nothing