vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 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.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zip Datei im Netzwerk entpacken oder auslesen2.679MatiFam12.08.14 17:53
Re: Zip Datei im Netzwerk entpacken oder auslesen1.504Kuno6013.08.14 13:19
Re: Zip Datei im Netzwerk entpacken oder auslesen1.460MatiFam13.08.14 14:31
Re: Zip Datei im Netzwerk entpacken oder auslesen1.485effeff20.08.14 14:28

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