Ich möchte ein Zip Datei entpacken, diese liegt im selben Ordner, es funktioniert alles Tadelos, da die Zip aber auf mehreren Computern laufen soll also die Excel Datei möchte ich den Pfad hierzu vereinfacht darstellen, also das Excel schon gleich weiß "Die Zip befindet sich im selben Ordner wohin der Pfad führen soll"
Hier mein bisheriger Code:
Sub entpackmich()
Zipdatei = Sheets("Tabelle2").Range("A2").Value
Programmpfad = Sheets("Tabelle2").Range("A5").Value
Set Sh = CreateObject("shell.application")
Set zip = Sh.Namespace(Zipdatei)
Set unzip = Sh.Namespace(Programmpfad)
unzip.copyhere zip.items
Kill Zipdatei
Application.Quit
End Sub
Also Zipdatei und Programmpfad soll den selben Ordner ansteuern, ich habe bereits versucht ThisWorkbook.Path aber bisher ohne Erfolg leider, weiß jemand eine fixe Lösung?