Frage : Nach Excel-Export und Format kann i-Automobil-eMail?

Ich habe eine Access 2000-Datenbank, die exportiert, formatiere dann 3 Reports für 166 Abteilungen.
The Akten-Namenexport mögen so, mit der Abteilungszahl, während das erste Teil des Dateiname.
This großes bearbeitet. Jetzt möchte ich in der Lage sein, die Reports zu den passenden Abteilungen zu mailen. Ich bin nicht sicher, wenn dieses getan werden kann.

0001 - Juli-Jahrestag Report.xls
0001 - Juli-Geburtstag Report.xls
0001 - Juli-Leistung Report.xls

It würde groß sein, sie zusammen mailen zu lassen, aber unterschiedlich fein sein. Alles, 166 emails.

email address für Abteilung 0001 senden nicht manuell zu müssen ist [email protected]; der folgende [email protected]

The Code ist für den ersten Export, sind die anderen 2 die selben außer dem Dateinamen und die Hilfe der Frage name.

Any wird sehr geschätzt. You. danken 
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:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:

Private VorCommand0_Click ()
  Auf Störung Goto- Err_Command0_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
Schwaches oXL als Gegenstand
Schwaches oWB als Gegenstand
Schwaches oWS als Gegenstand
oXL = CreateObject („Excel.Application“) einstellen
oXL.DisplayAlerts = falsch
Schwache strContents
 
Err.Clear
Auf Störungs-Zusammenfassung zunächst
qDef = CurrentDb.QueryDefs („Jahrestags-Report“) einstellen
Wenn Err.Number <> 0 dann eingestelltes qDef = CurrentDb.CreateQueryDef („Jahrestags-Report“)
Auf Störung Goto- 0
 
strQry = „AUSERWÄHLTES Departments1. [DeptNum], Departments1. [RestNumbertext] vom AUFTRAG Departments1 DURCH Departments1. [DeptNum]; “
Das rst = CurrentDb () .OpenRecordset (strQry, dbOpenDynaset) einstellen
rst.MoveLast
rst.MoveFirst
 
Tun während nicht rst.EOF
Weg = „C:\Documents and Settings\Name\My-Dokumente \ Gaststätte-Monatsreports \“
StrBU = rst („RestNumbertext“)
StrExt = RestNumber u. „- Juli-Jahrestags-Report“ u.“ .xls "
strFile = Weg u. StrBU u. StrExt
intDcode = rst („DeptNum“)
qDef.SQL = „WÄHLEN * VON QryAnniversaryReport vor, WO DeptNum =“ u. intDcode u. ""
 
DoCmd.OutputTo acOutputQuery, „Jahrestags-Report“, acFormatXLS, strFile, falsch


Das oWB = oXL.Workbooks.Open (strFile) einstellen
oWS = oWB.Sheets einstellen (1)
oWS.Cells.Font.Name = „Times New Roman“
oWS.Cells.Font.Size = 10
oWS.Rows (1).Font.Bold = richten aus
oWS.Columns („A: Z“) .AutoFit
oWS.Columns („C“) .HorizontalAlignment = -4108
oWS.Columns („E“) .HorizontalAlignment = -4108
oWS.Columns („G: K“) .HorizontalAlignment = -4108
oWS.Columns („H“) .NumberFormat = „mm/dd/yyyy“
oWS.PageSetup.TopMargin = 0.2
oWS.PageSetup.RightMargin = 0.2
oWS.PageSetup.LeftMargin = 0.2
oWS.PageSetup.BottomMargin = 0.2
oWS.PageSetup.Orientation = 2
oWS.PageSetup.Zoom = falsch
oWS.PageSetup.FitToPagesWide = 1
oWS.PageSetup.FitToPagesTall = 1

oWB.Save
oWB.Close
oWB einstellen = nichts

rst.MoveNext
Schleife
 
MsgBox („Export komplett“)
Rst einstellen = nichts
 
Exit_Command0_Click:
    Unterseeboot herausnehmen
 
Err_Command0_Click:
    MsgBox Err.Description
    Zusammenfassung Exit_Command0_Click
    
Enden-Unterseeboot

Antwort : Nach Excel-Export und Format kann i-Automobil-eMail?

Persönlich ich abbrechen HDD Regen n -- wenn er nicht mehr Fortschritt in 31 Stunden gebildet, ist es wahrscheinlich, keinen bemerkenswerten Erfolg mit diesem Antrieb zu haben.

Ich anfangen h, mit Fächern zu experimentieren -- ein 44GB eins verursachen, um zu beginnen, dann sehen, wenn es o.k. formatiert.

Wenn ja ein 10GB „BadArea1“ Fach dann herstellen (aber es nicht formatieren);  und dann ein 3. Fach, das den Rest der Scheibe verwendet.    Wenn das 3. Fach o.k. formatiert, getan Sie, es sei denn Sie mit experimentieren möchten, gerade wie grosses „BadArea1“ sein muss.     Wenn der der Fall ist, das 3. Fach löschen und BadArea1 löschen;  ein Fach „BadArea1“ neu erstellen aber es kleiner bilden (möglicherweise 5GB);  ein anderes Fach dann bilden nachdem es und sehen, wenn es o.k. formatiert.    Sie können diesen Prozess wiederholen, bis Sie lokalisieren, gerade wie grosses „BadArea1“ sein muss.

Wenn Sie den Bereich mit physikalisch geschädigten Sektoren ausarbeiten, zu verbreiten ist nicht wahrscheinlich, zu den anderen Fächern, solange sie nicht auf dem gleichen körperlichen Zylinder sind -- welches SEHR unwahrscheinlich ist, es sei denn Ihr Fach „BadArea1“ genau die rechte Größe unten zum letzten tatsächlichen Sektor war (fast unmöglich).
Weitere Lösungen  
 
programming4us programming4us