Excel-Tabelle in Email einfügen

Mit Word als Maileditor haben Sie auch bei E-Mails vollen Zugriff auf das umfangreiche Word-Objektmodell. Damit wird es z.B. möglich, formatierte Tabellen aus Excel in eine HTML-E-Mail zu kopieren.

Das Beispiel geht davon aus, dass die E-Mail und Arbeitsmappe bereits geöffnet sind und kopiert den Bereich von B2 bis C6 in die E-Mail - inklusive aller Formatierungen.

Damit die Deklaration der Variablen so möglich ist, fügen Sie dem Projekt bitte Verweise auf die Word- und Excel-Bibliotheken hinzu (in VBA über Extras/Verweise).

  So fügen Sie Makros in Outlook ein

Sub PasteFormattedTable()
  Dim Doc As Word.Document
  Dim wdRn As Word.Range
  Dim Xl As Excel.Application
  Dim Ws As Excel.Worksheet
  Dim xlRn As Excel.Range

  Set Doc = Application.ActiveInspector.WordEditor
  Set wdRn = Doc.Range

  Set Xl = GetObject(, "Excel.Application")
  Set Ws = Xl.Workbooks("Mappe1.xls").Worksheets(1)

  Set xlRn = Ws.Range("b2", "c6")
  xlRn.Copy

  wdRn.Paste
End Sub