Function to open the data sheet

Public Function OpenDataTable(strFileName,strSheetName)
CurPath=environment("TestDir")
pathArr=split(CurPath,"\") CurDrive=pathArr(0) pathFile="\nxc Automation\Data Table\"
dataTablePath=CurDrive + pathFile strFilePath=dataTablePath+ strFileName
DataTable.ImportSheet strFilePath,strSheetName,"Global"
End Function