Laufzeitfehler
28.02.2017 18:41:15
Thomas
Ich speichere eine Datei und möchte im Anschluss das Laufwerk U: wieder trennen.
Das Speichern klappt, Datei ist vorhanden.
Jedoch beim trennen vom Laufwerk bekomme ich einen Laufzeitfehler bzw. folgende
Fehlermeldung:
Laufzeitfehler '-2147022495 (80070961)'
Es warten noch offene Dateien oder Anwendungen auf diese Netzwerkverbindung.
hier mal der Code zum Speichern und Trennen:
Private Sub Blattspeichern_Click()
Dim a As String
a = Range("Tabelle2!C3").Value
b = Range("Tabelle2!C28").Value
Application.DisplayAlerts = False
ChDir "U:\Test\"
ActiveWorkbook.SaveAs Filename:= _
"U:\Test\" + a + "_" + b, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Popup "Die Datei wurde erfolgreich auf dem Laufwerk gespeichert", 2, "Info"
Set objShell = Nothing
Dim objNetzwerk As Object
Set objNetzwerk = CreateObject("WScript.Network")
objNetzwerk.RemoveNetworkDrive "U:"
Set objNetzwerk = Nothing
MsgBox "Die Verbindung zum Server wurde wieder getrennt!", vbInformation, "Info"
Application.Quit
End Sub
Anzeige