Questione : Accesso dell'esportazione agli spreasdsheets di disposizione di Excel

Ho il codice sotto quello funziono grande, divido una domanda di accesso in parecchi differenti eccello i rapporti e li conservo ad un azionamento. la domanda del
My è là tutto il senso affinchè me aggiunga la formattazione durante questo processo o è qualcosa che debba fare in Excel dopo che tutte le lime sono state aggiornate? elementi che del
Formatting gradirei: cambiare la fonte a Times New Roman, il formato 10, GRASSETTO i nomi di campo (fila 1)
Thank voi in anticipo per qualsiasi assistance.
 class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
>Private notpretty Command1_Click secondari " del class= " del id= " codeSnippet791490 del 
 0 di Err.Number = CurrentDb.CreateQueryDef (“rapporto di compleanno„)
Sull'errore 0 di avanzamento
 
strQry = “Departments1 PRESCELTO. [RestNumber] da ORDINE Departments1 da Departments1. [RestNumber]; „
Regolare il rst = CurrentDb () .OpenRecordset (strQry, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
 
Fanno mentre non rst.EOF
Percorso = “C:\RestaurantReports\„
StrBU = rst (“RestNumber„)
'StrExt = “_EmployeeRoster_„ & Me.ExportDate & “.xls„
StrExt = “- rapporto di compleanno di luglio„ &„ .xls "
strFile = percorso & StrBU & StrExt
intDcode = rst (“RestNumber„)
qDef.SQL = “SELEZIONANO * A PARTIRE da QryBirthdayReport DOVE RestNumber =„ & intDcode & ""
 
acOutputQuery di DoCmd.OutputTo, “rapporto di compleanno„, acFormatXLS, strFile, falso

rst.MoveNext
Ciclo
 
MsgBox (“esportazione completa„)
Regolare il rst = niente
 
Exit_Command1_Click:
    Uscire il sommergibile
 
Err_Command1_Click:
    MsgBox Err.Description
    Riassunto Exit_Command1_Click

Sommergibile dell'estremità
class= del

Risposta : Accesso dell'esportazione agli spreasdsheets di disposizione di Excel

Supporre che il problema sia nel trasporto. Commutare di nuovo al trasporto di scambio e autoreply nello shoul di prospettiva che funziona correttamente
Altre soluzioni  
 
programming4us programming4us