Fråga : Exporten tar fram för att överträffa formaterar spreasdsheets

Jag har den nedanföra kodifiera, som fungerar utmärkt, delar en ta framquery in i flera olika överträffar rapporter och sparar dem till ett drev.
My ifrågasätter är där any långt för att mig ska tillfoga att formatera under detta processaa, eller är något som jag måste att göra i Excel, efter alla har sparat har uppdaterats? objekt för
Formatting jag skulle något liknande: ändra stilsorten till Times New Roman, storleksanpassa 10, sätta en klocka på sätta in namnger (ro 1),
Thank dig i förskott för någon assistance.
> för

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

" codeBody " " >Private underCommand1_Click för class= " för 0 därefter = CurrentDb.CreateQueryDef (”födelsedagrapport”) På fel GoTo 0 strQry = ”VALD Departments1. FRÅN Departments1 BESTÄLLA VID Departments1, [RestNumber]. [RestNumber]; ”, Fastställd rst = strQry CurrentDb () .OpenRecordset (, dbOpenDynaset) rst.MoveLast rst.MoveFirst Gör stunder inte rst.EOF Bana = ”C:\RestaurantReports\”, StrBU = rst (”RestNumber”) 'StrExt = ”_EmployeeRoster_” & Me.ExportDate & ”.xls”, StrExt = ”- Juli födelsedagrapport” &” .xls ", strFile = bana & StrBU & StrExt intDcode = rst (”RestNumber”) qDef.SQL = ”VÄLJER * FRÅN QryBirthdayReport VAR RestNumber =” & intDcode & "", DoCmd.OutputTo-acOutputQuery, ”födelsedagrapport”, acFormatXLS, strFile som är falsk rst.MoveNext Kretsa MsgBox (”färdig export”) Fastställd rst = ingenting Exit_Command1_Click: Gå ut suben Err_Command1_Click: MsgBox Err.Description Meritförteckning Exit_Command1_Click Avsluta suben " klar "

Svar : Exporten tar fram för att överträffa formaterar spreasdsheets

Anta att problemet är i transport. Koppla tillbaka till utbytestransport och autoreply i framtidsutsiktshoularbete riktigt