• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bestandsnamen aanpassen naar een excellijst

Status
Niet open voor verdere reacties.
J

Johande

Gebruiker
Lid geworden
23 nov 2015
Berichten
47
Hallo Allemaal,

Is het mogelijk om de bestandsnaam aan te passen naar de gegevens die in excel staan?

Zie voorbeeld in bijlage.

Ik zie de reacties graag tegemoet.
 

Bijlagen

  • Voorbeeld bestandsnamen.xlsx
    33,3 KB · Weergaven: 15
Dat is heel simpel met VBA:

Name FilenaamOud As FilenaamNieuw
 
Wat AHulpje zegt.
Met extra controles dus iets als dit:
Code: 
Sub Hernoem()
    pad = "C:\Johande\"
    For i = 6 To 19
        If Cells(i, 7) <> "" Then
            If Dir(pad & Cells(i, 7)) = "" Then
                If Dir(pad & Cells(i, 2)) = "" Then
                    MsgBox "Bestand " & pad & Cells(i, 2) & " bestaat niet.", vbCritical
                Else
                    Name pad & Cells(i, 2) As pad & Cells(i, 7)
                End If
            Else
                MsgBox "Bestand " & pad & Cells(i, 7) & " bestaat al.", vbCritical
            End If
        End If
    Next i
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan