Dateienamen in Excel Liste importieren
Andreas
nach der schnellen Hilfe gestern habe ich hier noch eine Frage.
Um Dateinamen aus einem Ordner auszulesen und spaeter umzubenennen verwende ich die unten gezeigten Prozeduren.
Der Zielordnerpfad und Name sind jeweils im Code festgeschrieben. Kann man dies variabel gestalten indem ich beisielsweise auf eine Zelle verweise in welcher der Verzeichnispfad geschrieben steht?
Sub GetFiles()
Dim zeile As Variant
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
Columns(1).ClearContents
sPath = "C:\Documents and Settings\andreas.poller\Desktop\2.t Inspection Records (ITR's) (by _
WBS and Series)\" ' Hier gibst Du Deinen Pfand zum gewünschten Verzeichnis an
If Right(sPath, 1) "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
Cells(iRow, 1).Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
End
Sub 'overwrites old files
Sub RenameFiles()
Dim lngRow As Long
Dim strNameOld As String, strNameNew As String, strDir As String
On Error Resume Next
strDir = "C:\Documents and Settings\andreas.poller\Desktop\2.t Inspection Records (ITR's) (by _
WBS and Series)\"
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
strNameOld = Cells(lngRow, 1)
strNameNew = Cells(lngRow, 2) & ".pdf"
If Dir(strDir & strNameOld, vbNormal) "" Then
Name strDir & strNameOld As strDir & strNameNew
Else
Cells(lngRow, 3) = "Fehler"
End If
Next
On Error GoTo 0
End Sub