Voreingestellter Netzwerkpfad funktioniert nicht
24.02.2006 09:54:50
Christiane
ich mach jetzt schon über eine Woche dran herum und bekomm es einfach nicht hin. Ich bräuchte bitte bitte die Hilfe eines Fachmanns.
Also..... Ich möchte ein einzelnes Blatt aus einer Arbeitsmappe per Mail versenden. Vorher sollte es dieses Blatt aber im Netzwerk unter einem voreingestellten Pfad sichern.
Ich habe nachfolgenden Code erst mal zu Hause auf dem Laptop probiert, der Netzwerkpfad war da halt mein USB-Stick. Da hat das alles auch wunderbar funktioniert.
Jetzt im Büro (natürlich mit abändern des Laufwerksbuchstaben)geht es nicht mehr.
Woran kann das denn liegen? Hat das evtl. damit zu tun, das nur 3 Leute auf den Ordner "Rechnungen" im Netz zugreifen können? Alle 3 (mich eingeschlossen) haben aber alle Zugriffsrechte. Vielleicht liegt mein Fehler ja auch im Code? Wäre schön wenn jemand Rat wüßte.
Hier der Code:
Sub Blatt_senden()
On Error GoTo Terminator
Application.ScreenUpdating = False
Dim shtName As String
shtName = ActiveSheet.Name
Sheets("Rechnung").Copy
Const Pfad As String = "G:\Arbeitsdaten\Rechnungen\"
ChDir Pfad
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename("Copy of " & _
ThisWorkbook.Name, "Microsoft Excel-Arbeitsmappe, *.xls")
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSendMail).Show
With ActiveWorkbook
.ChangeFileAccess xlReadOnly
.Close False
End With
Terminator:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub