Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname in alle Dateien einfügen

Dateiname in alle Dateien einfügen
16.05.2008 15:38:00
andres
Hallo,
ich möchte für alle Dateien in einem Verzeichnis "\TestVerz", welche alle die gleiche Struktur haben,
in der Zelle A1 die letzten 6 Ziffern des jeweiligen Dateinamen eintragen.
Wie muß das in VBA programmiert werden, damit alle Dateien im dem Verzeichnis "\TestVerz" dies durchführen.
Die Dateinamen haben folgende gleiche Strukur:
Erfassung_123456.xls
Erfassung_111111.xls
Erfassung_654321.xls
Erfassung_573191.xls
...
Kann hier jemand helfen.
Danke!
Gruß
Andres

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname in alle Dateien einfügen
16.05.2008 16:02:13
Chris
Servus Andres,
ungefähr so:

Sub sy()
Dim Dateien As Long
Dim Dateiname As String
Application.DisplayAlerts = False
With Application.FileSearch
On Error Resume Next
.NewSearch
.LookIn = ActiveWorkbook.Path & "\sy" ' Hier deinen Pfad anpassen
.Filename = "Erfassung_" & "*.xls"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
Dateiname = Dir(.FoundFiles(Dateien))
Dateiname = Right(Dateiname, 10)
Dateiname = Left(Dateiname, 6)
Workbooks.Open Filename:=.FoundFiles(Dateien)
ActiveWorkbook.Sheets(1).Range("A1") = Dateiname
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End If
End With
Application.DisplayAlerts = True
End Sub


Gruß
Chris

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige