There may be a direct solution but this is the closest I can think of:
DoCmd.TransferSpreadsheet acImport, 8, _
"tblYourNewTableName", "C:\YourPath\AndXlsNameHere.xls",True, "YourSheetName!A1:F2"
I've tried it with the range set to A1:F1 (row containing column names) but that resulted in text fields in the new table, regardless of the XL setting. It seems that some sample data is needed to determine the type.
As a workaround you could, eg. run a Delete qry after the table has been created.
TomCologne