Unzipper Fehler
13.09.2021 15:54:12
Steffen
in meinem Excel zuhause funktioniert alles tadelos (benutze dort 2019) auf der Arbeit nutze ich allerdings 2013 und hier bekomme ich eine Fehlermeldung:
Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt
Sub unzipper()
Application.DisplayAlerts = False
Dim localZipFile As Variant, destFolder As Variant
Dim Sh As Object
test = Sheets("Tabelle2").Range("A2").Value
test2 = Sheets("Tabelle2").Range("A5").Value
localZipFile = test
destFolder = test2
Set Sh = CreateObject("Shell.Application")
With Sh
.Namespace(destFolder).CopyHere .Namespace(localZipFile).items
End With
Kill test
Application.Quit
End Sub
Viele Grüße
Steffen
Anzeige