1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel per Makro aus Outlook

Discussion in 'Office-Programme' started by qutx, Nov 18, 2008.

Thread Status:
Not open for further replies.
  1. qutx

    qutx Byte

    Hallo, ich möchte Statistische Daten der E-Maileingänge per Makro verarbeiten und in Excel darstellen.

    Dazu versuche ich nun per Outlook-Makro ein neues Spreadsheet zu erstellen und die ausgelesenen Daten dort einzutragen.

    Mein Code dazu sieht folgendermaßen aus:

    Dim xlsApp As Excel.Application
    Set xlsApp = CreateObject("Excel.Application")
    Dim xlsWB As Excel.Workbook
    Set xlsWB = xlsApp.ActiveWorkbook
    Dim xlsSheet As Excel.Worksheet
    Set xlsSheet = xlsWB.ActiveSheet

    Leider bricht es immer mit Runtime-Error 91 an der letzten Zeile ab... Was mache ich falsch?

    Danke und Gruss, qutx
     
    qutx, Nov 18, 2008
    #1
  2. Urs2

    Urs2 Megabyte

    Outlook-VBA kennt die Interna von Excel nicht, es leitet nur Befehle an Excel weiter. Versuche es einmal so >>>

    Dim xlsApp As Application
    Dim xlsWB As Object
    Dim xlsSheet As Object

    Set xlsApp = CreateObject("Excel.Application")
    Set xlsWB = xlsApp.ActiveWorkbook
    Set xlsSheet = xlsWB.ActiveSheet

    ...und jetzt der eigentliche Code...

    Gruss Urs
     
    Last edited: Nov 19, 2008
    Urs2, Nov 19, 2008
    #2
  3. qutx

    qutx Byte

    Danke,hab den Fehler gefunden.
    habe ein
    With xlsApp
    .Visible = True
    .Workbooks.Add
    End With
    hinter die entsprechende Set Anweisung eingebaut...


    Gruss, qutx
     
    qutx, Nov 19, 2008
    #3
Thread Status:
Not open for further replies.

Share This Page