Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CSV-Dateiname in Exceldatei

CSV-Dateiname in Exceldatei
07.08.2007 21:39:32
Zürn
Hallo Leute ich habe zwei Probleme.
1. Problem
Ich möchte den Dateinamen von einer CSV-Datei (Name kann sich laufend ändern), welche im Verzeichnis T:\Daten liegt, in einer Excel-Datei haben die ist im gleichen Verzeichnis. Der Dateinamen soll in einer Zelle angedruckt werden.
2. Problem
Wie kann ich diese CSV-Datei mit einem beliebigen Namen in das Verzeichnis T:/Archiv per VBA-Befehl verschieben und das aktulle Datum und Uhrzeit an den Dateinamen hängen, damit es eindeutig ist.
Ich habe keine Ahnung wie ich das anstellen kann.
Kann mir jemand helfen. Bitte, wenn möglich um einfache Lösungen.
Für eine Rückinfo wäre ich Euch sehr dankbar.
Gruß
Zürni

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV-Dateiname in Exceldatei
08.08.2007 00:24:07
Oberschlumpf
Hi Zürn Bernhard
Versuch es mal so:
zu 1. + 2.

Sub CSV_Name()
Dim lstrFile As String
lstrFile = Dir("T:\Daten\*.csv")
ThisWorkbook.Sheets("NameDerTabelle").Range("DeineZelle").Value ) = lstrFile
Name "T:\Daten\" & lstrFile As _
"T:\Archiv\" & Left(lstrFile, Len(lstrFile) - 4) & "-" & _
Replace(Date, ".", "") & "-" & Replace(Time, ":", "") & ".csv"
End Sub


Hilft das?
Ciao
Thorsten

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige