HERBERS Excel-Forum - die Beispiele

Thema: Excel-Zellinhalte in Worddokument einlesen um per Email versenden

Home

Gruppe

Extern

Problem

Wie kann ich den Inhalt einer Excel-Tabelle in ein Worddokument einfügen und dieses automatisch per Email versenden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub SendMessage()
    Dim oWord As Object
    Dim oDoc As Object
    Dim oOL As Object
    Dim oOLMsg As Object
    Dim oOLRecip As Object
    Dim oOLAttach As Object
    Dim iRow As Integer
    Dim sFile As String
    sFile = Application.Path & "\test.doc"
    ThisWorkbook.Worksheets("Tabelle2").UsedRange.Copy
    Set oWord = CreateObject("Word.Application")
    Set oDoc = oWord.Documents.Add
    oDoc.Range.Paste
    oDoc.SaveAs sFile
    oWord.Quit
    Set oDoc = Nothing
    Set oWord = Nothing
    Set oOL = CreateObject("Outlook.Application")
    Set oOLMsg = oOL.CreateItem(0)
    With oOLMsg
        iRow = 1
         Do Until IsEmpty(Cells(iRow, 1))
             Set oOLRecip = .Recipients.Add(Cells(iRow, 1))
             oOLRecip.Type = 1
             iRow = iRow + 1
         Loop
         Set oOLAttach = .Attachments.Add(sFile)
        .Subject = Format(Date, "dd.mm.yy") & " - " & Format(Time, "hh:mm:ss")
        .Body = "Beiliegend der Excel-Text"
        .Importance = 1
        For Each oOLRecip In .Recipients
            oOLRecip.Resolve
        Next
        .Send
    End With
    Set oOL = Nothing
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Word

Verknüpfung Daten-Userform in Word-Dok aus excel Worddatei nach Wert durchsuchen
geöffnete Worddatei und Word aus Excel beenden ContentControl (WORD) in Excel Zelle schreiben
Excel to Word Kapitel VBA Problem bei Daten von Excel nach Word
Übernahme in Word Format wird nicht übernommen Excelpfad in Word-Makro in Excel-Tab auslesen
aus excel heraus Makro von Word ausführen aktierten Text in geöffnete Worddatei
Probleme beim Kopieren Word Tabelle nach Excel Hyperlink zu Wordtabelle mit Textmarke
Colorindex Excel-Word RGB-Werte Wordart als Kontrollkästchen
Dateiname externer Datei ändern Speichern unter Dialog in Word aufrufen inkl. Pfad
Tabellenblatt aus externer Exceldatei kopieren ConboBox mit externe Daten füllen
gutes WORD-Forum, Link? Probleme bei Serienbriefverknüpfung Word - Excel
Word-Dateien durchsuchen Daten aus Word auslesen
Wert in externer Datei suchen Werte von Excel nach Word übergeben
'Word Datei aus Excel öffnen - maximieren Aufruf externer Programme
Word-Dokument in Excel öffnen Word-Makro für Spaltenbreite
Prüfen, ob bestimmte Word-Datei geöffnet ist! Hyperlink von Excel zu Word
Externe Bezüge auslesen mit VBA Externe Verküpfung anpassen
Daten aus Word Formularfeld in Excel Variablen von Word nach Excel übergeben
Tipp für alle: Word FAQ von Rene Probst Textbox nach Word - Umbruch"kasten"
Datenübernahme in Word Von Excel aus Liste aller geöffneten Word-Dokument
WordDokument mit Excel-Daten füllen und drucken ?! Daten mit Userform nach WORD, wie?
Password-Fehler Pivot mit Externer DB am Limit?
In Word Datei an bestimmte Stelle springen! Exceldatei mit Fußnote in Word einfügen
Word Dokument erstellen Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden VBA: XL-Macro für Word ändern
On Error bei Öffnen von Word-Dokument Excel Hyperlinks auf Word-Bookmarks