Hola amigos, tengo una duda, como puedo con una macro enviar por correo un excel que ya genero?? He estado los ultimos dias buscando e intentando varias cosas pero ninguna con exito hasta ahora...
Aqui mi codigo para exportar a Excel:
Sub ExportAllDataExcel
set XLApp = CreateObject("Excel.Application")
XLApp.Visible = True 'Visible set as true
set XLDoc = XLApp.Workbooks.Add
''''''''''''''''''''''''''''''''''''
set XLSheet = XLDoc.Worksheets(1)
ActiveDocument.Sheets("Principal").Activate
set table1 = ActiveDocument.GetSheetObject("TB03")
table1.CopyTableToClipboard true
XLSheet.Paste XLSheet.Range("A1")
XLSheet.Name = "DTXT"
set Selection = XLDoc.Sheets(1).Columns("A:Q")
With Selection
.Borders.ColorIndex = 0
.EntireRow.RowHeight = 12.75
.AutoFit
End With
End Sub
