Envíar archivos excel por correo
Como hago para enviar archivos de excel por pestañas de hojas.
1 Respuesta
Con la siguiente macro puedes enviar la "hoja2", cambia en la macro el nombre "hoja2", por el nombre de la hoja que quieres enviar. En estas líneas:
Sheets("Hoja2").Select
nombre = ActiveSheet.Name
Sheets("Hoja2"). Copy
Sigue las Instrucciones para ejecutar una macro
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
Sub Macro4()
'Enviar una hoja por correo
'por.dam
wpath = ThisWorkbook.Path & "\"
Sheets("Hoja2").Select
nombre = ActiveSheet.Name
Sheets("Hoja2").Copy
ActiveWorkbook.SaveAs Filename:=wpath & nombre & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = "[email protected]" 'Destinatarios
parte2.Subject = "asunto" '"Asunto"
parte2.body = "cuerpo" '"Cuerpo del mensaje"
parte2.Attachments.Add wpath & nombre & ".xls"
'parte2.display 'El correo se muestra
parte2.send
End SubSaludos.Dam
Si es lo que necesitas.
Muchas gracias,eso era lo que buscaba!!!!!!!.
Me surge una duda,la macro esta configurada para enviar por correo a un destinatario,como puedo hacer para colocar CC Y CCO del correo a otra persona con la misma macro.
Gracias.
Luis Hernández.
