{"id":55000496,"date":"2007-10-01T00:00:00","date_gmt":"2021-02-11T21:18:01","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=496"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Per_VBA_komprimieren_mit_SawZipNG","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/","title":{"rendered":"Per VBA komprimieren mit SawZipNG"},"content":{"rendered":"

\"\"<\/p>\n

Eine Schnittstelle für den Einsatz mit VBA liefern einige Produkte wie etwa WinZip direkt mit. Leider sind die meisten kostenpflichtig. Access im Unternehmen stellt eine frei verfügbare DLL vor, mit der Sie von Ihrer Datenbank aus die von den verbreiteten Komprimierungstools her bekannten Funktionen nachbilden können.<\/b><\/p>\n<\/div>\n

\n

SawZipNG <\/b>hat es merkwürdigerweise nie zu außergewöhnlichem Ruhm gebracht: Die Bibliothek war eine Zeit lang zum Download verfügbar, danach ist sie aber aus dem Blickfeld des Internets verschwunden. Zum Glück hat Access im Unternehmen eine Kopie dieser äußerst nützlichen DLL aufgetrieben; Sie finden diese auf der Heft-CD oder unter www.access-im-unternehmen.de <\/b>zum Download.<\/p>\n

Nach der Installation des Setups steht die passende Bibliothek bereit und wartet auf die Bereitstellung in der Zieldatenbank per passendem Verweis (siehe Bild 1). Bei der Weitergabe brauchen Sie nicht das komplette Setup mitzuliefern, die Datei SawZipNG.dll <\/b>reicht aus. Allerdings muss diese dann noch per RegSvr32.exe <\/b>registriert werden. <\/p>\n

\n \"pic001.tif\"\n <\/div>\n
\n

Bild 1: Um die Zip-DLL in eine Anwendung einzubinden, muss man einen passenden Verweis anlegen.<\/span><\/b><\/p>\n<\/p><\/div>\n

Der Einsatz von Late Binding würde einen Verweis überflüssig machen; wie dies aussieht, können Sie der Beispieldatenbank entnehmen.<\/p>\n

Archiv erstellen<\/b><\/p>\n

Das Hauptobjekt der DLL ist das Archiv<\/b>-Objekt. Es steht sowohl beim Erzeugen und Hinzufügen von Dateien als auch beim Entpacken eines Zip-Archivs im Mittelpunkt.<\/p>\n

Bevor Sie das Tool einsetzen, müssen Sie sich überlegen, ob Sie gegebenenfalls auf die Ereignisse des Archive-Objekts reagieren möchten. Diese werden unter anderem ausgelöst, wenn eine Datei zum Archiv hinzugefügt, eine Datei gelöscht oder das Archiv entpackt wird. In dem Fall müssen Sie die Objektvariable mit dem Schlüsselwort WithEvents <\/b>deklarieren, was nur in Formular-, Berichts- und Klassenmodulen, aber nicht in Standardmodulen möglich ist. Hier ist dann auch unbedingt der Verweis nötig, mit Late Binding gibt es keine unmittelbare Möglichkeit zum Einsatz von WithEvents <\/b>und der passenden Ereignisse.<\/p>\n

Für den Anfang lassen wir diese Option allerdings zunächst außen vor und konzentrieren uns auf die eigentlichen Funktionen.<\/p>\n

Die Zeilen zum Erstellen und Erzeugen eines Archivs sehen beispielsweise wie folgt aus:<\/p>\n

Dim objArchiv As SAWZipNG.Archive\r\nSet objArchiv = New SAWZipNG.Archive<\/pre>\n
Das Archiv existiert bis dato nur im Speicher. Sie können nun Dateien hinzufügen und das Archiv auf die Festplatte bannen. Das funktioniert etwa so:<\/p>\n
Dim objArchiv As SAWZipNG.Archive\r\nSet objArchiv = New SAWZipNG.Archive\r\nWith objArchiv\r\n   .Create \"c:\\SawZip.zip\"\r\n   .AddFile \"c:\\test.txt\"\r\nEnd With<\/pre>\n
Die Create<\/b>-Methode legt zunächst die Zip-Datei an, die AddFile<\/b>-Methode fügt die angegebene Datei hinzu – fertig, die erste Zip-Datei ist erstellt!<\/p>\n
Beachten Sie, dass Access abstürzt, wenn Sie der Create<\/b>-Methode eine leere Zeichenkette übergeben. Wenn der Benutzer den Dateinamen eingibt oder auswählt, prüfen Sie diesen zuvor auf seinen Inhalt.<\/p>\n
Natürlich gibt es noch einige Einstellungen, die Sie in den folgenden Abschnitten kennen lernen.<\/p>\n
Beispieldaten<\/b><\/p>\n
Zum Testen der Zip-Bibliothek brauchen Sie ein paar Verzeichnisse und Dateien, an denen Sie nichts kaputt machen können. Mit der folgenden Routine legen Sie die passenden Elemente im Verzeichnis der aktuellen Datenbank an (siehe Bild 2):<\/p>\n
\n        \"pic002.tif\"\n    <\/div>\n
\n
Bild 2: Diese per VBA-Code schnell angelegte Verzeichnis- und Dateistruktur dient als Versuchsfeld für die Zip-Bibliothek.<\/span><\/b><\/p>\n<\/p><\/div>\n
Public Sub Beispieldateien()\r\n   Dim i As Integer\r\n   Dim j As Integer\r\n   Dim strPfad As String\r\n   On Error Resume Next\r\n   strPfad = CurrentProject.Path\r\n   MkDir strPfad & \"\\Zip\"\r\n   On Error GoTo 0\r\n   For i = 1 To 10\r\n     Open strPfad & \"\\Zip\\Test\" _
 & Format(i, \"00\") _
 & \".txt\" For Output As #1\r\n     Print #1, \"Test\"\r\n     Close #1\r\n     On Error Resume Next\r\n     MkDir strPfad & \"\\Zip\\Zap\" _
 & Format(i, \"00\")\r\n     For j = 1 To 10\r\n       Open strPfad & \"\\Zip\\Zap\" _
 & Format(i, \"00\") & \"\\Test\" _
 & Format(j, \"00\") & \".txt\" _
 For Output As #2\r\n       Write #2, \"Test\"\r\n       Close #2\r\n     Next j\r\n     On Error GoTo 0\r\n   Next i\r\nEnd Sub<\/pre>\n
Zu Beispielzwecken könnte man nun ein Formular entwickeln, dass etwa die Funktionen von WinZip oder ähnlichen Produkten nachbildet. Das wäre anschaulich, macht aber wenig Sinn. Viel interessanter ist es, die Zip-Funktionen beispielsweise zum Zusammenpacken zu sichernder Daten zu verwenden – ein netter Anwendungszweck wäre eine Datenbank, die Berichte im Snapshot- oder PDF-Format speichert, diese packt und per Mail verschickt. Im Folgenden lernen Sie daher die nackten VBA-Anweisungen zur Steuerung der Zip-Bibliothek kennen.<\/p>\n
<\/p>\n
Datei verschlüsselt packen<\/b><\/p>\n
Um sicherzustellen, dass nur der Empfänger einer Datei Zugriff auf diese hat, können Sie diese nicht nur packen, sondern auch mit einem Passwort verschlüsseln.<\/p>\n
Public Sub DateiVerschluesseln()\r\n   '....\r\n   With objArchiv\r\n     .Create CurrentProject.Path _
 & \"\\VerschluesseltesArchiv.zip\"\r\n     .Password = \"test\"\r\n     .AddFile CurrentProject.Path _
 & \"\\zip\\test01.txt\"\r\n   End With\r\nEnd Sub<\/pre>\n
Diese Routine erzeugt ein Zip-File mit einer verschlüsselten Datei, die WinZip wie in Bild 3 darstellt. Wichtig ist hier die Reihenfolge: Nur diejenigen Dateien, die nach der Angabe des Schlüsselwortes mit der Password<\/b>-Eigenschaft hinzugefügt wurden, sind auch verschlüsselt.<\/p>\n
\n        \"pic003.tif\"\n    <\/div>\n
\n
Bild 3: Verschlüsselt gezippte Dateien lassen sich nur mit dem entsprechenden Passwort wieder entschlüsseln.<\/span><\/b><\/p>\n<\/p><\/div>\n
Verzeichnisse packen<\/b><\/p>\n
Wenn Sie die AddFile<\/b>-Anweisung durch AddFolder <\/b>ersetzen und ein Verzeichnis statt einer Datei angeben, können Sie ein komplettes Verzeichnis komprimieren. Ob Sie dabei nur das angegebene Verzeichnis und die darin enthaltenen Dateien oder auch die Unterverzeichnisse mit komplettem Inhalt zippen, hängt von der Einstellung für den Parameter includeSubDirs <\/b>ab. Die folgende Routine demonstriert das Komprimieren des kompletten Astes ab dem Verzeichnis Zip<\/b>:<\/p>\n
Public Sub VerzeichnisMitUnterverzeichnissen()\r\n   '...\r\n   With objArchiv\r\n     .Create CurrentProject.Path & \"\\File.zip\"\r\n     .AddFolder CurrentProject.Path _
 & \"\\zip\", includeSubDirs:=True\r\n   End With\r\nEnd Sub<\/pre>\n
Der rechte Pfad<\/p>\n
Für den Empfänger eines Zip-Archivs ist es wichtig, wohin die enthaltenen Dateien entpackt werden. Das Ziel hängt entscheidend von dem in WinZip unter Pfad <\/b>angezeigten Verzeichnis ab. üblicherweise liefert man bei einzelnen Dateien gar keine Verzeichnisstruktur mit und beim Archivieren von kompletten Verzeichnissen den Teil des Verzeichnisbaums, der das zu archivierende Verzeichnis mit einschließt.<\/p>\n
Standardmäßig fasst das Archivieren die komplette Verzeichnishierarchie mit Ausnahme des Laufwerkbuchstabens ein. Der Nachteil dabei ist, dass der Empfänger in dem Verzeichnis, in dem er die Zip-Datei entpackt, den kompletten Verzeichnisbaum abbildet, in dem sich auch die Originaldateien befanden. Wenn das Verzeichnis Zip <\/b>also in c:\\Ordner1\\Ordner2\\Ordner3 <\/b>gespeichert war und mit Verzeichnisinformationen gezippt wurde, und der Benutzer es unter c:\\Test\\ <\/b>entpackt, erhält er die Verzeichnisstruktur c:\\Test\\Ordner1\\Ordner2\\Ordner3\\Zip<\/b>, obwohl er eigentlich nur c:\\Test\\Zip <\/b>erhalten wollte.<\/p>\n
Wenn Sie den Parameter FullPath <\/b>auf False <\/b>einstellen, speichert das Archiv gar keine Pfad-Informationen:<\/p>\n
With objArchiv\r\n   .Create CurrentProject.Path _
 & \"\\VerzeichnisOhneRoot.zip\"\r\n   .AddFolder CurrentProject.Path _
 & \"\\zip\", FullPath:=False\r\nEnd With<\/pre>\n
Beim Entpacken gelangen dadurch alle Dateien in dasselbe Verzeichnis, wodurch die komplette Struktur verloren geht – auch das ist keine Optimallösung. Der beste Weg beim Zippen von Verzeichnissen ist der folgende: Es wird genau das Verzeichnis als Root-Verzeichnis in das Archiv geschrieben, das auch für die AddFolder<\/b>-Methode angegeben wurde. Wenn Sie also einen Ordner namens Zip <\/b>mit drei darin enthaltenen Dateien packen, soll genau dieser Ordner mit den drei Dateien an der Stelle entpackt werden, die der Benutzer angibt. Im Detail setzen Sie bei der AddFolder<\/b>-Methode den Parameter FullPath <\/b>auf den Wert False<\/b>, geben aber in der Zeile vorher mit der RootPath<\/b>-Eigenschaft an, welche Elemente vom ursprünglichen Pfad entnommen werden sollen:<\/p>\n
Public Sub VerzeichnisOhneRoot()\r\n   '...\r\n   With objArchiv\r\n     .Create CurrentProject.Path _
 & \"\\VerzeichnisOhneRootMitPfad.zip\"\r\n     .RootPath = CurrentProject.Path\r\n     .AddFolder CurrentProject.Path _
 & \"\\zip\\\", includeSubDirs:=True, _
 FullPath:=False\r\n   End With\r\nEnd Sub<\/pre>\n
Selbst wenn sich das betroffene Verzeichnis unter c:\\Unterordner1\\Unterordner2\\zip <\/b>befindet, enthält das Zip-File nur noch das Verzeichnis zip <\/b>als Hauptordner (siehe Bild 3).<\/p>\n
\n        \"pic004.tif\"\n    <\/div>\n
\n
Bild 3: Mit der Eigenschaft RootPath kann man Teile des Zielverzeichnisses abschneiden, damit beim Entpacken nicht die kompletten übergeordneten Verzeichnisse des Originals nachgebildet werden.<\/span><\/b><\/p>\n<\/p><\/div>\n
Kompressionsrate<\/b><\/p>\n
Für alle Archivierungsvorgänge gilt: Sie können die Kompressionsrate mit dem Parameter level <\/b>für jedes mit einem einzelnen Add…<\/b>-Befehl hinzugefügte Element (egal, ob Datei oder Ordner) einstellen. Die Werte reichen von 0 <\/b>(keine Kompression) bis 9 <\/b>(maximale Kompression).<\/p>\n
Datei unter anderem Namen archivieren<\/b><\/p>\n
Mit der Methode AddFileAs <\/b>können Sie vorhandene Dateien unter einem anderen Namen im Zip-File archivieren, ohne dass Sie die Datei zuvor umbenennen müssen. Geben Sie einfach den neuen Namen zusätzlich zum Originalnamen an:<\/p>\n
Public Sub DateiUnterAnderemNamen()\r\n   '...\r\n   With objArchiv\r\n     .Create CurrentProject.Path & \"\\DateiUnterAnderemNamen.zip\"\r\n     .AddFileAs CurrentProject.Path & _
 \"\\zip\\test01.txt\", \"NeuerName.txt\"\r\n   End With\r\nEnd Sub<\/pre>\n
Entpacken<\/p>\n
Die SawZipNG<\/b>-Bibliothek liefert auch Methoden zum automatisierten Entpacken von Zip-Dateien. Dies ist unter anderem sinnvoll, wenn Sie per Mail oder FTP zugestellte Zip-Dateien entpacken und die enthaltenen Daten in irgendeiner Weise weiterverarbeiten möchten (zum Beispiel könnten Anwendungen beim Kunden Fehlermeldungen in eine Textdatei schreiben, diese in einem Archiv speichern und zum Entwickler schicken). üblicherweise extrahiert man direkt alle Dateien eines Archivs. Dies kann wie in folgendem Beispiel aussehen:<\/p>\n
Public Sub AllesEntpacken()\r\n   Dim objArchiv As SAWZipNG.Archive\r\n   Dim i As Integer\r\n   Set objArchiv = New SAWZipNG.Archive\r\n   objArchiv.Open CurrentProject.Path & _
 \"\\VerzeichnisseMitRoot.zip\"\r\n   With objArchiv\r\n     For i = 0 To objArchiv.FileCount - 1\r\n       .Extract i, CurrentProject.Path _
 & \"\\Extrahiert\"\r\n     Next i\r\n   End With\r\nEnd Sub<\/pre>\n
Die Routine erzeugt zunächst auf die gleiche Weise wie auch beim Packen ein Archive<\/b>-Objekt. Dem weist sie aber mit der Open<\/b>-Methode ein existierendes Zip-File zu. Anhand der FileCount<\/b>-Eigenschaft ermittelt sie die Anzahl der enthaltenen Dokumente und durchläuft dann eine Schleife, in der jedes einzelne Dokument unterhalb des angegebenen Verzeichnisses extrahiert wird. Dabei ist zu beachten, dass der Index bei 0<\/b> beginnt.<\/p>\n
Verschlüsseltes Archiv entpacken<\/b><\/p>\n
Beim Entpacken verschlüsselter Archive ist die Angabe des Passwortes mit derselben Eigenschaft wie beim Verschlüsseln selbst erforderlich. Wird vor der Extract<\/b>-Methode kein oder ein falsches Passwort angegeben, löst dies einen Fehler aus:<\/p>\n
Public Sub VerschluesseltesArchivEntpacken()\r\n   '...\r\n   With objArchiv\r\n     For i = 0 To objArchiv.FileCount - 1\r\n       .Password = \"test\"\r\n       .Extract i, CurrentProject.Path _
 & \"\\Extrahiert\"\r\n     Next i\r\n   End With\r\nEnd Sub<\/pre>\n
Bestimmte Datei entpacken<\/p>\n
Gegebenenfalls möchten Sie auch einmal nur eine einzige Datei aus einem Archiv entpacken. Wenn Sie sich nur auf den Dateinamen beziehen möchten, verwenden Sie etwa die folgende Routine. Zu beachten sind die einzelnen Parameter der FindFile<\/b>-Funktion. Diese Funktion liefert den Index der gefundenen Datei zurück, sonst den Wert -1<\/b>.<\/p>\n
Public Sub EineDateiEntpacken()\r\n   '...\r\n   With objArchiv\r\n     i = .FindFile(\"Test01.txt\", _
 caseSensitive:=FF_NON_SENSITIVE, _
 filenameOnly:=True)\r\n     .Extract i, CurrentProject.Path, False\r\n   End With\r\nEnd Sub<\/pre>\n
Alternative Dateiendung<\/p>\n
Da Zip-Dateien hier und da im Spam-Filter hängen bleiben, benötigen Sie gegebenenfalls eine alternative Dateiendung. Das ist kein Problem: Legen Sie das Archiv einfach unter der gewünschten Endung an; auch das Extrahieren mit SawZipNG <\/b>bereitet mit alternativen Dateiendungen keine Probleme.<\/p>\n
Zusammenfassung und Ausblick<\/b><\/p>\n
Diese SawZipNG<\/b>-Bibliothek liefert alles, was das Archivierer-Herz höher schlagen lässt. Neben den hier vorgestellten Möglichkeiten gibt es noch einige weitere Funktionen und Eigenschaften. Für weitere Informationen bietet sich das Studium der HTML-Datei archive.html <\/b>aus dem auf der Heft-CD befindlichen Paket an.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
SawZipNG.mdb<\/p>\n
SawZipNG.rar<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Eine Schnittstelle für den Einsatz mit VBA liefern einige Produkte wie etwa WinZip direkt mit. Leider sind die meisten kostenpflichtig. Access im Unternehmen stellt eine frei verfügbare DLL vor, mit der Sie von Ihrer Datenbank aus die von den verbreiteten Komprimierungstools her bekannten Funktionen nachbilden können.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662007,66052007,44000026,44000025],"tags":[],"class_list":["post-55000496","post","type-post","status-publish","format-standard","hentry","category-662007","category-66052007","category-Interaktiv","category-VBA_und_Programmiertechniken"],"yoast_head":"\nPer VBA komprimieren mit SawZipNG - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Per VBA komprimieren mit SawZipNG\" \/>\n<meta property=\"og:description\" content=\"Eine Schnittstelle für den Einsatz mit VBA liefern einige Produkte wie etwa WinZip direkt mit. Leider sind die meisten kostenpflichtig. Access im Unternehmen stellt eine frei verfügbare DLL vor, mit der Sie von Ihrer Datenbank aus die von den verbreiteten Komprimierungstools her bekannten Funktionen nachbilden können.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2021-02-11T21:18:01+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg08.met.vgwort.de\/na\/83ed1fbd709343139f7a2afd4b368363\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"10\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Per VBA komprimieren mit SawZipNG\",\"datePublished\":\"2021-02-11T21:18:01+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/\"},\"wordCount\":1571,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/83ed1fbd709343139f7a2afd4b368363\",\"articleSection\":[\"2007\",\"5\\\/2007\",\"Interaktiv\",\"VBA und Programmiertechniken\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/\",\"name\":\"Per VBA komprimieren mit SawZipNG - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/83ed1fbd709343139f7a2afd4b368363\",\"datePublished\":\"2021-02-11T21:18:01+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/83ed1fbd709343139f7a2afd4b368363\",\"contentUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/83ed1fbd709343139f7a2afd4b368363\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Per_VBA_komprimieren_mit_SawZipNG\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Per VBA komprimieren mit SawZipNG\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Per VBA komprimieren mit SawZipNG - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/","og_locale":"de_DE","og_type":"article","og_title":"Per VBA komprimieren mit SawZipNG","og_description":"Eine Schnittstelle für den Einsatz mit VBA liefern einige Produkte wie etwa WinZip direkt mit. Leider sind die meisten kostenpflichtig. Access im Unternehmen stellt eine frei verfügbare DLL vor, mit der Sie von Ihrer Datenbank aus die von den verbreiteten Komprimierungstools her bekannten Funktionen nachbilden können.","og_url":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/","og_site_name":"Access im Unternehmen","article_published_time":"2021-02-11T21:18:01+00:00","og_image":[{"url":"http:\/\/vg08.met.vgwort.de\/na\/83ed1fbd709343139f7a2afd4b368363","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"10\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Per VBA komprimieren mit SawZipNG","datePublished":"2021-02-11T21:18:01+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/"},"wordCount":1571,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/#primaryimage"},"thumbnailUrl":"http:\/\/vg08.met.vgwort.de\/na\/83ed1fbd709343139f7a2afd4b368363","articleSection":["2007","5\/2007","Interaktiv","VBA und Programmiertechniken"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/","url":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/","name":"Per VBA komprimieren mit SawZipNG - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/#primaryimage"},"thumbnailUrl":"http:\/\/vg08.met.vgwort.de\/na\/83ed1fbd709343139f7a2afd4b368363","datePublished":"2021-02-11T21:18:01+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/#primaryimage","url":"http:\/\/vg08.met.vgwort.de\/na\/83ed1fbd709343139f7a2afd4b368363","contentUrl":"http:\/\/vg08.met.vgwort.de\/na\/83ed1fbd709343139f7a2afd4b368363"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Per_VBA_komprimieren_mit_SawZipNG\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Per VBA komprimieren mit SawZipNG"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000496","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000496"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000496\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000496"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000496"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000496"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}