Cuestión : Acceso de la exportación a los spreasdsheets del formato de Excel

Tengo el código debajo de ése trabajo grande, divido una pregunta del acceso en varios diferentes sobresalgo informes y los ahorro a una impulsión. ¿la pregunta del
My está allí cualquier manera para que agregue el formato durante este proceso o es algo que tengo que hacer en Excel después de que se hayan puesto al día todos los archivos? artículos del
Formatting que quisiera: cambiar la fuente a Times New Roman, tamaño 10, en negrilla los nombres de campo (fila 1)
Thank usted por adelantado para cualquie assistance.
 class= > " claro " 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 secundarios " del class= " del id= " codeSnippet791490 del 
 0 de Err.Number = CurrentDb.CreateQueryDef (“informe del cumpleaños”)
En el error 0 indicado
 
strQry = “Departments1 SELECTO. [RestNumber] de la ORDEN Departments1 POR Departments1. [RestNumber]; ”
Fijar el rst = CurrentDb () .OpenRecordset (strQry, el dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
 
Hacen mientras que no rst.EOF
Trayectoria = “C:\RestaurantReports\”
StrBU = rst (“RestNumber”)
'StrExt = “_EmployeeRoster_” y Me.ExportDate y “.xls”
StrExt = “- informe del cumpleaños de julio” y” .xls "
strFile = trayectoria y StrBU y StrExt
intDcode = rst (“RestNumber”)
qDef.SQL = “SELECCIONAN * de QryBirthdayReport DONDE RestNumber =” y intDcode y el ""
 
acOutputQuery de DoCmd.OutputTo, “informe del cumpleaños”, acFormatXLS, strFile, falso

rst.MoveNext
Lazo
 
MsgBox (“exportación completa”)
Fijar el rst = nada
 
Exit_Command1_Click:
    Salir el submarino
 
Err_Command1_Click:
    MsgBox Err.Description
    Curriculum vitae Exit_Command1_Click

Submarino del extremo
class= del

Respuesta : Acceso de la exportación a los spreasdsheets del formato de Excel

Suponer que el problema está en transporte. Cambiar de nuevo a transporte del intercambio y autoreply en el shoul de la perspectiva que trabaja correctamente
Otras soluciones  
 
programming4us programming4us