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 |
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.
5. tık OK Gözat iletişim kutusunda resim adlarını listelemek istediğiniz klasörü seçmeye devam etmek için.
6. tık OK, şimdi seçili klasördeki tüm resim adları Excel'de listelenmiştir.
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.
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. |
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.
2. içinde Dosya Adı Listesi iletişim kutusu, öncelikle tıklayın 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.
3. Ardından adları listelemek istediğiniz dosya formatını seçin. Dosya türü Bölüm.
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.
5. tık Okdosya adlarını ve bazı dosya bilgilerini listelemek için yeni bir sayfa oluşturulacaktır.
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.
Kutools for Excel: + Excel'deki karmaşık görevleri birkaç tıklamayla basitleştiren kullanışlı kullanışlı araçlar.
Örnek Dosyayı İndirin
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
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!