İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də bir qovluğun birdən çox faylını necə adlandırmaq olar?

Çoxumuz bu qovluqda birdən çox faylın adını dəyişmək, filenamesləri bir-bir adını dəyişdirmək üçün bu problemlə əziyyət çəkir ola bilərik ki, bu qovluqda yüzlərlə və ya minlərlə fayl varsa, bizi çıldırarsın. Bu tapşırıqla məşğul olmaq bizim üçün yaxşı bir funksiya varmı?

Excel-də kutularla iş səhifəsində xüsusi bir qovluqdakı bütün fayl adlarını qeyd edin

VBA kodu ilə Excel-də bir qovluq birdən çox faylın adını dəyişin



Yenisini adlandırmaq istədiyiniz bir neçə fayl varsa, əvvəlcə iş faylının sütununda köhnə fayl adlarını qeyd edə və sonra dəyişdirmək istədiyiniz yeni faylları daxil edə bilərsiniz. Çalışma kitabında bütün faylları tez bir şəkildə siyahıya almaq üçün, istifadə edə bilərsiniz Excel üçün Kutools'S Filename siyahısı kommunal.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, xahiş edirəm :( İndi Excel üçün Pulsuz Kutools Download )

1. Basın Müəssisə > İdxal ixrac > Filename siyahısı, bax ekran görüntüsü:

doc-rename-multiple-files-1

2. İçində Filename siyahısı informasiya qutusuna basın doc-rename-multiple-files-1 faylları siyahıda yerləşdirmək istədiyiniz fayl qovluğunu seçmək üçün düyməsini basın və sonra basın Bütün fayllar dən Fayl tipi, bax ekran görüntüsü:

doc-rename-multiple-files-1

3. Sonra basın OK düyməsi, bütün filenames yeni bir iş sütununda, həmçinin bəzi fayl xüsusiyyətlərində siyahıdadır və indi digər istenmeyen sütunları silə bilərsiniz və yalnız Fayl adı sütun, ekran bax:

doc-rename-multiple-files-1

Bu Fayl Adı Siyahısı xüsusiyyəti haqqında daha ətraflı məlumat üçün tıklayın ...

İndi Excel üçün Pulsuz Kutools Download


A sütununda bütün orijinal faylların siyahısını təqdim etdikdən sonra aşağıdakı sütundakı B şəklində yeni filename yazmalısınız:

doc-rename-multiple-files-1

Və burada bir dəfə VBA kodu haqqında köhnə filenames bir dəfə yeni filenames ilə əvəz kömək edə bilər. Xahiş edirik, aşağıdakı adımlarla:

1. Basıb saxlayın ALT + F11 düymələri və açar Proqramlar üçün Microsoft Visual Basic.

2. Basın Taxmaq > Modules, və aşağıdakı makroyu yapışdırın Modul pəncərəsi.

VBA kodu: Bir qovda birdən çox faylın adını dəyişin

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

3. Kodu bağladıktan sonra, mətbuatın üzərinə basın F5 bu kodu çalıştırmak üçün düyməsini basın və İnsanlar pəncərədə fayl adlarını dəyişdirmək istədiyiniz qovluğu seçin, ekran görünüşünə baxın:

doc-rename-multiple-files-1

4. Və sonra basın OKbütün eski fayllar dərhal yeni fayl adları ilə əvəz edilmişdir. Ekranlara baxın:

doc-rename-multiple-files-1  2 doc-rename-multiple-files-1

Qeydlər:

1. Köhnə və yeni filenamlarınızı qeyd edərkən, fayl uzantısı daxil edilməlidir.

2. Yuxarıdakı kodda istinad A: A adını dəyişmək və istinad etmək istədiyiniz köhnə faylların siyahısını göstərir B istifadə etmək istədiyiniz yeni faylları ehtiva edir, siz onları ehtiyacınız kimi dəyişə bilərsiniz


Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


Related articles:

Excel-də bir sıra hüceyrələrdən ardıcıl iş səhifələri necə yaratmaq olar?

Excel-də bir çox iş səhifəsinin adını necə dəyişə bilərəm?



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jayakumar · 6 months ago
    Hi,

    I'm trying to use the code for renaming the non extension files to files with extension. it doesn't work. It works fine with files which have extension already.

    Thanks
    Jay
  • To post as a guest, your comment is unpublished.
    cda · 7 months ago
    Thank you so much...
  • To post as a guest, your comment is unpublished.
    Gee Kay · 9 months ago
    Hello, some of the files have same name. Scripts skip those files. Is there a way to modify the script so it adds a number 1, 2, 3 and so on for every duplicate name?
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hello, Kay,
      To rename the files based on duplicate new names with name-1,name-2, the following VBA code may help you, please try it.

      Note: After pasting this code, you should reference the Microsoft Scripting Runtime option in the References-VBAProject dialog box as below screenshot shown.

      Sub RenameFiles()
      Dim xDir As String
      Dim xFile As String
      Dim xVal As String
      Dim xRow As Long
      Dim xCount As Long
      Dim xTemp As Long
      Dim xDictionary As New Dictionary
      Application.ScreenUpdating = False
      On Error Resume Next
      With Application.FileDialog(msoFileDialogFolderPicker)
      .AllowMultiSelect = False
      If .Show = -1 Then
      xDir = .SelectedItems(1)
      xFile = Dir(xDir & Application.PathSeparator & "*")
      Do Until xFile = ""
      xRow = 0
      xRow = Application.Match(xFile, Range("A:A"), 0)
      If xRow > 0 Then
      xCount = 0
      xVal = Cells(xRow, "B").Value
      If Not xDictionary.Exists(xVal) Then
      xDictionary.Add xVal, xCount
      Else
      xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
      xTemp = InStrRev(xVal, ".")
      Cells(xRow, "B").Value = Mid(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
      End If
      Name xDir & Application.PathSeparator & xFile As _
      xDir & Application.PathSeparator & Cells(xRow, "B").Value
      End If
      xFile = Dir
      Loop
      End If
      End With
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Hemant · 1 years ago
    I am following the same process but couldn't succeeded in renaming the file i am also changing ("A:A") and ("B"). Is there any other valuve which i need to change in the code
  • To post as a guest, your comment is unpublished.
    Dee · 1 years ago
    I cant understand with range ( A:A) or (B) how to define that, thank you
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, Dee,

      As the note remind, the reference A:A indicates the old filenames list you want to rename, and reference B contains the new filenames that you want to use
      , as following screenshot shown:

      Hope this can help you, thank you!