¿Cómo convertir un rango de Excel a HTML para usarlo como cuerpo del correo?

Convertir un rango de Excel a HTML para usarlo como cuerpo de un correo electrónico implica algunos pasos, que básicamente transforman el contenido del Excel en formato HTML que los clientes de correo pueden interpretar. Aquí te dejo un método utilizando Excel y un poco de VBA:

Sub RangoAHtml()
    Dim objRange As Range
    Dim strHTML As String

    ' Selecciona el rango deseado (ajusta el rango según tus necesidades)
    Set objRange = ThisWorkbook.Sheets("Hoja1").Range("A1:C5") ' Cambia "Hoja1" y el rango según corresponda

    ' Convierte el rango a HTML
    strHTML = RangetoHTML(objRange)

    ' Muestra el HTML generado en un cuadro de mensaje (opcional)
    MsgBox strHTML

    ' También puedes copiar el HTML al portapapeles para pegarlo directamente en un correo
    Dim DataObj As Object
    Set DataObj = CreateObject("MSForms.DataObject")
    DataObj.SetText strHTML
    DataObj.PutInClipboard
End Sub

Function RangetoHTML(rng As Range)
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    ' Crea un archivo temporal
    TempFile = Environ$("temp") & "" & Format(Now