Code for import excel from QC to QTP

Set tdc = QCUtil.QCConnection 
set tm = tdc.TreeManager 
set root = tm.TreeRoot("Subject") 
set folder = root.FindChildNode("Your folder name") 
Set fact = folder.Attachments