Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien aus Verzeichnis in neue Datei einlesen

Forumthread: Dateien aus Verzeichnis in neue Datei einlesen

Dateien aus Verzeichnis in neue Datei einlesen
11.05.2007 09:42:12
Michael Dockhorn

Hallo,
ich weiß, dass dieser Problem in ähnlicher Form hier schon öfter diskutiert wurde, allerdings hat mich die Recherche bisher nicht so richtig weiter gebracht.
Ich benötige ein Makro, welches aus einem festgelegten Verzeichnis (S:\TEMP\Import) alle .xls Dateien (nur das erste Sheet) in eine einzige .xls Datei einliest. Jede der Datein soll ein einzelnes Register erhalten. Das Register soll die Bezeichnung tragen, welche in Zelle B4 steht.
Ich hoffe ich habe mich verständlich ausgedrückt...
Micha

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Dateien aus Verzeichnis in neue Datei einlesen
11.05.2007 10:22:13
Rudi Maintaire
Hallo,


Sub DateienLesen()
Dim oFS As FileSearch, i As Integer
Dim wkb As Workbook, wkbFound As Workbook
Set oFS = Application.FileSearch
With oFS
.LookIn = "s:\temp\import"
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set wkbFound = Workbooks.Open(.FoundFiles(i))
If wkb Is Nothing Then
wkbFound.Sheets(1).Copy
Set wkb = ActiveWorkbook
Else
wkbFound.Sheets(1).Copy wkb.Sheets(1)
End If
ActiveSheet.Name = CheckSheetName(ActiveSheet.Range("B4"))
wkbFound.Close False
Next i
End If
End With
End Sub




Function CheckSheetName(strName As String) As String
Dim notAllowed As Variant
Dim n As Integer
'Im Tabellennamen nicht zulässige Zeichen
notAllowed = Array(":", "\", "/", "?", "*", "[", "]")
'unerlaubte Zeichen durch _ ersetzen
For n = 0 To UBound(notAllowed)
strName = Replace(strName, notAllowed(n), "_")
Next
'Namen auf 31 Zeichen begrenzen
CheckSheetName = Left(strName, 31)
End Function


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Dateien aus Verzeichnis in neue Datei einlesen
11.05.2007 10:36:34
Michael Dockhorn
Hallo Rudi,
vielen Dank, klappt prima!

;

Forumthreads zu verwandten Themen

Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Textdatei mit Tabs in Excel einlesen
TomTom

Hi,
wie kann ich eine Textdatei mit Tabs Trennzeichen per Makro in eine Excel Datei einlesen ? Ich brauche die Möglichkeit, dass das Makro den Öffnen-Dialog nuzt und ich die Textdatei vorher auswählen kann.
Hat vielleicht jemand ein Beispiel dazu, Wäre nett, danke
Tom
05.11.2008 11:54:00
Thread-ID: 1021827
7 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
ComboBox1 Datein Einlesen
Heinz

Hallo Leute
Ich möchte gerne von einer ComboBox1 "UF" die Daten vom Blatt "Umbauplan" A4:A11,A15:A21 die Daten einlesen.
Es handelt sich hierbei um ein Datum, in Form von TTTTT TT MM JJ
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
10.01.2009 15:18:15
Thread-ID: 1038455
3 Beiträge
Textdatei in Excel einlesen
Horst

Hallo Excel-Gemeinde,
Aus der ersten Zeile einer .txt soll ein Wert in die A.xls eingelesen und mit dem in der letzten Zeile der Spalte AA stehenden Betrag einer B.xls multipliziert werden. In Spalte A der B.xls steht zugleich das aktuelle Systemdatum.
Wie kann man dies per VBA lösen?<...
09.02.2009 12:23:40
Thread-ID: 1048612
21 Beiträge
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Text-Datei in Excel einlesen
Jule07

Hallo,
ich brauche eure Hilfe?
Ich würde gern Werte aus einer Text-Datei, welche 2-reihig jeweils 50.000-60.000 Zeilen enthält, in eine bereits geöffnete Arbeitsmappe einfügen. Die 2 Reihen sind durch einen Tab getrennt.
Zudem kommt, dass ich gern die Text-Datei über ein Dialogfe...
21.03.2009 10:54:00
Thread-ID: 1062443
8 Beiträge
Anzeige
Einlesen von Dateien in Schleife
Dateien

Moin,
ich habe eine Frage, warum kommt bei folgendem Code ein Fehler? Ich habe den Einleseteil mit dem Makrorecorder aufgenommen, den Rest selbst gemacht.
Interessanter Weise kommt der Fehler das die Datei tab1.xls nicht existiert. Die Datei existiert ja auch nicht, es soll die TextDat...
23.07.2009 15:16:38
Thread-ID: 1090723
4 Beiträge
Textdatei einlesen
Mandy

Hallo,
ich habe eine Textdatei (kommt aus einem anderen System) , die will ich per Makro in eine Excel einlesen.
Die Textdatei soll als :
GETRENNT (zeichen wie z.B. Kommas oder Tab....)
AUFEINANDERFOLGENDE TRENNZEICHEN ALS EIN ZEICHEN BEHANDELN
LEERZEICHEN
eingelesen we...
03.08.2009 16:08:29
Thread-ID: 1093269
3 Beiträge
*.cvs Datei einlesen
Frank

Hallo alle zusammen,
ich habe heute ein Anliegen, dass ich gerade nicht selbst lösen kann. Ich zeichne ein Makro auf: Excel -> Daten -> aus Text. Dann öffnet sich ein Dialog und ich wähle eine beliebige *.csv Datei aus. Danach öffnet sich der Konvertierungs-Assistent und ich nehme gew...
29.09.2009 20:26:50
Thread-ID: 1106279
9 Beiträge
cvs Datei einlesen
Frank

Hallo Excel/VBA Freunde :-),
ich kämpfe gerade mit dem Import von Daten aus einer csv bzw. mehreren csv Dateien. Es ist so das man sich die Datei aussuchen kann. Dann erfolgt der Import. Als nächstes kommt die Abfrage, ob eine weitere Datei eingelesen wird. Und nun werden die alten Daten ei...
06.10.2009 03:09:37
Thread-ID: 1107379
3 Beiträge
Textdatei einlesen und Dateinamen in Zellen
Pascal

Hallo zusammen,
ich hätte mal eine Frage an euch.
Ich bekomme monatlich ca 20 Textfiles zu einem Thema per Mail geschickt und möchte alle in einer Excel Datei zusammenfassen (DIe Inhalte der Textfiles in einem Excelsheet untereinander schreiben lassen)
Allerdings gibt es eine Besond...
08.10.2009 10:04:40
Thread-ID: 1108100
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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