I have used the following successfully
DoCmd.TransferSpreadsheet acExport, 8, "tablename", "\\server\folder\subfolder\spreadsheet.xls", False, ""
You can then run a macro in the spreadsheet to format and save the spreadsheet file. This code has worked through Access97 to Access 2003 for me.
Dim mno As String
Set XLApp = GetObject(, "Excel.Application")
If Err <> 0 Then
Set XLApp = CreateObject("Excel.Application")
End If
On Error GoTo Err_Handle
TemplateFile = "\\Server\Folder\Subfolder\spreadsheet.XLS"
XLApp.workbooks.Open TemplateFile
f = RunMacro("FormatFont")
XLApp.Application.Quit
Set XLApp = Nothing
Sandy