小丰 發問時間: 電腦與網際網路軟體 · 5 年前

大量圖檔名 變更

我有接近300張的圖檔

需要變更檔名

一張一張更改太費時

但是我變更的檔名

每張圖都不一樣的編碼

我在excel表格有建立對應的編碼

如何將這個編碼

變更到對應的圖片檔名

麻煩各位幫忙想想辦法

感謝!!

5 個解答

評分
  • 5 年前
    最佳解答

    我個人之前的做法是這樣子,可以參考看看:

    1.編製對照表(Excel)如: 11.jpg 1.jpg 22.jpg 2.jpg 33.jpg 3.jpg 44.jpg 4.jpg 2.執行以下VBA:

    Sub 批次更改檔名()

    On Error Resume Next

    spath = ThisWorkbook.Path & "\JPG" '圖片放在此目錄

    k = 0

    For I = 1 To [A65536].End(xlUp).Row

    x = Left(ActiveSheet.Cells(I, 1), Len(ActiveSheet.Cells(I, 1)) - 4) & ".jpg"

    With Application.FileSearch

    .LookIn = spath

    .Filename = x

    .Execute

    If .FoundFiles.Count > 0 Then

    Name spath & "\" & x As spath & "\" & Left(ActiveSheet.Cells(I, 2), Len(ActiveSheet.Cells(I, 2)) - 4) & ".jpg"

    k = k + 1

    End If

    End With

    Next I

    MsgBox ("共" & k & "筆完成更名")

    End Sub

    3.完成批次更改

    參考資料: 自己的做法
  • 5 年前

    到下面的網址看看吧

    ▶▶http://qaz331.pixnet.net/blog

  • 高興
    Lv 5
    5 年前

    試了Harmonica大師的做法,第二種方式可行,而且很方便,謝謝。

  • 5 年前

    A 欄為原檔名

    B 欄為新檔名

    C1="rename "&A1&" "&B1

    C1="rename "&A1&".jpg"&" "&B1&".jpg"

    下拉複製

    ===

    複製 C 欄

    貼到記事本

    另存成批次檔(存在圖檔所在資料夾)

    點兩下執行批次檔

  • 您覺得這個回答如何?您可以登入為回答投票。
  • 小嵐
    Lv 4
    5 年前

    可以考慮使用rename it

    或是搜尋大量改名

還有問題?馬上發問,尋求解答。