Cuestión : ¿Después de la exportación y del formato de Excel puede el email del automóvil de I?

Tengo una base de datos de Access 2000 que exporte, entonces doy formato a 3 informes para 166 departamentos. la exportación de los nombres del archivo del
The tiene gusto así pues, con el número del departamento mientras que la primera parte del
This del nombre de fichero. trabaja grande. Ahora quiero poder enviar por correo electrónico los informes a los departamentos apropiados. No estoy seguro si esto puede ser hecha.

0001 - aniversario Report.xls
0001 de julio - cumpleaños Report.xls
0001 de julio - el funcionamiento Report.xls

It de julio sería grande hacer que envíen por correo electrónico junto, pero separado ser fino. Cualquier cosa no tener que manualmente enviar 166 email address de emails.

para el departamento 0001 es [email protected]; el código de [email protected]

The abajo está para la primera exportación, los otros 2 son iguales a excepción del nombre de fichero y la ayuda de la pregunta name.

Any se agradece grandemente. Agradecer you. 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:
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 notpretty Command0_Click secundarios " del class= " del id= " codeSnippet841853 del 
 0 de Err.Number = CurrentDb.CreateQueryDef (“informe del aniversario”)
En el error 0 indicado
 
strQry = “Departments1 SELECTO. [DeptNum], Departments1. [RestNumbertext] de la ORDEN Departments1 POR Departments1. [DeptNum]; ”
Fijar el rst = CurrentDb () .OpenRecordset (strQry, el dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
Hacen mientras que no rst.EOF
Trayectoria = “documentos de C:\Documents and Settings\Name\My \ informes mensuales \” del restaurante
StrBU = rst (“RestNumbertext”)
StrExt = RestNumber y “- informe del aniversario de julio” y” .xls "
strFile = trayectoria y StrBU y StrExt
intDcode = rst (“DeptNum”)
qDef.SQL = “SELECCIONAN * de QryAnniversaryReport DONDE DeptNum =” y intDcode y el ""
 
acOutputQuery de DoCmd.OutputTo, “informe del aniversario”, acFormatXLS, strFile, falso


Fijar el oWB = oXL.Workbooks.Open (strFile)
Fijar el oWS = oWB.Sheets (1)
oWS.Cells.Font.Name = “Times New Roman”
oWS.Cells.Font.Size = 10
oWS.Rows (1).Font.Bold = verdad
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 = falso
oWS.PageSetup.FitToPagesWide = 1
oWS.PageSetup.FitToPagesTall = 1

oWB.Save
oWB.Close
Fijar el oWB = nada

rst.MoveNext
Lazo
 
MsgBox (“exportación completa”)
Fijar el rst = nada
 
Exit_Command0_Click:
    Salir el submarino
 
Err_Command0_Click:
    MsgBox Err.Description
    Curriculum vitae Exit_Command0_Click
    
Submarino del extremo
class= del

Respuesta : ¿Después de la exportación y del formato de Excel puede el email del automóvil de I?

Personalmente abortaría HDD Regen -- si no ha hecho más progreso sobre 31 horas no es probable tener ningún éxito notable con esa impulsión.

Comenzaría a experimentar con las particiones -- crear un 44GB uno para comenzar, después ver si da formato muy bien.

Si es así entonces crear una partición de 10GB “BadArea1” (pero no darle formato);  y entonces una 3ro partición que utiliza el resto del disco.    Si la 3ro partición da formato muy bien, le hacen a menos que usted quiera experimentar con apenas cómo “BadArea1 grande” necesita ser.     Si ése es el caso, suprimir la 3ro partición y suprimir BadArea1;  reconstruir una partición “BadArea1” pero hacerla más pequeña (quizás 5GB);  después hacer otra partición después de que él y ver si da formato muy bien.    Usted puede repetir este proceso hasta que usted aísle apenas cómo “BadArea1 grande” tiene que ser.

Si usted proyecta el área con los sectores físicamente dañados, no es probable separarse a las otras particiones mientras no estén en el mismo cilindro físico -- cuál es MUY inverosímil a menos que su partición “BadArea1” fuera exactamente el tamaño correcto abajo al sector real pasado (casi imposible).
Otras soluciones  
 
programming4us programming4us