Frage : Export-Zugang zu den Excel-Format spreasdsheets

Ich habe den Code unter dem bearbeite großes, unterteile eine Zugangsfrage in einige unterschiedliche übertreffe Reports und speichere sie zu einem Antrieb.
My Frage ist dort jede mögliche Weise, damit ich Formatierung während dieses Prozesses hinzufüge, oder ist etwas, die ich in Excel tun muss, schliesslich die Akten aktualisiert worden sind?
Formatting Einzelteile, die ich möchte: den Guss zu Times New Roman, die Größe 10 ändern, fett die Feldnamen (Reihe 1)
Thank Sie im Voraus für irgendein assistance.
 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

Private VorCommand1_Click ()
  Auf Störung Goto- Err_Command1_Click
 
Schwaches rst als DAO.Recordset
Schwacher Weg als Schnur
Schwaches StrBU als Schnur
Schwaches intDcode als Schnur
Schwaches strQry als Schnur
Schwaches StrExt als Schnur
Schwaches strFile als Schnur
Schwaches qDef als DAO.QueryDef
 
 
Err.Clear
Auf Störungs-Zusammenfassung zunächst
qDef = CurrentDb.QueryDefs („Geburtstag-Report“) einstellen
Wenn Err.Number <> 0 dann eingestelltes qDef = CurrentDb.CreateQueryDef („Geburtstag-Report“)
Auf Störung Goto- 0
 
strQry = „AUSERWÄHLTES Departments1. [RestNumber] vom AUFTRAG Departments1 DURCH Departments1. [RestNumber]; “
Das rst = CurrentDb () .OpenRecordset (strQry, dbOpenDynaset) einstellen
rst.MoveLast
rst.MoveFirst
 
 
Tun während nicht rst.EOF
Weg = „C:\RestaurantReports\“
StrBU = rst („RestNumber“)
'StrExt = „_EmployeeRoster_“ u. Me.ExportDate u. „.xls“
StrExt = „- Juli-Geburtstag-Report“ u.“ .xls "
strFile = Weg u. StrBU u. StrExt
intDcode = rst („RestNumber“)
qDef.SQL = „WÄHLEN * VON QryBirthdayReport vor, WO RestNumber =“ u. intDcode u. ""
 
DoCmd.OutputTo acOutputQuery, „Geburtstag-Report“, acFormatXLS, strFile, falsch

rst.MoveNext
Schleife
 
MsgBox („Export komplett“)
Rst einstellen = nichts
 
Exit_Command1_Click:
    Unterseeboot herausnehmen
 
Err_Command1_Click:
    MsgBox Err.Description
    Zusammenfassung Exit_Command1_Click

Enden-Unterseeboot

Antwort : Export-Zugang zu den Excel-Format spreasdsheets

Annehmen, dass Problem im Transport ist. Zurück zu Austauschtransport und autoreply in das Aussicht shoul schalten, das richtig arbeitet
Weitere Lösungen  
 
programming4us programming4us