Office: Inhalt einer ZIP-Datei mit AC2010 auslesen

Helfe beim Thema Inhalt einer ZIP-Datei mit AC2010 auslesen in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo, hat jemand eine Idee wie man den Inhalt einer ZIP-Datei mit Access 2010 auslesen kann, ohne diese zuvor zu entpacken. Das Auslesen eines... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von JoSch, 31. Januar 2015.

  1. JoSch User

    Inhalt einer ZIP-Datei mit AC2010 auslesen


    Hallo,
    hat jemand eine Idee wie man den Inhalt einer ZIP-Datei mit Access 2010 auslesen kann, ohne diese zuvor zu entpacken.

    Das Auslesen eines Ordners mittels VBA zeigt mir zwar den ZIP-Ordner selbst, aber nicht dessen Inhalt.

    Danke im Voraus und LG
    JoSch
     
    Zuletzt bearbeitet: 31. Januar 2015
  2. Exl121150 Erfahrener User
    Exl121150, 1. Februar 2015
    #2
  3. JoSch User
    Hallo Anton Exl,

    herzlichen Dank, der Hinweis hat mich ein Stück weitergebracht und der Beispielcode hat auf Anhieb funktioniert.
    Leider gibt es aber auch ZIP-Dateien, die Unterordner enthalten - deren Inhalt mit dem Beispielcode nicht erkannt wird.

    Nochmals vielen Dank
    und liebe Grüße
    JoSch
     
  4. Exl121150 Erfahrener User

    Inhalt einer ZIP-Datei mit AC2010 auslesen

    Hallo,

    um die Dateien eines Zip-Archivs (rekursiv) im Direktbereich aufzulisten, genügt eigentlich folgendes VBA-Programm:

    Code:
    Sub Zip_Listing()
    
      Dim ShS As Object  'New Shell32.Shell
      Dim ShF As Object  'Shell32.Folder
      
      Dim vDir As Variant
      Set ShS = CreateObject("Shell.Application")
      
      vDir = "I:\EXCEL\MAKRO\Baustein-Einträge_toExcel.docm.zip"    '<== Hier Pfad+ZipDatei eingeben.
      Set ShF = ShS.Namespace(vDir)
      PrintFolder 0, ShF
        
      Set ShS = Nothing
      
    End Sub
    Sub PrintFolder(ByVal Tb As Integer, ShF As Object) 'Shell32.Folder)
      
      Dim ShI As Object 'Shell32.FolderItem
      
      For Each ShI In ShF.Items
        Debug.Print Spc(Tb); ShI.Name; Tab(40);
        Debug.Print ShI.IsFolder,
        Debug.Print ShI.Type
        If ShI.IsFolder Then
          PrintFolder Tb+2, ShI.GetFolder
        End If
      Next ShI
      
    End Sub
    
    Du musst nur in der Zeile vDir = "C:\Pfad...\Datei.zip" natürlich einen gültigen Pfad eingeben zusammen mit einer Zip-Datei.

    So wie das Makro zur Zeit ist, setzt es die Late-Binding-Technik ein. Falls du jedoch auf Early-Binding umstellst, dann müssten alle Typ-Wörter "Object" durch die jeweils nachfolgenden Typen, die zur Zeit als Kommentare aufscheinen, ersetzt werden; weiters wäre dann die Zeile mit ...CreateObject... zu entfernen/auszukommentieren.
    Voraussetzung dafür ist natürlich, dass du die Shell32.dll als Programmbibliothek einbindest, indem du im
    VBA-Editor-Menü > Extras > Verweise...
    ins Dialogfenster für "Verweise-VBAProjekt" gehst und dort in der Liste "Verfügbare Verweise" in der Checkbox für "Microsoft Shell Controls and Automation" ein Häkchen setzst. Dann hast du auch bequemen Zugriff auf alle Objekte/Eigenschaften/Methoden der Shell32-Bibliothek.
     
    Zuletzt bearbeitet: 2. Februar 2015
    Exl121150, 2. Februar 2015
    #4
  5. JoSch User
    Hallo,
    genau das ist es, was ich gesucht habe.
    Vielen Dank für die Mühe zu später Abendstunde.

    Liebe Grüße
    JoSch
     
Thema:

Inhalt einer ZIP-Datei mit AC2010 auslesen

Die Seite wird geladen...
  1. Inhalt einer ZIP-Datei mit AC2010 auslesen - Similar Threads - Inhalt ZIP Datei

  2. Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen

    in Microsoft Excel Hilfe
    Wert aus Inputbox in Textbox übernehmen ohne Inhalt zu löschen: Hallo zusammen, ich habe mir ein Code mit hilfe KI gebastelt und komme nicht weiter. Wenn ich über die Inputbox eine Text eingebe, soll er den bestehenden Textinhalt nicht leeren sondern die...
  3. Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

    in Microsoft Access Hilfe
    Inhalt eines Hyperlink Feldes in ein Textfeld kopieren: Hallo, kurz vorweg, GRUNDkenntnisse sind ein paar vorhanden, VBA-Kenntnisse sind nicht vorhanden. Ich habe eine DB zum verwalten meiner Dokumente. In einem Endlosformular erzeuge ich mit Hilfe...
  4. Textfelder verschieben

    in Microsoft Excel Hilfe
    Textfelder verschieben: Hallo Forum, ich habe zwei Textfelder auf meinem Tabellenblatt (Textfeld 4 und Textfeld 5) in meiner xlsm Excel Datei. Textfeld 4 befindet sich unter Textfeld 5. Diese beiden Textfelder nutze ich,...
  5. Wenn Formel= Wenn etwas erfüllt, zeige Inhalt einer Zelle

    in Microsoft Excel Hilfe
    Wenn Formel= Wenn etwas erfüllt, zeige Inhalt einer Zelle: Hallo zusammen, komische Frage die ich da habe, und Google spuckt mir immer das selbe aus, mit dem ich nix anfangen kann. Ich möchte, dass in der Zelle B1 ein Wert angezeigt wird, der in A1...
  6. Tabelle mit Inhalt auswerten

    in Microsoft Excel Hilfe
    Tabelle mit Inhalt auswerten: Hallo zusammen ... als Laie brauch ich bitte mal Unterstützung. Ich habe eine Excel-Tabelle mit verschiedenen Daten die ich jetzt zum Jahresende auswerten möchte. Ich hoffe das es so funktioniert...
  7. Zellen Inhalt zurückgeben

    in Microsoft Excel Hilfe
    Zellen Inhalt zurückgeben: Hallo Ich suche eine Möglichkeit über VBA oder mittels Formel, den Zellwert von Spalte A der aktiven Zeile zurückzugeben. Variante 1 der cursor steht in einer beliebigen Spalte Variante 2 die...
  8. Geschriebene Inhalte auf einmal löschen möglich?

    in Microsoft Excel Hilfe
    Geschriebene Inhalte auf einmal löschen möglich?: Hallo und guten Morgen. 1. ich öffne Excel 2. ich habe dort Vorgaben stehen wie: Name, Adresse usw. 3. ich fülle die Tabelle aus mit: Jens, Halloweg 9 4. da die Tabelle lang ist, möchte ich meine...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden