Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen aus Verzeichnis auslesen

Tabellen aus Verzeichnis auslesen
17.02.2005 13:40:01
Micha
Hallo alle zusammen!
ich habe folgendes Problem:
Ich habe mehrere xls Dateien in einem Verzeichniss die immer gleich aufgebaut sind. Aus diesen Dateien möchte ich immer eine bestimmte Zelle auslesen und in einer neuen Datei (xls) wegschreiben.
das Verzeichniss heisst zb. e:\test
und die neue Datei kann zb. auswertung.xls heissen.
das auslesen "einer" Datei ist kein Problem! ich schaffe es nur nicht das er alle Dateien im Verzeichniss ausliest.
vielen dank schonmal für die Hilfe

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellen aus Verzeichnis auslesen
u_
hier ein Code-Gerippe:

Sub Read_Files()
Dim FS As FileSearch, _
i As Integer, wbk As Workbook
Application.ScreenUpdating = False
strFTyp = "*.xls"
strOrdner = "c:\test\"
Set FS = Application.FileSearch
With FS
.LookIn = strOrdner
.Filename = strFTyp
.SearchSubFolders = False
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set wbk = Workbooks.Open(.FoundFiles(i))
'hier deine Kopier-Aktionen
wbk.Close False
Next i
End If
End With
End Sub

AW: Tabellen aus Verzeichnis auslesen
Micha
Irgendwie klappt das nicht so!
mein makro um eine tabelle auszulesen sieht so aus:

Sub Makro2()
Workbooks.Open Filename:="C:\test\peter.xls"
Range("A1").Select
Selection.Copy
ActiveWindow.Close
ActiveSheet.Paste
Range("A2").Select
End Sub

Wie passen die beiden Geschichten zusammen?
danke micha
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige