Correct syntax for read and load global datatable from Resources tab in QC to QTP

[hari1024]

Hello,
We are trying important to load global and local datasheet from respurces tab in QC into a particular test in QTP.I am looking for piece of code in QTP to import the datasheet? Can anyone help?

[sshukla12]

Hi,

U can use this,

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

Subject\97_RTT Resources---> Path in QC
TestData---> Folder in QC where Data sheet is stored
DataSheet.xls----> .xls file(datasheet)
strsheet---> worksheet within .xls workbook from where u want to import data.
sheet_name----> Datatable in qtp where u want to import the .xls file

Code:

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