كيفية فتح جميع ملفات Excel بسرعة من مجلد؟
في هذه المقالة ، أقدم الماكرو لفتح جميع المصنفات من مجلد معين.
افتح كل المصنفات في مجلد باستخدام VBA
قائمة بجميع أسماء الملفات لمجلد واحد محدد مع كوتولس ل إكسيل 
افتح كل المصنفات في مجلد باستخدام VBA
1. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود أدناه في البرنامج النصي.
VBA: افتح جميع ملفات Excel في مجلد
Sub OpenFiles()
'UpdateByExtendoffice20160623
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
xFile = Dir(xStrPath & "\*.xlsx")
Do While xFile <> ""
Workbooks.Open xStrPath & "\" & xFile
xFile = Dir
Loop
End Sub
3. صحافة F5 المفتاح ، يظهر مربع حوار لتحديد المجلد الذي تريد فتح جميع المصنفات الموجودة فيه. انظر لقطة الشاشة:
4. انقر OK، وتم فتح كافة المصنفات الموجودة في المجلد المحدد.
قائمة بجميع أسماء الملفات لمجلد واحد محدد مع كوتولس ل إكسيل
باستثناء فتح الملفات في مجلد ، هل سبق لك أن حاولت سرد كافة أسماء الملفات لمجلد واحد محدد؟ مع كوتولس ل إكسيلالصورة قائمة اسم الملف يمكنك سرد جميع الأنواع أو نوع واحد محدد من الملفات بسرعة في مجلد واحد.
| كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. انقر كوتولس بلس > استيراد و تصدير > قائمة اسم الملف. انظر لقطة الشاشة:
2. في ال قائمة اسم الملف مربع الحوار ، حدد المجلد الذي تريد سرد الملفات منه ، وحدد نوع الملف الذي تريد سرده ، ثم حدد وحدة حجم الملف الذي تريده. إذا أردت ، يمكنك إنشاء ارتباطات تشعبية لأسماء الملفات التي سيتم سردها. انظر لقطة الشاشة:
3. انقر Ok، وتم إدراج كافة الملفات الموجودة في المجلد المحدد في ورقة جديدة من المصنف النشط. انظر لقطة الشاشة:
سرد كافة أسماء الملفات لمجلد
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
