Que tal foro; buen dia.
Acudo a su sabiduria, me estoy adentrando en el mundo de las macros, soy bastante nuevo en esto y he intentado "armar" una macro modificandola para mis necesidades especificas.
Navegando encontre esta Macro:
Option Explicit
'
Sub EviarHojaEmail()
'
Dim NombreArchivo As String
Dim RutaTemporal As String
Dim Mensaje As String
'
On Error Resume Next
'
Mensaje = "Estás a punto de enviar la hoja activa por email. Ingresa el nombre con que se enviará el archivo o deja en blanco para que el archivo tenga el nombre de la hoja."
NombreArchivo = InputBox(Mensaje, "Centro de C")
'
If NombreArchivo = "" Then NombreArchivo = ActiveSheet.Name
'
RutaTemporal = Environ("temp") & "\"
NombreArchivo = RutaTemporal & NombreArchivo & ".xlsx"
ActiveWorkbook.ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs NombreArchivo
Application.DisplayAlerts = True
CommandBars.ExecuteMso ("FileSendAsAttachment")
ActiveWorkbook.Close False
Kill NombreArchivo
'
On Error GoTo 0
'
End Sub
Adjunto | Tamaño |
---|---|
![]() | 19.27 KB |