vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Zip Datei im Netzwerk entpacken oder auslesen 
Autor: MatiFam
Datum: 12.08.14 17:53
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\Globalportfolio"
  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\Testphase\Globalportfolio.zip"
  strOrdner = "G:\Fonds\FTP Upload\Testphase\Globalportfolio"
  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\Testphase.


Leider klappt der zweite Quellcode nicht. Habt ihr eine Ahnung wie es funktionieren könnte?


Beste Grüße
Mathias

Beitrag wurde zuletzt am 12.08.14 um 17:57:21 editiert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Zip Datei im Netzwerk entpacken oder auslesen 
Autor: Kuno60
Datum: 13.08.14 13:19
Hallo,

ich hab zwar keine Ahnung von VBA, aber das Entzippen auf einem Netzlaufwerk sollte eigentlich funktionieren.
Ich denke das Makro sollte sich auf dem eigenen Rechner befinden, dann müsste es gehen.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Zip Datei im Netzwerk entpacken oder auslesen 
Autor: MatiFam
Datum: 13.08.14 14:31
Klingt komisch, aber das Problem liegt darin, dass VBA (oder auch 7zip) keine Leerzeichen in Verzeichnisse möchte. Nachdem ich "FTP Upload" zu "FTPUpload" geändert habe, hat alles funktioniert.

Hab trotzdem vielen Dank, Kuno.

Mathias
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Zip Datei im Netzwerk entpacken oder auslesen 
Autor: effeff
Datum: 20.08.14 14:28
Shell CHR(34) & strProgramm & CHR(34) & " x " & CHR(34) & strArchiv & CHR(34) & _
  " -o" & CHR(34) & strOrdner & CHR(34), vbNormalFocus

EALA FREYA FRESENA

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel