Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Excel - VBA/Makro Zmiana nazw plików lub zmiana wartości kolumn

30 Jan 2014 12:28 3981 1
  • Level 1  
    Witam,

    Mam prawie 3 tysiące plików jpg, którym muszę zmienić nazwę.

    Pliki nazywałem tak:

    KOD-#.jpg

    przy czym kod to numer produktu, a # to numer zdjęcia.

    Muszę zmienić KOD na ID, czyli:

    ID-#.jpg

    W bazie danych każdy KOD ma przypisany unikalny ID. To zestawienie mam w excelu i wygląda tak:
    Excel - VBA/Makro Zmiana nazw plików lub zmiana wartości kolumn
    Kolumna A to ID, kolumna B to KOD

    Tak wygląda lista plików:
    Excel - VBA/Makro Zmiana nazw plików lub zmiana wartości kolumn

    Dla przykładu pliki:

    1006-1.jpg
    1006-2.jpg
    1006-3.jpg

    Chciałbym by zmieniły nazwę na

    10304-1.jpg
    10304-2.jpg
    10304-3.jpg

    Czyli:
    Excel - VBA/Makro Zmiana nazw plików lub zmiana wartości kolumn

    W załączniku jest xls w którym są dwa arkusze:
    3 - gdzie KOD jest 3 cyfrowy
    4 - gdzie KOD jest 4 cyfrowy

    W obu kolumna A to ID, B to KOD, natomiast C to nazwy plików.

    Wymyśliłem, że najlepiej będzie napisać marko, które będzie brało wartość z 1B szukało jej w kolumnie C i podmieniało na zawartość 1A jeśli znajdzie taką samą (przy czym nie będzie ruszał -#)

    Będę wdzięczny za wszelką pomoc.

    Michał
  • Moderator of Programming
    Zainteresuj się instrukcjami obsługi plików. Np
    Quote:
    Instrukcja używana do zmiany nazwy pliku dyskowego lub folderu (katalogu).

    Składnia rozkazu Name:

    Name StaraNazwa As NowaNazwa
    Sprawdzaj w pętli cztery (trzy w drugim przypadku) znaki od lewej każdego jpg, wyszukaj w kol.B, podstaw z kol.A i zmień nazwę