كيف تسرد أسماء الصور / أسماء الملفات للمجلد بسرعة إلى خلايا Excel؟
في هذا البرنامج التعليمي ، سأقدم بعض الحيل حول سرد جميع أسماء الصور أو أسماء الملفات لمجلد معين في ورقة Excel بسرعة كما تظهر لقطة الشاشة. الإنتقال السريع سرد أسماء الصور لمجلد في Excel باستخدام VBA |
سرد أسماء الصور لمجلد في Excel باستخدام VBA
في Excel ، لا توجد وظيفة مضمنة يمكنها تلقائيًا سرد جميع أسماء الصور للمجلد الذي تختاره في خلية من ورقة ، ولكن لدي هنا رمز VBA الذي يمكن أن يساعدك في حل هذه المهمة بسرعة.
1. في Excel ، ثم اضغط على + مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإنشاء برنامج نصي جديد للوحدة النمطية.
3. انسخ الكود أدناه والصقه في نافذة البرنامج النصي للوحدة النمطية الجديدة.
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. صحافة F5 مفتاح ، ثم ينبثق مربع حوار لتحديد خلية لوضع أسماء الصور.
5. انقر OK لمواصلة تحديد المجلد الذي تريده لإدراج أسماء الصور في مربع الحوار "استعراض".
6. انقر OK، الآن تم إدراج جميع أسماء الصور في المجلد المحدد في Excel.
ملحوظة: في كود VBA ، يمكنك jpg / png /… في سلسلة التعليمات البرمجية إذا كان InStr (1، xFileName، ".jpg") + InStr (1، xFileName، ".png") + InStr (1، xFileName، ".img") + InStr (1، xFileName، ".ioc") + InStr (1، xFileName، ".bmp") > 0 ثم إلى امتداد الملف الذي تحتاجه ، على سبيل المثال ، إذا كنت ترغب في سرد أسماء ملفات الملف بتنسيق doc ، فقم فقط بتغيير سلسلة التعليمات البرمجية إلى إذا كان InStr (1، xFileName، ".doc")> 0 ثم.
إذا كنت تحتاج عادةً إلى إدراج اسم ملف واحد أو جميع التنسيقات لمجلد في خلية Excel في عملك اليومي ، فإن الكود معقد وليس من السهل التعامل معه ، ولكن بالطريقة التالية ، يمكنك حل هذه المهمة بسرعة.
هل ترغب في الحصول على زيادة في الأجور وكثير من الوقت لمرافقة العائلة؟ يعمل Office Tab على تحسين كفاءتك بنسبة 50٪ في Microsoft Office الذي يعمل الآن لا يمكن تصديق أن العمل في مستندين أو أكثر أسهل وأسرع من العمل في مستند واحد. بالمقارنة مع المتصفحات المعروفة ، فإن الأداة المبوبة في Office Tab أكثر قوة وفعالية. قلل مئات النقرات على الماوس وكتابة لوحة المفاتيح كل يوم من أجلك ، وداعًا يد الماوس الآن. إذا كنت تعمل عادةً في مستندات متعددة ، فسيوفر Office Tab وقتًا رائعًا بالنسبة لك. 30- يوم تجريبي مجاني، بطاقة الإئتمان غير مطالب بها. |
سرد أسماء الصور أو أسماء ملفات التنسيق المحددة لمجلد في Excel مع قائمة اسم الملف
هنا فائدة - قائمة اسم الملف in كوتولس ل إكسيل، والتي يمكن
>> قائمة بجميع أسماء الملفات في جميع تنسيقات الملفات لمجلد في ورقة جديدة ؛
>> سرد أسماء الملفات في تنسيق واحد أو عدة تنسيقات ملفات تحددها لبرنامج Excel ؛
>> قائمة بأسماء الملفات بما في ذلك المجلدات الفرعية والملفات والمجلدات المخفية لبرنامج Excel.
قل وداعا ليد الفأر وداء الفقار العنقي الآن
300 أداة متقدمة من Kutools for Excel حل 80% مهام Excel في ثوانٍ ، تسحبك من آلاف النقرات بالماوس.
تعامل بسهولة مع 1500 سيناريو عمل ، لا داعي لإضاعة الوقت في البحث عن حلول ، لديك الكثير من الوقت للاستمتاع بحياتك. قم بتحسين إنتاجية 80٪ لأكثر من 110000 شخص ذو كفاءة عالية كل يوم ، بالطبع بما فيهم أنت. لم تعد تتعذب من الصيغ المؤلمة و VBA ، امنح عقلك راحة ومزاج عمل بهيج. نسخة تجريبية مجانية مدتها 30 يومًا مع ميزات كاملة، واسترداد الأموال لمدة 30 يومًا دون أسباب. الجسم الأفضل يصنع حياة أفضل. |
بعد التثبيت المجاني Kutools for Excel ، يرجى القيام بما يلي:
1. قم بتمكين المصنف الذي تريده لسرد أسماء الملفات ، ثم انقر فوق كوتولس بلس > استيراد و تصدير > قائمة اسم الملف.
2. في ال قائمة اسم الملف الحوار ، أولا ، انقر فوق لتحديد مجلد تريد سرد أسماء الملفات الخاصة به ، ثم يمكنك تحديد مربعات الاختيار الخاصة به تضمين الملفات في الدلائل الفرعية و تشمل الملفات والمجلدات المخفية ما تحتاج إليه.
3. ثم حدد تنسيق الملف الذي تريد إدراج الأسماء به نوع الملفات والقسم الخاص به.
4. اختر وحدة الحجم التي تريدها من القائمة المنسدلة في وحدة حجم الملف القسم ، إذا كنت تريد إنشاء ارتباط لأسماء الملفات ، فتحقق إنشاء ارتباطات تشعبية الخيار.
5. انقر Ok، سيتم إنشاء ورقة جديدة لسرد أسماء الملفات وبعض معلومات الملف.
تلميح: إذا كنت ترغب في إدراج جميع أسماء الأوراق في Excel ، يمكنك تطبيق Kutools for Excel ' قم بإنشاء قائمة بأسماء الأوراق الأداة المساعدة ، سيتم إنشاء ورقة جديدة لسرد جميع أسماء الأوراق القابلة للربط.
كوتولس ل إكسيل: + أدوات يدوية مفيدة ، وتبسيط المهام المعقدة في Excel في بضع نقرات.
تنزيل نموذج ملف
كيف تجعلك متميزًا بين الحشود ، وتعمل بسهولة وتستمتع بالحياة على مهل?
ستعمل Kutools for Excel على تحسين كفاءتك بنسبة 80% كل يوم، وتجعل لديك الكثير من الوقت لمرافقتك مع العائلة والاستمتاع بالحياة.
300 أداة متقدمة حل 80% مشاكل Excel ، لم تعد تكافح للبحث عن حلول ، وإكمال العمل بسهولة أكبر.
تعامل بسهولة مع 1500 سيناريوهات Excel ، وفر ساعة واحدة على الأقل لك كل يوم.
كن خبيرًا في برنامج Excel في 5 دقائق ، واكسب اعتراف الناس وفرصة الترقية.
تعمل الأدوات المساعدة بنقرة واحدة على معالجة الدُفعات ، وتتيح لك تجنب آلاف النقرات بالماوس ، وداعًا بيد الماوس.
تخلص من صيغ الحفظ عن ظهر قلب و VBA المعقدة ، وأعطي راحة لعقلك.
أكثر من 110000 من الضباط ذوي الكفاءة العالية واختيار 300+ من الشركات المشهورة عالميًا.
خذ 39 دولارًا فقط ولكن تدريبًا لأشخاص آخرين بقيمة تزيد عن 4000 دولار
تجربة مجانية لمدة 30 يومًا دون أي قيود، واسترداد الأموال بالكامل خلال 30 يومًا دون أي أسباب.
أدوات الإنتاجية الموصى بها
علامة تبويب Office - الاستعراض المبوب وتحرير وإدارة المستندات في Microsoft Office 2019-2003 و Office 365
وظيفة إضافية احترافية لتسريع Excel 2019-2007 ، تعمل على تقليص مهام الساعات إلى ثوانٍ
تتضمن هذه الوظيفة الإضافية العشرات من المجموعات المهنية ، مع أكثر من 300 خيارًا ستعمل على أتمتة معظم مهامك اليومية في Excel ، وتزيد من إنتاجيتك بنسبة 50٪ على الأقل. مثل مجموعات الاختيارات بنقرة واحدة والتحويلات المجمعة.
الآن هي فرصتك لتسريع نفسك مع Kutools for Excel!