Pytanie : Po Tym Jak Przodować eksport i format móc I samochód email?

I mieć Dojazdowy 2000 baza danych który eksportować, wtedy format 3 raport dla 166 Dział.
The kartoteka imię eksportować jak w ten sposób, z the dział liczba gdy the pierwszy część the kartoteka - imię.
This pracować wielki. Teraz I chcieć sprawnie email the raport the odpowiedni dział. I być pewny jeżeli to móc robić.

0001 - Lipiec Rocznica Report.xls
0001 - Lipiec Urodziny Report.xls
0001 - Lipiec Występ Report.xls

It być wielki email wpólnie, ale oddzielny być grzywna. Cokolwiek ręcznie 166 emails.

email adres dla Dział 0001 być [email protected]; [email protected]

The kod doceniać być dla the pierwszy eksport, the inny 2 być the 2 oprócz the kartoteka - imię i the zapytanie name.

Any pomoc ogromnie doceniać. Dziękować you. 
(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:
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 Okręt podwodny Command0_Click ()
  Na Błąd Rozpoczynający Err_Command0_Click
 
Ciemnawy rst Jako DAO.Recordset
Ciemnawy Ścieżka Sznurek
Ciemnawy StrBU Sznurek
Ciemnawy intDcode Sznurek
Ćmić strQry Sznurek
Ćmić StrExt Sznurek
Ćmić strFile Sznurek
Ćmić qDef Jako DAO.QueryDef
Ćmić oXL Przedmiot
Ćmić oWB Przedmiot
Ćmić oWS Przedmiot
Ustawiać oXL = CreateObject ("Excel.Application")
oXL.DisplayAlerts = Fałszywy
Ciemnawy strContents
 
Err.Clear
Na Błąd Życiorys Następnie
Ustalony qDef = CurrentDb.QueryDefs ("Rocznica Raport")
Jeżeli Err.Number <> (0) Wtedy Ustawiać qDef = CurrentDb.CreateQueryDef ("Rocznica Raport")
Na Błąd Rozpoczynający (0)
 
strQry = "WYBRANY Departments1. [DeptNum], Departments1. [RestNumbertext] OD Departments1 ROZKAZ Departments1. [DeptNum]; "
Ustalony rst = CurrentDb () .OpenRecordset (strQry, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
Robić Podczas Gdy Nie rst.EOF
Ścieżka = "C:\Documents and Settings\Name\My Dokument \ Restauracyjny Miesięczny Raport \"
StrBU = rst ("RestNumbertext")
StrExt = RestNumber & "- Lipiec Rocznica Raport" &" .xls "
strFile = Ścieżka & StrBU & StrExt
intDcode = rst ("DeptNum")
qDef.SQL = "WYBIÓRKA * OD QryAnniversaryReport DOKĄD DeptNum =" & intDcode & ""
 
DoCmd.OutputTo acOutputQuery, "Rocznica Raport", acFormatXLS, strFile, Fałszywy


Ustalony oWB = oXL.Workbooks.Open (strFile)
Ustalony oWS = oWB.Sheets (1)
oWS.Cells.Font.Name = "Czas Nowy Rzymianin"
oWS.Cells.Font.Size = 10
oWS.Rows (1).Font.Bold = Prawdziwy
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 = Fałszywy
oWS.PageSetup.FitToPagesWide = (1)
oWS.PageSetup.FitToPagesTall = (1)

oWB.Save
oWB.Close
Ustalony oWB = Nic

rst.MoveNext
Pętla
 
MsgBox ("Eksport Zupełny")
Ustalony rst = Nic
 
Exit_Command0_Click:
    Wyjście Okręt podwodny
 
Err_Command0_Click:
    MsgBox Err.Description
    Życiorys Exit_Command0_Click
    
Końcówka Okręt podwodny

Odpowiedź : Po Tym Jak Przodować eksport i format móc I samochód email?

Osobiście I przerywać HDD Regen -- jeżeli ono robić więcej postęp w 31 godzina ono być prawdopodobny jakaś znakomity sukces z ten przejażdżka.

I zaczynać z rozdział -- tworzyć 44GB jeden, then widzieć jeżeli ono format OK.

Jeżeli w ten sposób, wtedy tworzyć 10GB "BadArea1" rozdział (ale format ono);  i wtedy wtedy rozdział który używać the odpoczynek the dysk.    Jeżeli the być rozdział format OK, ty zrobić jeśli ty chcieć z właśnie jak duży "BadArea1" potrzeba.     Jeżeli badArea1 być the skrzynka, kasować the to rozdział i deleatur BadArea1;  re-create "BadArea1" rozdział ale robić ono mały (być może 5GB);  wtedy robić inny rozdział po tym jak ono i widzieć jeżeli ono format OK.    Ty móc ten proces until ty odizolowywać właśnie jak duży "BadArea1" musieć.

Jeżeli ty kartografować butla the teren z fizycznie uszkadzać sektor, ono być prawdopodobny the inny rozdział dopóki być na the ten sam fizyczny butla -- sektor być BARDZO nieprawdopodobny jeśli twój "BadArea1" rozdział być dokładnie the dobro rozmiar puszek the ostatni faktyczny sektor (prawie niemożliwy).
Inne rozwiązania  
 
programming4us programming4us