Thema Datum  Von Nutzer Rating
Antwort
Rot Dateiname auslesen und neu umbenennen
 08.03.2018 15:34:05 Thomas
Solved

Ansicht des Beitrags:
Von:
Thomas		 Datum:
08.03.2018 15:34:05		 Views:
998		 Rating:
     
Antwort:
 Nein
Thema:
Dateiname auslesen und neu umbenennen
Hallo Zusammen. Mittels diesem VBA Code werden die Bezeichnungen in einem bestimmten Pfad ausgelesen und im Excel aufgelistet. Nun muss ich aber Manuel noch kleine Anpassungen tätigen. In der Spalte D ist nun die neue Bezeichnung der Dokumente im gleichen Pfad. Wie krieg ich das hin? Sub DateienAuflisten() Dim lngZeile As Long Dim objFileSystem As Object Dim objVerzeichnis As Object Dim objDateienliste As Object Dim objDatei As Object Set objFileSystem = CreateObject("scripting.FileSystemObject") Set objVerzeichnis = objFileSystem.GetFolder("D:\03_cablex\02_NWC\14_Entwicklung\Dateibeschriftung in excel test\2_AVOR") Set objDateienliste = objVerzeichnis.Files lngZeile = 1 For Each objDatei In objDateienliste If Not objDatei Is Nothing Then ActiveSheet.Cells(lngZeile, 1) = objDatei.Name lngZeile = lngZeile + 1 End If Next objDatei End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateiname auslesen und neu umbenennen
 08.03.2018 15:34:05 Thomas
Solved