Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vba-code für zip-datei erstellen aus excel-arbeit

vba-code für zip-datei erstellen aus excel-arbeit
14.12.2004 23:53:50
dietmar
hallo community,
ich habe eine excel-arbeitsmappe, die vom datenumfang nicht auf eine diskette passt. ich möchte in dieser mappe einen vba-code einfügen, der eine kopie dieser arbeitsmappe automatisch komprimiert und dann auf diskette speichert (vielleicht sollte dieser code noch zum einlegen einer diskette auffordern).
danke, dietmar

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba-code für zip-datei erstellen aus excel-arbeit
15.12.2004 17:10:05
ralf

Sub Verpacken()
Dim sXLPath As String, sZIPPath As String
Dim sWinZipPath As String
sXLPath = Range("B2").Value
If Dir(sXLPath) = "" Then
Beep
MsgBox "Excel-Arbeitsmappe nicht gefunden!"
Exit Sub
End If
sZIPPath = Left(sXLPath, Len(sXLPath) - 3) & "zip"
sWinZipPath = Range("B1").Value
If Dir(sWinZipPath) = "" Then
Beep
MsgBox "WinZip wurde nicht gefunden!"
Exit Sub
End If
Shell sWinZipPath & " -a " & sZIPPath & " " & sXLPath
Application.Wait Now + TimeSerial(0, 0, 2)
Kill sXLPath
End Sub

Anzeige

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige