vanuit excel file benamingen aanpassen

[Jansap]

hallo,

is het mogelijk dat ik vanuit excel een file benaming aanpas.

Ik kan met een macro alle titels van een folder uitlezen en in excel onderelkaar in rijen neerzetten.

Ik moet een bewerking doen met de benaming en dan de pdf file benaming aanpassen voor verdere verwekring.

vb. 92552526 kalibratieformulier 431-TT.pdf wordt na tekst naar colommen kalibratieformulier 431-TT.pdf en dit moet terug naar de folder zodat de pdf uiteindleijk ook zo gaat heten.

Ik heb al gezocht binnen het forum alleen niet iets kunnen vinden waarmee ik verder zo komen.

Dank

jan

 

[jkpieterse]

Stel je originele naam staat in A1:A100 en de nieuwe naam staat er meteen rechts van:

Sub HerNoemen()
    Dim oCell As Range
    ChDrv "c:"
    ChDir "c:\users\jkp\documents\test"
    For Each oCell in Range("A1:A100")
        If Len(oCell.Value)>0 Then
            Name oCell.Value As oCell.Offset(,1).Value
        End If
    Next
End Sub

 

[Jansap]

excel file benamingen aanpassen

bedankt, werkt prima.

jan