Ich möchte das eine .ZIP Datei die Excel Dateien beinhaltet diese automatisch im selben Order ablegt wo bereits die Dateien sind, mein Problem ist das Excel ja diese Dateien nicht ersetzt wenn sie noch geöffnet sind (richtig?)
Die Dateien in der ZIP müssen identisch bleiben vom Namen her
Bisher bin ich soweit mit dem UNZIP:
Private Sub CommandButton16_Click()
strProgramm = "C:\Program Files\7-Zip\7z.exe"
strArchiv = "C:\Download\Master.zip"
strOrdner = "C:\Users\ACT Motor 4\Desktop\B&O Master"
Set fso = CreateObject("Scripting.FileSystemObject")
strProgramm = fso.GetFile(strProgramm).ShortPath
strArchiv = fso.GetFile(strArchiv).ShortPath
strOrdner = fso.GetFolder(strOrdner).ShortPath
Shell strProgramm & " x " & strArchiv & " -o" & strOrdner, vbNormalFocus
End Sub
Hat jemand eine Idee vielleicht? LG Steffen