Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten aus ZIP-Datei einfügen

Forumthread: 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
Anzeige

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!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige