Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1076to1080
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
Inhaltsverzeichnis

Daten aus ZIP-Datei einfügen

Daten aus ZIP-Datei einfügen
05.06.2009 09:12:48
jensP
Guten Morgen,
ich möchte per Makro Daten aus einer gezippten Excel-Datei in ein neues Excel-Arbeitsblatt einfügen.
Ist das aus Excel möglich und wenn ja, wie?
Gruß Jens

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus ZIP-Datei einfügen
05.06.2009 11:26:54
Hans
Hallo Jens,
eine Beispielarbeitsmappe findest Du hier:
https://www.herber.de/bbs/user/62238.xls
Der Code:

Sub GetZipData()
Dim wks As Worksheet
Dim sApp As String, sZip As String, sXls As String, sPath As String
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
Set wks = ActiveSheet
sZip = Range("B1").Value
sXls = Replace(sZip, ".zip", ".xls")
sPath = Replace(UCase(sZip), "\" & UCase(Dir(sZip)), "")
sApp = GetApplication(sZip)
If sApp = "" Then
MsgBox "Der ZIP-Pfad konnte nicht ermittelt werden!"
Else
Shell sApp & " -e " & sZip & " " & sPath
Application.Wait Now + TimeSerial(0, 0, 2)
Workbooks.Open sXls
wks.Range("E2:E13").Value = Range("A1:A12").Value
ActiveWorkbook.Close savechanges:=False
Kill sXls
End If
ERRORHANDLER:
If Err > 0 Then
MsgBox Err.Description
Err.Clear
End If
Application.ScreenUpdating = True
End Sub


gruss hans

Anzeige
AW: Daten aus ZIP-Datei einfügen
05.06.2009 13:16:46
jensP
Vielen Dank für Deine Antwort!

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige