kopieren-speicher-ablegen
Fatih
mit dem unten stehenden Code soll eine einzige Tabelle kopiert und auf dem Desktop abgespeichert werden.
Nur das Problem ist, einmal funktioniert es und einmal funktioniert es nicht.
Bekomme immer die Meldung : Laufzeitfehler 1004
die copy-methode des worksheet-objektes konnte nicht ausgeführt werden
was kann ich denn da machen? habt ihr vielleicht eine idee?
Vielen Dank im Voraus
lg fatih
Sub Bild8_BeiKlick()
Application.ScreenUpdating = True
Dim strToReceiver As String
Dim strSubject As String
Dim strBody As String
Dim wbMail As Workbook, strAttachment As String, strPfad As String
'Blatt Daten kopieren und als Datei speichern
With ActiveWorkbook
strPfad = .Path
.Worksheets("Daten").Copy 'HIER BLEIBT ER IMMER HÄNGEN
End With
Set wbMail = ActiveWorkbook
With wbMail
'Dokumenteigenschaften setzen
.BuiltinDocumentProperties("Title") = "Blatt Daten, Stand: " & Date
.BuiltinDocumentProperties("Subject") = "Helvetia Action Tracking"
'Dokument im Excel 2003-Format speichern
.SaveAs Filename:=strPfad & Application.PathSeparator _
& "ActionTrackingTabelle " & Format(Date, "YYYY-MM-DD"), FileFormat:=xlExcel7
strAttachment = .FullName
.Close
End With
'Mailprogramm aufrufen
strToReceiver = "vpmonitoring@helvetia.at"
strSubject = "Helvetia Action Tracking"
Call ShellExecute(0&, "Open", "mailto:" & strToReceiver _
& "?Subject=" & strSubject, "", "", 1)
Call ShellExecute(0&, "Open", "mailto:" & strToReceiver _
& "?Subject=" & strSubject & "?Attachment=" & strAttachment, "", "", 1)
Application.ScreenUpdating = False