Anzeige
Archiv - Navigation
1484to1488
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
Inhaltsverzeichnis

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

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

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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige