SendItAll secundario público ()
outlookApp dévil
mItem dévil
lRow dévil como de largo
En curriculum vitae del error después
Fijar el outlookApp = GetObject ("", “Outlook.Application”)
Si Err.Number <> 0 entonces
Fijar el outlookApp = CreateObject (“Outlook.Application”, el "")
Terminar si
En el error 0 indicado
Application.ScreenUpdating = Fase
lRow = hojas de trabajo (“datos”). Gama (“A65536”). Extremo (xlUp). Fila
'Claro hacia fuera cuaesquiera viejos datos sobre informe
Hojas (“informe”). Selecto
Gama (“A4: ANUNCIO” y lRow) .ClearContents
'Datos de la clase por la región
'Hojas (“datos”). Selecto
'Gama (“A1”) .CurrentRegion.Select
'Selection.Sort Key1: =Range (“A2”), jefe: =xlYes
'Procesar cada expediente en la distribución
Hojas (“distribución”). Selecto
FinalRow = gama (“A50”). Extremo (xlUp). Fila
Para i = 2 a FinalRow
Hojas (“distribución”). Selecto
RegionToGet = gama (“A” y i). Valor
Recipiente = gama (“B” y i). Valor
'Claro hacia fuera cuaesquiera viejos datos sobre informe
Hojas (“informe”). Selecto
Gama (“A4: ANUNCIO” y lRow) .ClearContents
'Conseguir los expedientes de datos
Hojas (“datos”). Selecto
Gama (“A1”) .CurrentRegion.Select
'Girar AutoFilter, si no está prendido
Si ActiveSheet.AutoFilterMode = entonces Selection.AutoFilter falso
'Filtrar los datos apenas a esta región
Campo de Selection.AutoFilter: =1, Criteria1: =RegionToGet
'Seleccionar solamente las células visibles y copiar para divulgar
Selection.SpecialCells (xlCellTypeVisible). Seleccionar
Destinación de Selection.Copy: =Sheets (“informe”). Gama (“A4”)
'Apagar el Autofilter
Selection.AutoFilter
'Copiar la hoja del informe a un nuevo libro y a un email
Hojas (“informe”). Copia
ActiveWorkbook.SaveAs “C:\Windows\temp\book123.xls”
' Application.Dialogs (xlDialogSendMail). Demostrar el _
' arg1: =Recipient, _
' arg2: = " informe - “y RegionToGet
Fijar el mItem = outlookApp.CreateItem (el olMailItem)
Con el mItem
. A = recipiente
. Tema = “informe -” y RegionToGet
. El cuerpo = “esto es su informe”
. Attachments.Add “C:\Windows\temp\book123.xls”
. Ahorrar
Terminar con
ActiveWorkbook.Close SaveChanges: =False
Matanza “C:\Windows\temp\book123.xls”
Application.ScreenUpdating = Fase
Después i
Submarino del extremo
|