change the DoCmd.TransferSpreadsheet line as below
DoCmd.TransferSpreadsheet acExport, 10, "All_Items_1", curPath, -1
and this should export an .xlsx as you wish.
Look at this link
http://msdn.microsoft.com/en-us/library/office/bb225982(v=office.12).aspx