Office: Einzelnes Arbeitsblatt per Email mit Excel 2007

Dieser Code macht mich noch verrückt! :evil:

Gleich vorweg, der Code an sich funktioniert :mrgreen: , ABER das Arbeitsblatt, welches ich dann durch den Code mit Excel 2007 erstelle, ist dann offensichtlich kein .xls Format.

Beim öffnen mit Excel 2003 kommt die Meldung: "Das Format der Datei konnte nicht erkannt werden." mit 2007 kommt die Meldung: Eine Datei hat ein anderes Dateiformat als die Erweiterung vermuten lässt." .

Mit 2007 kann ich das Arbeitsblatt trotzdem sehen mit 2003 nicht, hier sehe ich nur wilde Zeichen! :evil:

Ich versuche nun schon den ganzen lieben langen Tag den Fehler zu finden und bin momentan ziemlich ratlos!

Ach ja, wenn ich den Code mit Excel 2003 ausführe, funktioniert es.

Ob von Euch mal jemand einen Tipp abgeben könnte? :mrgreen:

Code:

Sub Arbeitsblatt_Email()

Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim EMailan As String
Dim strName As String

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)

'Set Bezeichnung
Bezeichnung = ActiveSheet.Name

'Set EMailan
EMailan = "meine.emailadresse@bei.???de"

'Set strName
strName = ActiveWorkbook.Path & "\" & Bezeichnung & " vom " _
& Format(Date, "DD.MM.YYYY") & ".xls"

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets(Bezeichnung).Copy
ActiveSheet.Name = Bezeichnung
ActiveWorkbook.SaveAs strName
Application.DisplayAlerts = True

With objMail
  .To = EMailan
  .Subject = Bezeichnung
  .Body = "Testeintrag"
  .Attachments.Add ActiveWorkbook.FullName
  .Display ' Display für Indirektversand oder .Send für Direktversand
End With

ActiveWorkbook.Close
Kill (strName)

' Meldung:
MsgBox ("Beleg wurde erfolgreich versendet.")

Application.Goto ActiveSheet.Range("B10")
Application.ScreenUpdating = True

End Sub

Nachfolgender Code funktioniert sowohl mit Excel 2003 als auch mit 2007, ABER hier kann ich z.B. der zu versendenden Arbeitsmappe keinen Namen vergeben, die heißt immer Mappe*.xls und ich habe auch sonst keinen Zugriff auf die Email vor dem senden. :evil:

Code:

Sub Active_Sheet_senden()
Dim sheetName As String
Dim EMailan As String
EMailan = InputBox("Bitte geben Sie einen Emailempfänger für den Beleg ein.")
If EMailan = "" Then Exit Sub

sheetName = ActiveSheet.Name

ActiveSheet.Copy
ActiveWorkbook.SendMail EMailan, sheetName
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Application.Goto ActiveSheet.Range("B10")
Application.ScreenUpdating = True

End Sub

 

Ich hab nur Excel 2000, aber ich hätte vielleicht einen Verdacht: Vielleicht ist es einfach nur ein kleines Timing-Problem?

Du kopierst das Blatt in eine neue Mappe, gibst der einen Speichernamen und versendest sie dann. Ev. gibt es Probleme, die Datei zu verschicken, weil sie noch offen und womöglich gerade im Speicher-Vorgang ist?

Setz mal das .close direkt hinter das .saveas, das könnte dann vielleicht schon helfen.

2. Idee: Kommentier zum Test mal das kill aus, um ein Löschen der Datei zu verhindern, während es vielleicht gerade in die Mail verpackt wird.

Gruß, Michael

PS: Warum schaltest Du ScreenUpdating und DisplayAlerts aus?

 

Hallo miriki,

hat leider nicht geholfen. Das Ergebnis bleibt gleich.

DisplayAlerts schalte ich aus um keine Meldungen angezeigt zu bekommen und mit ScreenUpdating verhindere ich die Aktualisierung des Bildschirms und erhöhe dadurch die Geschwindkeit des Markros.

 

Hm, schade... Denn ansonsten ist Dein Makro fast das gleiche, was ich für einen Massen-Versand über Lotus-Notes benutze. Ok, ich hab es mit SET-Variablen etwas aufgeplustert, aber der Ablauf ist eigentlich der gleiche.

Ist schon klar, was es bewirkt, aber das "warum" ist damit nicht beantwortet. Welche Alerts unterdrückst du denn?

Es dürften in dem Code eigentlich gar keine auftreten. Und wenn, wäre es eher fatal, diese zu unterdrücken. Beim .close wäre dann z.B. ein savechanges:=true als Parameter angesagt.

Und den Bildschirm nicht zu aktualisieren bringt in dem Code auch nicht viel, weil die "langsame" Abarbeitung eh die über das Filesystem und Outlook ist. Da macht der Refresh des Bildschirms keinen Unterschied mehr. Es erschwert aber das Aufspüren von Problemstellen.

Gruß, Michael

 

Leider kommt mit Excel 2007 direkt nach "ActiveWorkbook.SaveAs strName" die Meldung :" Einige Features können in Arbeitsmappen ohne Makros nicht gespeichert werden: VB Projekt.

Deshalb unterdrücke ich mit DisplayAlerts diese Meldung.

Wenn ich das gleiche mit Excel 2003 laufen lassen, unterbleibt diese Meldung. Kann es was mit den Einstellungen für die Makros zu tun haben?

Den Code für ScreenUpdating habe ich herausgenommen. Danke! :-)

 

Mit *.xlsx hatte ich es auch schon probiert, aber leider auch hier die gleiche Meldung.

ABER dies hier funktioniert tatsächlich:
ActiveWorkbook.SaveAs strName, xlAddIn8

Leider aber nur mit 2007, hier ist die Meldung weg. In 2003 kommt dafür die Fehlermeldung: Laufzeitfehler '1004'

Wir (ich) habe(n) die Probleme jetzt sozusagen getauscht! :mrgreen:

Ein Möglichkeit wäre vieleicht ein kleine Abfrage hinsichtlich der Excel-Version.
Bei Ausführung unter Excel 2007
ActiveWorkbook.SaveAs strName, xlAddIn8

Bei Excel 2003 dann
ActiveWorkbook.SaveAs strName

Hast Du eine Idee wie ich das mit Code sauber lösen kann?

 

??? Häh? Als Add-In speichern? Das macht doch irgendwie auch keinen Sinn...

Wenn ich "saveas" im VBA-Editor eintippe und F1 drücke, erhalte ich die Hilfe für "saveas". Beim 2. Parameter gibt es den Link auf "FileFormat", wo ich eine Auflistung der Formate finden kann.
In Excel 2000 gibt es dort u.a. die Konstanten von xlExcel2 bis xlExcel7. Excel 2000 ist, wenn ich mich nicht irre, Version 9, die hier nicht mehr aufgelistet ist. Die müßtest Du aber im 2007er dann finden. Versuch doch mal im 2003er-Format (10?) abzuspeichern, das müßten dann ja beide Versionen problemlos einlesen können.

Problematisch nur, wenn Du in der Mappe spezielle Funktionen der 2007 benutzt, denn diese würden dann beim Speichern verloren gehen. Aber daß 2003 von Haus aus erstmal das 2007er-Format nicht lesen kann, ist verständlich. Wenn Du also im 2007er-Format abspeichern mußt, ist 2003 ab dann eh außen vor...

Gruß, Michael

 

Tja, scheint irgendwie seltsam, zumindest mal für mich! :mrgreen:

Habe jetzt nachfolgenden Code eingefügt:

If Application.Version = "12.0" Then
ActiveWorkbook.SaveAs strName, xlAddIn8
Else
ActiveWorkbook.SaveAs strName
End If

Funktioniert sowohl mit 2007 als auch mit 2003. Immer schon mal etwas.

Die Hilfe sagt als XlFileFormat-Enumeration für Excel 97-2003: xlAddIn8

Dass ganze Problem entsteht eigentlich dadurch, dass ich alles mit Excel 2007 entwerfe, den Code auf 2007 und auf 2003 teste, aber die Anwender noch mit 2003 arbeiten.