Konverter über Excel - Dateinamenänderung

Hallo,
ich wollte für ständige kommende .csv Dateien ein koverter bauen, allerdings komm ich nicht weiter.
Ich will Daten der .csv Datei 1:1 unberührt lassen, allerdings soll der Dateiname geändert werden. Ich habe es mir so gedacht:
In meinem Excelblatt stehen in Spalte A die Aktuellen Dateinamen z.B."testtest.csv"
In Spalte B würde dann direkt daneben der neue Dateiname stehen, und jetzt kommt die besonderheit:
Der neue Dateiname hat einen festen Teil - danach soll er aus der csv Datei in Spalte A das Anfangsdatum auslesen und den Enddatum in Spalte A (also ersten und letzter Eintrag der csv Datei) , dort stehen immer Datumsangaben drin.
Wäre dies möglich per VBA?
Die csv Dateien würden im gleichen Ordner wie das Excelblatt stehen und die neuen CSV-Datei sollen in dem unterorder:"Neu" abgespeichert werden.
Per Button soll er nach allen csv Datei im Ordner suchen und wenn er übereinstimmungen findet dann soll er diese in dem Order "Neu" unter dem neuen Dateinamen abspeichern.
LG
Detlef
Der neue Dateiname würde dann so aussehen: Test_Test_ANFGANSDATUM(YYYYMMDD)_ENDDATUM(YYYMMDD)_TEST_TEST_TEST_TEST.csv

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Detlef,
hier ein Makro mit den entsprechenden Funktionalitäten.
Gruß
Franz

Sub CSV_Rename()
Dim wksListe As Worksheet
Dim strCSV_alt As String, strCSV_neu As String, strStart As String, strEnd As String
Dim lngZeile As Long, strVerzeichnis As String, strVerzeichnisNeu As String
Dim wksCSV As Worksheet, wkbCSV As Workbook, intCount As Integer
strVerzeichnis = ActiveWorkbook.Path
Set wksListe = ActiveSheet
strVerzeichnisNeu = strVerzeichnis & Application.PathSeparator & "Neu"
If Dir(Pathname:=strVerzeichnisNeu, Attributes:=vbDirectory) = "" Then
VBA.MkDir Path:=strVerzeichnisNeu
End If
Application.ScreenUpdating = False
With wksListe
For lngZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row 'stratzeile ggf. anpassen
strCSV_alt = .Cells(lngZeile, 1).Text
strCSV_neu = "Name_Neu" 'Anfang neuer Dateiname
'      strCSV_neu = .Cells(lngZeile, 2).Text 'ggf. Anfang neuer Dateiname aus Spalte B einlesen
If Dir(Pathname:=strVerzeichnis & Application.PathSeparator & strCSV_alt)  "" Then
'CSV öffnen
intCount = intCount + 1
Set wkbCSV = Application.Workbooks.Open( _
Filename:=strVerzeichnis & Application.PathSeparator & strCSV_alt, _
ReadOnly:=True, Local:=True) 'Loacal:=True --> Deutsches Trennzeichen und  _
Zahlenformat _
wird berücksichtigt.
Set wksCSV = wkbCSV.Worksheets(1)
strStart = "": strEnd = ""
With wksCSV
With .Cells(1, 1)
If IsDate(.Text) Then
strStart = Format(CDate(.Text), "YYYYMMDD")
Else
strStart = Format(intCount, "00000000")
End If
End With
With .Cells(.Rows.Count, 1).End(xlUp)
If IsDate(.Text) Then
strEnd = Format(CDate(.Text), "YYYYMMDD")
Else
strEnd = Format(intCount, "00000000")
End If
End With
'Datums und Dateiendung zum neuen Namen hinzufügen
strCSV_neu = strCSV_neu & "_" & strStart & "_" & strEnd & ".csv"
End With
'CSV-Datei wieder schliessen
wkbCSV.Close savechanges:=False
'neuen Dateinamen in Spalte B eintragen
.Cells(lngZeile, 2).Value = strCSV_neu
'Datei löschen, wenn neue Datei schon vorhanden
If Dir(strVerzeichnisNeu & Application.PathSeparator & strCSV_neu)  "" Then
Kill strVerzeichnisNeu & Application.PathSeparator & strCSV_neu
End If
'CSV-Datei mit neuem Namen ins neue Verzeichnis kopieren
VBA.FileCopy Source:=strVerzeichnis & Application.PathSeparator & strCSV_alt, _
Destination:=strVerzeichnisNeu & Application.PathSeparator & strCSV_neu
Else
.Cells(lngZeile, 2).Value = "CSV-Datei nicht vorhanden!"
End If
Next lngZeile
End With
Application.ScreenUpdating = True
Set wksListe = Nothing: Set wkbCSV = Nothing: Set wksCSV = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

Konverter über Excel - Dateinamenänderung

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Konverter über Excel - Dateinamenänderung

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread