كيفية فتح جميع ملفات 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، وتم فتح كافة المصنفات الموجودة في المجلد المحدد.

---

قائمة بجميع أسماء الملفات لمجلد واحد محدد مع كوتولس ل إكسيل

باستثناء فتح الملفات في مجلد ، هل سبق لك أن حاولت سرد كافة أسماء الملفات لمجلد واحد محدد؟ مع كوتولس ل إكسيلالصورة قائمة اسم الملف يمكنك سرد جميع الأنواع أو نوع واحد محدد من الملفات بسرعة في مجلد واحد.

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. انقر كوتولس بلس > استيراد و تصدير > قائمة اسم الملف. انظر لقطة الشاشة:

2. في ال قائمة اسم الملف مربع الحوار ، حدد المجلد الذي تريد سرد الملفات منه ، وحدد نوع الملف الذي تريد سرده ، ثم حدد وحدة حجم الملف الذي تريده. إذا أردت ، يمكنك إنشاء ارتباطات تشعبية لأسماء الملفات التي سيتم سردها. انظر لقطة الشاشة:

3. انقر Ok، وتم إدراج كافة الملفات الموجودة في المجلد المحدد في ورقة جديدة من المصنف النشط. انظر لقطة الشاشة:

  سرد كافة أسماء الملفات لمجلد