Aus vielen Arbeitsmappen Daten auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Franz,
vielen Dank für die Antwort.
Hier meine Antworten:
1. Die 3000 Dateien befinden sich in verschiedenen Verzeichnissen. Aber...
2. ... mir reicht es, wenn ich die einzelnen Verzeichnisse nacheinander abarbeite.
3. Der neue Name sollte zumindest den alten Dateinamen enthalten. (z.B. "alterName.bak.xls")
4. Da ich die Verzeichnisse einzeln abarbeite, reicht es, wenn alle Dateien in einem Ordner landen.
5. Die Daten, die ausgelesen werden sollen befinden sich immer im aktiven und einzig sichtbaren Blatt. In den Arbeitsmappen befinden sich aber noch weitere Blätter (wie gesagt, jedoch nicht sichtbar). Der Name des aktiven und einzig sichtbaren Blattes variiert jedoch von Abreitsmappe zu Arbeitsmappe. Bei den neuen Arbeitsmappen, in die die Daten eingefügt werden, reicht es, wenn die Daten in Blatt 1 eingeschrieben werden.
6. Formate müssen nicht übertragen werden.
Hier konkret die Daten, die Übertragen werden sollen:
Arbeitsmappe Alt............neu
Label1.............................A1
C10:C27........................A2:A19
E10:E27........................B2:B19
E30................................A20
E36................................A21
E38................................A22
G40................................A23
E43................................A24
I48........................ ........A25
- Wichtig, dass nur die Werte, nicht Formeln übertragen werden
- Alle alten Arbeitsblätter sind geschützt, das Passwort ist aber in allen Mappen das gleiche
Vielen Dank
Alex

Hallo Franz,
ich bin es nochmal. Habe es jetzt ausprobiert. Hab nur leider ein Problem.
Pfad alt: D:\alt
Pfad neu: D:\neu
Erweiterung: _bak.xls
Jetzt habe ich 1 Datei (Datei xy.xls)- nicht Passwort geschützt - in den Ordner "alt" gelegt. Und auf "Daten transferieren" geklickt.
Er gibt mir die Fehlermeldung: Kann "Datei xy.xls" nicht finden. Bitte überprüfen sie...
Beim Debuggen markiert er mir die Zeile
Workbooks.Open Dateialt
(siehe unten)
Die Pfade stimmen. Der Dateiname auch.
Was soll ich tun? Bitte helft mir.
Alex


Sub DataTransfer()
'erstellt unter EXCEL 2003
'Transfer von Daten aus bestehenden Dateien in neue Dateien
Dim wksalt As Worksheet, wksneu As Worksheet
Dim wbalt As Workbook, wbneu As Workbook, Dateialt
Dim DateiEnde As String, DateiNeu As String
Dim pfadneu As String, pfadalt As String
pfadneu = Application.Range("VerzNeu")
pfadalt = Application.Range("VerzAlt")
DateiEnde = Application.Range("DateiEnde")
Dateialt = Dir(pfadalt & "\*.xls", vbNormal)
Do Until Dateialt = ""
Workbooks.Open Dateialt
' diese Zeile hat er markiert
Set wbalt = ActiveWorkbook
Set wksalt = wbalt.ActiveSheet
DateiNeu = Left(wbalt.Name, Len(wbalt.Name) - 4) & DateiEnde
Workbooks.Add
ActiveWorkbook.SaveAs pfadneu & "\" & DateiNeu
Set wbneu = ActiveWorkbook
Set wksneu = wbneu.Sheets(1)
With wksneu
.Range("A1").Value = wksalt.Range("Label1").Value
.Range("A2:A19").Value = wksalt.Range("C10:C27").Value
.Range("B2:B19").Value = wksalt.Range("E10:E27").Value
.Range("A20").Value = wksalt.Range("E30").Value
.Range("A21").Value = wksalt.Range("E36").Value
.Range("A22").Value = wksalt.Range("E38").Value
.Range("A23").Value = wksalt.Range("G40").Value
.Range("A24").Value = wksalt.Range("E43").Value
.Range("A25").Value = wksalt.Range("I48").Value
End With
wbneu.Close SaveChanges:=True
wbalt.Close SaveChanges:=False
Dateialt = Dir
Loop
End Sub

Beliebteste Forumthreads (12 Monate)

Aus vielen Arbeitsmappen Daten auslesen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus vielen Arbeitsmappen Daten auslesen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread