Dim conn As New ADODB.Connection
 Dim rc As New ADODB.Recordset
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source='C:\xxxxx.xls';Extended Properties=Excel 8.0;"

rc.Open "SELECT * FROM [NGNT$] ORDER BY [$G]", conn, adOpenStatic, adLockOptimistic
i =  1 

Set oList = Worksheets.Add()
oList.Name = Day(Now()) & "_" & Month(Now()) & "_" & Year(Now()) & " " & Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now())


While Not rc.EOF
    oList.Cells(i,  1 ) = rc( 0 )
    rc.MoveNext
    i = i +  1 
Wend

rc.Close
conn.Close
oList = Null
End