Import Excel data from Quality Center into QTP Script

[sshukla12]

Hi,

Use the below code it might help u.
Make changes for QC test paln folder structure.

Code:

Function ImportDataSheet(strsheet)
   Dim sheet_name
   sheet_name=DataTable.LocalSheet.Name
   Call Import_ressources("Subject\97_RTT Resources","TestData","DataSheet.xls",strsheet,sheet_name)
End Function

Function Import_ressources (parent_folder, proj_name, src_file, src_sheet, dest_sheet)

Import_ressources = false

Set objTreeManager = QCUtil.TDConnection.TreeManager
Set projNode = objTreeManager.NodeByPath(parent_folder)

'  projNode.Count = nombre de REPs trouvés
For i = 1 to projNode.Count
  '  Le sous_dossier a été trouvé
  If instr (1, projNode.Child(i).Name,  proj_name) > 0 Then
   Set projNode = projNode.Child(i)
   Exit For
  End If
     Next
wait(2)
' Recherche du fichier paramètres (attaché)  
Set res = projNode.Attachments.NewList("")
For Each attach In res
  If Not Instr(1 , attach.FileName , src_file) = 0 Then
   attach.Load True, "C:\"
            datatable.AddSheet (dest_sheet )
   ' REM : 1 --> première feuille dans le fichier XLS
    DataTable.ImportSheet attach.FileName, src_sheet, dest_sheet
   'DataTable.ImportSheet attach.FileName, 1, dest_sheet
   Import_ressources = true
  End If
Next
wait(2)
End Function

Regards,
Sankalp