Ana içeriğe atla

Bir klasörün resim adlarını / dosya adlarını Excel hücrelerine nasıl hızlı bir şekilde listeleyebilirim?

Bu eğiticide, gösterilen ekran görüntüsü olarak bir Excel sayfasındaki belirli bir klasörün tüm resim adlarını veya dosya adlarını hızlı bir şekilde listelemek için bazı püf noktaları sunacağım.

HIZLI NAVİGASYON

VBA ile Excel'de bir klasörün resim adlarını listeleyin
Dosya Adı Listesi ile Excel'deki bir klasörün resim adlarını veya belirli biçim dosya adlarını listeleyin
Örnek dosyayı indirin

belge listesi resim adı 1

VBA ile Excel'de bir klasörün resim adlarını listeleyin

Excel'de, bir sayfanın hücresinde seçtiğiniz bir klasörün tüm resim adlarını otomatik olarak listeleyen yerleşik bir işlev yoktur, ancak burada bu işi hızlı bir şekilde çözmenize yardımcı olabilecek bir VBA kodum var.

1. Excel'de, ardından + açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. Açılan pencerede, Ekle > modül yeni bir Modül komut dosyası oluşturmak için.

3. Aşağıdaki kodu kopyalayın ve yeni Modül komut dosyası penceresine yapıştırın.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. Basın F5 tuşuna, ardından resim adlarını yerleştireceğiniz hücreyi seçmeniz için bir iletişim kutusu açılır.
belge listesi resim adı 1

5. tık OK Gözat iletişim kutusunda resim adlarını listelemek istediğiniz klasörü seçmeye devam etmek için.
belge listesi resim adı 3

6. tık OK, şimdi seçili klasördeki tüm resim adları Excel'de listelenmiştir.
belge listesi resim adı 13

Not: VBA kodunda, kod dizesinde jpg / png /… yapabilirsiniz InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Sonra İhtiyacınız olan dosya uzantısına, örneğin, dosyanın dosya adlarını doc biçiminde listelemek istiyorsanız, yalnızca kod dizesini şu şekilde değiştirin: InStr (1, xFileName, ".doc")> 0 ise.

Günlük çalışmanızda genellikle Excel hücresindeki bir klasörün bir veya tüm biçimlerindeki dosya adlarını listelemeniz gerekiyorsa, kod karmaşıktır ve kullanımı kolay değildir, ancak aşağıdaki yolla bu işi hızlı bir şekilde çözebilirsiniz.


ot hareket

Ailenizle Eşlik Etmek İçin Maaş Artışı Yapmak ve Çok Zamanınız mı İstiyorsunuz?

Office Tab Şu Anda Çalışan Microsoft Office'te Verimliliğinizi% 50 Artırıyor

İnanılmaz, iki veya daha fazla belgede çalışmak, bir belgede çalışmaktan daha kolay ve hızlıdır.

İyi bilinen tarayıcılarla karşılaştırıldığında, Office Tab'taki sekmeli araç daha güçlü ve daha verimlidir.

Her gün yüzlerce fare tıklamasını ve klavye yazmayı sizin için azaltın, şimdi fare eline veda edin.

Genellikle birden çok belgede çalışıyorsanız, Office Tab sizin için harika bir zaman kazandıracaktır.

30günlük ücretsiz deneme, Kredi kartına gerek yok.

Devamını OkuŞimdi Bedava İndirin


Dosya Adı Listesi ile Excel'deki bir klasörün resim adlarını veya belirli biçim dosya adlarını listeleyin

İşte bir yardımcı program - Dosya Adı Listesi in Kutools for Excelolabilir

>> yeni bir sayfada bir klasörün tüm dosya formatlarındaki tüm dosya adlarını listeleyin;

>> dosya adlarını Excel'de belirttiğiniz bir veya birkaç dosya biçiminde listeleyin;

>> alt klasörler ve gizli dosyalar ve klasörler dahil dosya adlarını Excel'e listeleyin.

Şimdi Fare Eline ve Servikal Spondiloza Veda Edin

Kutools for Excel'in 300 gelişmiş aracı çözmek %80 Saniyeler içinde Excel görevleri, sizi binlerce fare tıklamasından kurtarır.

1500 çalışma senaryosuyla kolayca başa çıkın, çözüm aramak için zaman kaybetmenize gerek yok, hayatınızın tadını çıkarmak için çok zamanınız olsun.

Elbette siz de dahil olmak üzere, her gün 80'den fazla etkili kişi için% 110000 üretkenliği artırın.

Artık acı veren formüller ve VBA tarafından eziyet edilmeyecek, beyninize bir dinlenme ve neşeli bir çalışma ortamı verin.

Tam özelliklere sahip 30 günlük ücretsiz deneme, sebepsiz 30 günlük para iadesi.

Daha İyi Bir Vücut Daha İyi Bir Yaşam Yaratır.

Kutools for Excel'i ücretsiz kurduktan sonra lütfen aşağıdaki işlemleri yapın:

1. Dosya adlarını listelemek istediğiniz çalışma kitabını etkinleştirin ve ardından Kutools Artı > İthalat / İhracat > Dosya Adı Listesi.
belge listesi resim adı 4

2. içinde Dosya Adı Listesi iletişim kutusu, öncelikle tıklayın  belge listesi resim adı 5 dosya adlarını listelemek istediğiniz bir klasörü seçmek için, daha sonra onay kutularını işaretleyebilirsiniz. Dosyaları alt dizinlere dahil et ve Gizli dosya ve klasörleri dahil et gerek duyduğunuz kadar.
belge listesi resim adı 6

3. Ardından adları listelemek istediğiniz dosya formatını seçin. Dosya türü Bölüm.

Kontrol Tüm dosyalar seçeneği, seçilen klasördeki tüm dosya formatlarındaki tüm dosya adlarını listeleyecektir.
belge listesi resim adı 7
Kontrol ortak seçeneğini seçin ve açılır listeden dosya adlarını listelemek istediğiniz belirli dosya formatını seçin, ardından açılır listede seçtiğiniz dosya formatının tüm dosya adlarını listeleyecektir.
belge listesi resim adı 8
Kontrol Belirtmek seçeneği, ardından dosya adlarını metin kutusunda listelemek istediğiniz dosya uzantılarını yazın (ayırmak için virgül kullanın), ardından yalnızca Excel'de giriş dosya uzantılarıyla dosya adlarını listeler
belge listesi resim adı 9

4. Aşağı açılır listeden ihtiyacınız olan boyut birimini seçin. Dosya boyutu birimi bölümünde, dosya adlarına bir bağlantı oluşturmak istiyorsanız, Köprüler oluştur seçeneği.

belge listesi resim adı 10 belge listesi resim adı 11

5. tık Okdosya adlarını ve bazı dosya bilgilerini listelemek için yeni bir sayfa oluşturulacaktır.
belge listesi resim adı 12

Bahşiş: Excel'deki tüm sayfa adlarını listelemek istiyorsanız, Kutools for Excel'i uygulayabilirsiniz ' Sayfa Adlarının Listesini Oluşturun yardımcı program, tüm bağlanabilir sayfa adlarını listelemek için yeni bir sayfa oluşturacaktır.
sayfa adı listesi oluştur

Kutools for Excel: + Excel'deki karmaşık görevleri birkaç tıklamayla basitleştiren kullanışlı kullanışlı araçlar.


Örnek Dosyayı İndirin

örnek


Kalabalıktan Ayrılmanızı, Kolayca Çalışmanızı ve Hayatın Keyfini Çıkarmanızı Sağlama?

Kutools for Excel her gün ortalama% 80 verimliliğinizi artıracak, ailenize eşlik etmek ve hayatta eğlenmek için çok zamanınız olmasını sağlayacaktır.

300 gelişmiş araç çözümü %80 Excel problemlerine artık çözüm aramakla uğraşmaz, işinizi daha kolay tamamlarsınız.

1500 Excel senaryosunu kolayca işleyin, her gün sizin için en az 1 saat tasarruf edin.

5 dakikada bir Excel uzmanı olun, insanların tanınmasını ve terfi fırsatı kazanın.

Tek tıklamalı yardımcı programlar toplu işlemeyi gerçekleştirir, binlerce fare tıklamasından kaçınmanıza izin verir, fare eline veda edin.

Ezber bozan formüllerden ve karmaşık VBA'dan kurtulun, beyninizi dinlendirin.

110000'den fazla yüksek verimli memur ve 300'den fazla dünyaca ünlü şirketin seçimi.

Yalnızca 39 $ ama diğer insanların 4000 $ 'lık eğitiminden daha değerli

Herhangi bir sınırlama olmaksızın 30 günlük ücretsiz deneme, herhangi bir neden olmaksızın 30 günde tam para iadesi.


Önerilen Üretkenlik Araçları

Office Sekmesi - Microsoft Office 2019-2003 ve Office 365'te Belgeleri Sekmeli Tarama, Düzenleme ve Yönetme


ofis sekmesi

Excel 2019-2007'yi Hızlandırmak için Profesyonel Bir Eklenti, saat görevlerini saniyelerle küçültün

Bu eklenti düzinelerce profesyonel grubu içerir; 300'den fazla seçenek, Excel'deki günlük görevlerinizin çoğunu otomatikleştirecek ve üretkenliğinizi en az% 50 artıracaktır. Tek tıklama seçenekleri ve toplu dönüştürme grupları gibi.
Kutools for Excel ile şimdi kendinizi hızlandırma şansınız!


Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hey! This is super quick and thanks
This comment was minimized by the moderator on the site
Thanks so much for this!
This comment was minimized by the moderator on the site
In Libreoffice Calc I use the function of importing a list of files into the rows / columns of a Calc table, via Macro and based on certain criteria - I have created a button on the toolbar for this particular macro, and after pressing it, I select a folder, and the list of images is immediately inserted into a new document. How to make it as easy as possible in Excel? I have a lot of folders that contain 1 or more images and I need to:
> If the folder contains 1 image, I need it to be on a new line in Excel.
> If the folder contains more images, the first being on a new line and the second either:
- next to the first in the same row (in one column), separated by the character | (example: photo 1.jpeg | photo 2.jpeg)
- or to have their names in the columns (even without the | character) (the first option would be better, but the second is enough as well)

These are the product images whose names I need for import into Woocommerce - via a csv file.
This comment was minimized by the moderator on the site
Amazing! Thank you for sharing!
This comment was minimized by the moderator on the site
Hi,
As per the above code I am getting the the images name in an incrementing order, however the path where the images are being placed are in numeric incrementation.

Kindly suggest how I can keep the same formatting.
This comment was minimized by the moderator on the site
How to export an image with specific file name in excel.
This comment was minimized by the moderator on the site
I WAS HAVING THE SAME PROBLEM TANNER, IN THE SCRIPT WHERE IT HAS THE DIFFERENT FILE EXTENSIONS ITS GOING TO GRAB,YOU HAVE TO CAPITALIZE THE FILE EXTENSION ITS LOOKING FOR, FOR EXAMPLE, YOU SAID YOUR FILES ARE ".png", WELL IF YOU CAPITALIZE IT I.E ".PNG" IT MAY WORK.
This comment was minimized by the moderator on the site
Now it works for me. Thanks!!!
This comment was minimized by the moderator on the site
Is it possible that there is something wrong with the code? The file explorer is showing my folder full of images (.png) as empty.
This comment was minimized by the moderator on the site
Is it possible something is wrong with the code? Because it shows folders full of images (.png) as empty when it pulls up the box to select the photos.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations