QTP在EXCEL里面添加超联接的方法

脚本作用：在d盘根目录下创建test.xsl 文件，A1,A2 分别写入：Tom，Sohu 并分别为其创建超链接：http://www.tom.com ，http://www.sohu.com 。

 

Sub ReportInformation(filename)    
Set ExcelObj = CreateObject("Excel.Application")   
ExcelObj.Workbooks.Add 
Set NewSheet = ExcelObj.Sheets.Item(1) 
NewSheet.Name = "Page Information" 
NewSheet.Cells(1,1).Value = "Tom"    
NewSheet.Cells(2,1).Value = "Sohu"  
NewSheet.Hyperlinks.Add NewSheet.Cells(1,1), "http://www.tom.com/"  
NewSheet.Hyperlinks.Add NewSheet.Cells(2,1), "http://www.sohu.com/"
      ExcelObj.ActiveWorkbook.SaveAs filename    
      ExcelObj.Quit
      Set ExcelObj = Nothing   
   End Sub
call ReportInformation("d:\test.xls")