CopyFileAndOpen
 sub CopyFileAndOpen
   
    sOldFile = "U CAN GIVE UR PATH TO SOURCE FILE"
    sNewFile = "U CAN GIVE PATH TO UR DESTINATION FILE"
        
    WScript.Echo "Source : " & sOldFile
    WScript.Echo "Destination : " & sNewFile
    
    set oFS = CreateObject("Scripting.FileSystemObject")
    oFS.CopyFile sOldFile, sNewFile, true
    set oFS = nothing     
 
    set oXL = CreateObject("Excel.application")
    oXL.Visible = false
    
    set oWB = oXL.WorkBooks.Open(sNewFile)
    set oWS = oXL.ActiveWorkBook.WorkSheets("XYZ")
    
    WScript.Echo "First 10 Rows..."
    
    for i = 1 to 10
        WScript.Echo CStr(oWS.Cells(i, 1).Value) & vbTab & CStr(oWS.Cells(i, 4).Value)     
    next
        
    oWB.Save 
    oXL.Quit
    
    set oWS = nothing
    set oWB = nothing
    set oXL = nothing
    
    WScript.Echo "Done."
    
end sub