|
Servus zusammen,
aktuell versuche ich per VBA eine .zip-Datei in ein Netzwerklaufwerk zu entpacken und im Anschluss alle .xls-Dateien auszulesen. Zum Entpacken habe ich die Shell-Funktion verwendet, die bei einem Test auf meinem internen Laufwerk C:\ auch gezeigt hat, dass sie funktioniert:
strProgramm = "C:\Program Files\7-Zip\7z.exe"
strArchiv = "C:\Users\XXXXXXXX\Desktop\Globalportfolio.zip"
strOrdner = "C:\Users\XXXXXXXX\Desktop\Globalportfolien"
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
Die Excel-Datei, die das obige Makro enthält, liegt auch auf dem Desktop.
Nun würde gerne die Pfade auf Netzwerkadressen ändern. Lediglich 7z.exe bleibt weiterhin auf C:\, da das Programm nicht im Netzwerk installiert ist:
strProgramm = "C:\Program Files\7-Zip\7z.exe"
strArchiv = "G:\Fonds\FTP Upload\Test2\Globalportfolio.zip"
strOrdner = "G:\Fonds\FTP Upload\Test2\Globalportfolien"
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
Die Excel-Datei mit dem Makro liegt dann auch auf G:\Fonds\FTP Upload\Test2\.
Leider klappt der zweite Quellcode nicht. Habt ihr eine Ahnung wie es funktionieren könnte?
Beste Grüße
Mathias
|