İ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

Bir qovluqdakı şəkil adlarını / fayl adlarını Excel hüceyrələrinə tez bir şəkildə necə qeyd etmək olar?

Bu təlimatda göstərilən ekran görüntüsü kimi bir Excel hesabatında müəyyən bir qovluqdakı bütün şəkil adlarını və ya fayl adlarını tez bir zamanda siyahıya salmaq üçün bir sıra fəndlər verəcəyəm.

QUICK NAVIGATION

VBA ilə Excel-də bir qovluqun şəkil adlarını yazın
Filename siyahısı ilə Excel-də qovluqdakı şəkil adlarını və ya xüsusi format fayl adlarını göstərin
Örnek faylını endirin

doc siyahısı şəkil adı 1

Asanlıqla bir faylın bütün və ya bir fayl formatından birinə Excel cibinə yazmaq

Bəzi hallarda, Excel hesabatında bir qovluqda fayl adları siyahısını əldə etmək olar, ancaq onları əllə birləşdirərək bir-bir siyahıya salmaq vaxt sərf edəcəkdir. Burada Filename siyahısı Excel üçün Kutools proqramında sizə lazım olan fayl adlarını qeyd etmək üçün bütün faylları / Ümumi / Xüsusi seçimini seçə bilərsiniz.
Excel üçün Kutools: 110000 + istifadəçilərin seçimi, 300 + inkişaf etmiş xüsusiyyətlər gündəlik işinizi artıracaq.

siyahısı fayl adı

VBA ilə Excel-də bir qovluqun şəkil adlarını yazın

İnanılmaz! Bir alət, birdən çox Office sənədinin redaktə edilməsi və gəzən şəkildə dəyişir.

Birdən çox pəncərədə faylları açın

Office sekmesiyle bir sekmeli pəncərədə faylları açın

əvvəllər arrow ot 1

Office Download Tablosu

Excel-də, bir hesabatın hüceyrəsində seçdiyiniz bir qovluqun bütün şəkil adlarını avtomatik olaraq siyahıya ala biləcək funksiya yoxdur, ancaq burada mən bu işi tez həll etməyə kömək edə biləcək bir VBA kodu var.

1. Excel'de, sonra basın + açmaq üçün açarlar Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Pəncərəni açarkən, klikləyin Taxmaq > Modules yeni bir Modul skript yaratmaq.

3. Koddan kopyalayıb onları yeni Modul skript pəncərəsinə yapışdırın.

Sub PictureNametoExcel () 'UpdatebyExtendoffice Dim kimi mən uzun Dim xRg kimi sıra Dim xAddress kimi String Dim xFileName kimi dize Dim xFileDlg kimi FileDialog Dim xFileDlgItem Variant kimi səhv davam Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox (" xRg Nothing Sonra Sub Application.ScreenUpdating = False Set xRg = xRg (8) xRg.Value = "Picture Name" ("Xeyr", "Xeyr", "Excel üçün Kutools" XRg.Font ilə .Adı = "Arial" .FontStyle = "Bold" .Size = 1 Son xRg.EntireColumn.AutoFit ilə xFileDlg = Application.FileDialog (msoFileDialogFolderPicker) I = 10 Əgər xFileDlg.Show = 1 Sonra xFileDlgItem = xFileDlg XFileName = "xFileName" xətti ilə "xətti" xəttini göstərin. "" InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp")> 1 Sonra xRg.Offset (I) .Value = xF ileDlgItem & "\" & xFileName I = I + 1 Son XFileName = Dir Loop End əgər Application.ScreenUpdating = True End Sub

4. Basın F5 düyməsini basdıqdan sonra şəkil adlarını yerləşdirmək üçün bir hüceyrəni seçmək üçün bir dialoq çıxır.
doc siyahısı şəkil adı 1

5. klik OK İnsanlar diyalogunda şəkil adlarını siyahıya almaq istədiyiniz qovluğu seçməyə davam etməkdir.
doc siyahısı şəkil adı 3

6. klik OK, seçilmiş qovluqdakı bütün şəkil adları Excel-də siyahıya alınmışdır.
doc siyahısı şəkil adı 13

Qeyd: VBA kodunda, kod satırında jpg / png / ... edə bilərsiniz INStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 Sonra faylın fayl adlarını doc formatında siyahıda yerləşdirmək istəyirsinizsə, yalnız kodu dizesini dəyişdirin. InStr (1, xFileName, ".doc")> 0 Sonra.

Gündəlik işinizdə Excel cibində bir və ya bütün formatın fayl adlarını siyahıya almalısınızsa, kodu kompleks və idarə etmək asan deyil, ancaq aşağıda bu işi tez həll edə bilərsiniz.


Filename siyahısı ilə Excel-də qovluqdakı şəkil adlarını və ya xüsusi format fayl adlarını göstərin

Burada bir yardım proqramı - Filename siyahısı in Excel üçün Kutools, ola bilər

>> yeni bir hesabatdakı qovluğun bütün fayl formatlarında bütün fayl adlarını;

>> Excel-də göstərdiyiniz bir və ya bir neçə fayl formatında fayl adlarını sıralayın;

alt siyahı və gizli fayllar və qovluqlar daxil olmaqla, siyahısı fayl adları.

Excel üçün Kutools

300 + qabaqcıl xüsusiyyətlər
Tam özellikli 60 gün ərzində pulsuz sınaq
>> Vərəqələri və ya iş kitablarını birinə birləşdirin
>> Rənglə say / həcmli hüceyrələr
>> Partiya aparıcı sıfırları çıxarır
>> Bir sətir və sətirlə bir hüceyrəni split və s ..


Excel üçün pulsuz Kutools quraşdırıldıqdan sonra aşağıdakıları edin:

1. Fayl adlarını siyahıda yerləşdirmək istədiyiniz iş kitabını aktivləşdirin və sonra basın Kutools Plus > İdxal / İxrac > Filename siyahısı.
doc siyahısı şəkil adı 4

2. İçində Filename siyahısı dialoq, ilk növbədə, vurun doc siyahısı şəkil adı 5 fayl adlarını yazmaq istədiyiniz bir qovluq seçmək üçün, sonra da onay kutularını kontrol edə bilərsiniz Faylları alt dizinlərdə əlavə edin Gizli faylları və qovluqları daxil edin ehtiyacınız olduğu halda.
doc siyahısı şəkil adı 6

3. Sonra adları siyahıda yerləşdirmək istədiyiniz fayl formatını seçin Fayl tipi bölmə.

Check Bütün fayllar seçimi, seçilmiş qovluğun bütün fayl formatlarında bütün fayl adlarını göstərəcəkdir
doc siyahısı şəkil adı 7
Check Ümumi seçimi və açılan siyahıdan fayl adlarını siyahıya almaq istədiyiniz xüsusi fayl formatını seçin, sonra açdığınız siyahıda seçdiyiniz fayl formatının bütün fayl adlarını qeyd edəcəyik
doc siyahısı şəkil adı 8
Check Dəqiqləşdirmək sonra, mətn qutusuna fayl adlarını yazmaq istədiyiniz fayl uzantılarını (onları ayırmaq üçün virgülle) yazın, sonra yalnız fayl adlarını Excel
doc siyahısı şəkil adı 9

4. Sizə lazım olan ölçü vahidini aşağı açılan siyahıdan seçin Fayl ölçüsü vahidi bölmə, fayl adlarına bir keçid yaratmaq istəyirsinizsə, yoxlayın Hiperlinklər yaradın seçin.

doc siyahısı şəkil adı 10 doc siyahısı şəkil adı 11

5. klik Ok, fayl adlarını və bəzi fayl məlumatlarını göstərmək üçün yeni bir hesabat yaradılacaq.
doc siyahısı şəkil adı 12

Ip ucu: Excel-də bütün hesabat adlarını qeyd etmək istəyirsinizsə, Excel üçün Kutools- Sehife adlarının siyahısı yaradın kommunal, bütün bağlana bilən hesabat adlarının siyahısını göstərmək üçün yeni bir hesabat yaradır.
hesabat adı siyahısı yaradın

Excel üçün Kutools: 300 + bir neçə klikə Excel-də çətin vəzifələri asanlaşdırmaq üçün lazımlı lazımlı alətlər.


Nümunə Faylını Yükləyin

örnək


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

Office Tab - Microsoft Office 2019-2003 və Office 365-də Sekmeli Tarama, Redaktə etmə, Sənədlərin İdarə edilməsi


ofis nişanı

Excel 2019-2007 sürətləndirmək üçün Professional Add-in, saat işlərini saniyəyə azaldın

Bu əlavə 300 + variantları Excel-də gündəlik vəzifələrinizin əksəriyyətini avtomatlaşdırır və məhsuldarlığınızı ən az 50% ilə artıracaq onlarla professional qrup daxildir. Bir klikli optons və partiyaların dönüşüm qrupları kimi.
İndi Excel üçün Kutools ilə özünüzü sürətləndirmək şansınız!


kutools sekmesi
kutoolsp sekmesi
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.
    THE HELPER · 7 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Tanner Haynes · 8 months ago
    Is it possible that there is something wrong with the code? The file explorer is showing my folder full of images (.png) as empty.
  • To post as a guest, your comment is unpublished.
    Tanner · 8 months ago
    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.