VBA Excel: Wie öffnet man eine MSG-Datei in einem Programm

Wenn Sie mit Microsoft Excel arbeiten und eine Datei mit der Erweiterung MSG erhalten haben, müssen Sie sie wahrscheinlich in einem Programm öffnen. Dateien mit der Erweiterung MSG enthalten normalerweise E-Mails, die in Outlook erstellt wurden, und das Öffnen in Excel kann eine schwierige Aufgabe sein. Mit VBA (Visual Basic for Applications) können Sie jedoch problemlos eine MSG-Datei öffnen und auf ihren Inhalt zugreifen. In diesem Artikel werden wir Ihnen erklären, wie Sie dies tun können.

Um eine MSG-Datei mit VBA in Excel zu öffnen, benötigen Sie Code. Beginnen wir mit dem Erstellen eines neuen VBA-Moduls in Excel. Klicken Sie in der Excel-Werkzeugleiste auf die Registerkarte Entwickler, und klicken Sie dann auf die Schaltfläche Visual Basic, oder verwenden Sie die Tastenkombination Alt+F11. Wählen Sie im geöffneten Visual Basic-Editor-Fenster im Menü Einfügen und dann Modul aus.

Fügen Sie nun den folgenden Code in das neue Modul ein:

Sub OpenMsgFile()

Dim objOL As Outlook.Application

Dim objMsg As Outlook.MailItem

Dimmen Sie objExcel als Excel.Anwendung

Dimmen Sie objWorkbook als Excel.Arbeitsmappe

Dimmen Sie strFolderPath als Zeichenfolge

Открываем файл NACHRICHT

Setze objOL = CreateObject("Outlook.Anwendung")

Setze objMsg = objOL.Sitzung.OpenSharedItem("C:\Path\To\Your\File .NACHRICHT")

' Получаем содержимое файла NACHRICHT

strFolderPath = "C:\Path\To\Output\Folder \"

Setze objExcel = CreateObject("Excel.Anwendung")

Setze objWorkbook = objExcel.Arbeitsmappe.Hinzufügen

objWorkbook.Blätter(1).Bereich ("A1").Wert = objMsg.Thema

objWorkbook.Blätter(1).Bereich ("A2").Wert = objMsg.Absender-E-Mail-Adresse

objWorkbook.Blätter(1).Bereich ("A3").Wert = objMsg.Körper

' Сохраняем результаты в новом файле Excel

objWorkbook.Speichernals strFolderPath & "Ausgabedatei.xlsx"

' Закрываем все объекты

objWorkbook.Schließen Sie SaveChanges:=True

Setze objMsg = Nichts

Setze objOL = Nichts

Setze objExcel = Nichts

Setze objWorkbook = Nichts

End Sub

Statt "C:\Path\To\Your\File .MSG" Geben Sie den Pfad zur MSG-Datei an, die Sie öffnen möchten. Und statt "C:\Path\To\Output\Folder \" Geben Sie den Pfad zu dem Ordner an, in dem Sie das Ergebnis speichern möchten. Führen Sie das Makro durch Drücken von F5 aus, und Excel öffnet die MSG-Datei und extrahiert Daten wie den Betreff der E-Mail, die Absenderadresse und den Nachrichtentext. Diese Daten werden dann in einer neuen Excel-Datei mit dem Namen "outputFile" gespeichert.xlsx".

Warum und wann sollte ich die MSG-Datei in VBA Excel öffnen?

• Automatisieren der E-Mail-Verarbeitung. MSG-Dateien können wichtige Informationen wie Nachrichtentext, Anhänge und Metadaten enthalten. Wenn Sie MSG-Dateien in VBA Excel öffnen, können Sie Daten aus E-Mails extrahieren und sie in Ihren Makros und Skripten verwenden.
• Analyse von E-Mail-Daten. Wenn Sie MSG-Dateien in VBA Excel öffnen, können Sie den Inhalt von E-Mails untersuchen und verschiedene Analysevorgänge durchführen. Sie können beispielsweise Nachrichtenthemen, Kategorien, Absender und andere Merkmale analysieren, um Statistiken zu erhalten oder bestimmte Muster zu identifizieren.
• Importieren von Daten aus E-Mails. Durch das Öffnen von MSG-Dateien in VBA Excel können Sie den Inhalt von E-Mails in ein Tabellenformat importieren, das leicht verarbeitet und später verwendet werden kann. Dies kann für die automatische Verarbeitung und Analyse von E-Mail-empfangenen Daten nützlich sein.

Öffnen Sie MSG-Dateien in VBA Excel, wenn Sie die Verarbeitung oder Analyse von E-Mail-Daten automatisieren und Daten aus E-Mails in Excel-Tabellen importieren möchten. Dies ist eine bequeme Möglichkeit, E-Mail-Daten in Ihren VBA-Excel-Projekten zu verwenden.

Es ist einfach und effektiv

Das Öffnen einer MSG-Datei in VBA Excel erweist sich als eine einfache und effektive Aufgabe. Dank der Benutzerfreundlichkeit und Leistung von VBA können Sie den Inhalt einer MSG-Datei einfach in Ihre Excel-Tabelle importieren, um die Daten weiter zu analysieren.

Zunächst benötigen Sie einen kleinen VBA-Code, mit dem Sie Ihre MSG-Datei öffnen und die erforderlichen Daten extrahieren können. Mit der Funktion "CreateObject" können Sie ein Outlook-Objekt erstellen.Application", mit dem Sie mit Outlook-E-Mails interagieren können. Sie können dann die Methode "GetNamespace" verwenden, um auf den gewünschten Postfachordner zuzugreifen.

Der nächste Schritt besteht darin, die Datei MSG zu öffnen. Verwenden Sie die Methode "OpenSharedItem", um den Pfad zur MSG-Datei zu übergeben. Danach können Sie auf MSG-Inhalte wie Absender, Empfänger, Betreff, Nachrichtentext und alle Anhänge zugreifen.

Um die gewünschten Daten in eine Excel-Tabelle zu importieren, erstellen Sie ein neues Arbeitsblatt in einer Excel-Arbeitsmappe und verwenden Sie die Methoden des Range-Objekts, um die Daten in die gewünschten Zellen zu platzieren. Sie können Schleifen und bedingte Operatoren verwenden, um die Daten weiter zu verarbeiten oder zu sortieren.

Wenn Sie die Daten importiert haben, vergessen Sie nicht, die MSG-Datei zu schließen und alle vom Outlook- und Excel-Objekt verwendeten Ressourcen freizugeben.

Hier ist ein Beispiel für einfachen VBA-Code, mit dem Sie eine MSG-Datei öffnen und die Daten in Excel importieren können:

Sub ImportMSG()Dim objOutlook As ObjectDim objNamespace As ObjectDim objMail As ObjectDim strMSGFile As StringDim ws As Worksheet' Путь к файлу MSGstrMSGFile = "путь_к_файлу.msg"' Создание объекта OutlookSet objOutlook = CreateObject("Outlook.Application")' Получение доступа к папке почтового ящикаSet objNamespace = objOutlook.GetNamespace("MAPI")' Открытие файла MSGSet objMail = objOutlook.OpenSharedItem(strMSGFile)' Создание нового листа в ExcelSet ws = ThisWorkbook.Sheets.Add' Размещение данных в таблице Excelws.Cells(1, 1).Value = "Отправитель"ws.Cells(1, 2).Value = "Тема"ws.Cells(1, 3).Value = "Текст"ws.Cells(2, 1).Value = objMail.SenderEmailAddressws.Cells(2, 2).Value = objMail.Subjectws.Cells(2, 3).Value = objMail.Body' Закрытие файла MSGobjMail.Close olDiscard' Освобождение ресурсовSet objMail = NothingSet objNamespace = NothingSet objOutlook = NothingEnd Sub

Nach diesem Beispiel können Sie eine MSG-Datei einfach und effizient in VBA Excel öffnen und importieren. Sie müssen nur den Code an Ihre Bedürfnisse anpassen und bei Bedarf zusätzliche Funktionen hinzufügen.