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

Forumthread: Alle Dateien in einem Ordner ...

Alle Dateien in einem Ordner ...
04.04.2016 12:52:07
Bernd
Hallo liebe Gemeinde,
ich habe einen Ordner "Diverses" in dem so ca. 30-40 Dateien sind.
Alle Dateien haben unterschiedliche Namen. Aber in jeder Datei soll in Zelle A1 das Wort "Firma" eingefügt werden.
Jetzt alle Dateien öffnen, schreiben, schließen, finde ich ziemlich aufwendig.
Zumal ich immer wieder einen Ordner mit diversen Dateien bekomme.
Könnt ihr mir da bitte beim Code helfen.
Vielen Dank und beste Grüße
Bernd

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Dateien in einem Ordner ...
04.04.2016 12:59:30
Rudi
Hallo,
Sub aa()
Dim s As String, p As String
Dim w As Workbook
Application.ScreenUpdating = False
p = "c:\test\"
s = Dir(p & "*.xls*")
Do While s  ""
Set w = Workbooks.Open(p & s)
w.Sheets(1).Cells(1, 1) = "Firma"
w.Close True
s = Dir
Loop
End Sub
Gruß
Rudi

Anzeige
Super Rudi, funtioniert bestens. Danke. o.w.t.
04.04.2016 13:27:54
Bernd
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige