Pfadpeicherung umgehen
24.10.2013 12:38:21
Heinz
Im unteren Code wird aus einer Datei eine Kopie gespeichert und in Outlook versendet.
Nur wird diese Datei an mehreren PC's verwendet.
Natürlich bekomme ich dann bei, strPath = eine Fehlermeldung.
Kann man dies nicht umschreiben,damit man auf jeden PC die Datei verwenden kann?
Danke,Heinz
Option Explicit
Sub BlattKopierenUndVersenden()
'aktives Tabellenblatt als Arbeitsmappe
'im Ordner Eigene Dateien speichern, als
'Anlage mit Outlook versenden und anschließend löschen
Dim strPath As String
Dim strName As String
Dim strFile As String
'strPath = "C:\Desktop\" 'Pfad
strPath = "C:\Users\Hoh230\Desktop\Sonstiges\"
strName = ActiveSheet.Name 'Tabellenname
strFile = strPath & strName & ".xlsx"
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveSheet.DrawingObjects.Delete ' Button löschen
With ActiveWorkbook
.SaveAs strFile
Senden strFile 'Datei versenden
.Close
End With
Kill strFile 'Datei löschen
Application.ScreenUpdating = True
End Sub
Anzeige