04-03-2012, 09:42 AM
Hi,
Use the below code it might help u.
Make changes for QC test paln folder structure.
Regards,
Sankalp
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