Con el procedimiento que adjunto guardo el libro en una ruta temporal con la hoja activa, después copio esa ruta en un textbox que tengo en un formulario e envío el mail.
Hasta aquí todo bien.
La consulta es si es factible que se guarde todo el libro con " todas las hojas que tenga".
Saludos y muchas gracias como siempre por su colaboración.
Sub adjuntarLibro()
Dim RutaTemporal As String, vArchivo As Workbook, vArchivoTemp As String
Application.ScreenUpdating = False
With ActiveWorkbook
.ActiveSheet.Copy
End With
Set vArchivo = ActiveWorkbook
vArchivoTemp = vbNullString
RutaTemporal = Environ$("temp") & "\"
vArchivoTemp = "LIBRO" & Format(Now, "hh-mm-ss")
Application.DisplayAlerts = False
vArchivo.SaveAs RutaTemporal & vArchivoTemp & ".xlsx"
NombreArchivo = RutaTemporal & vArchivoTemp & ".xlsx"
MiMail.txtAdjunto=NombreArchivo
vArchivo.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos;
Con el procedimiento que adjunto guardo el libro en una ruta temporal con la hoja activa, después copio esa ruta en un textbox que tengo en un formulario e envío el mail.
Hasta aquí todo bien.
La consulta es si es factible que se guarde todo el libro con " todas las hojas que tenga".
Saludos y muchas gracias como siempre por su colaboración.
Sub adjuntarLibro() Dim RutaTemporal As String, vArchivo As Workbook, vArchivoTemp As String Application.ScreenUpdating = False With ActiveWorkbook .ActiveSheet.Copy End With Set vArchivo = ActiveWorkbook vArchivoTemp = vbNullString RutaTemporal = Environ$("temp") & "\" vArchivoTemp = "LIBRO" & Format(Now, "hh-mm-ss") Application.DisplayAlerts = False vArchivo.SaveAs RutaTemporal & vArchivoTemp & ".xlsx" NombreArchivo = RutaTemporal & vArchivoTemp & ".xlsx" MiMail.txtAdjunto=NombreArchivo vArchivo.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub