كيفية استيراد ملفات نصية متعددة من مجلد إلى ورقة عمل واحدة؟

على سبيل المثال ، لديك هنا مجلد به عدة ملفات نصية ، ما تريد القيام به هو استيراد هذه الملفات النصية في ورقة عمل واحدة كما هو موضح أدناه. بدلاً من نسخ الملفات النصية واحدًا تلو الآخر ، هل هناك أي حيل لاستيراد الملفات النصية بسرعة من مجلد واحد إلى ورقة واحدة؟

استيراد ملفات نصية متعددة من مجلد واحد إلى ورقة واحدة باستخدام VBA

استيراد ملف نصي إلى الخلية النشطة مع كوتولس ل إكسيل

استيراد ملفات نصية متعددة من مجلد واحد إلى ورقة واحدة باستخدام VBA

فيما يلي رمز VBA يمكن أن يساعدك في استيراد جميع الملفات النصية من مجلد معين إلى ورقة جديدة.

1. قم بتمكين مصنف تريد استيراد ملفات نصية ، واضغط على ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، انسخ والصق رمز VBA أدناه إلى ملف وحدة نافذة.

فبا: استيراد ملفات نصية متعددة من مجلد إلى ورقة واحدة

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    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
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3. صحافة F5 لعرض مربع حوار ، وتحديد مجلد يحتوي على ملفات نصية تريد استيرادها. انظر لقطة الشاشة:

4. انقر OK. ثم تم استيراد الملفات النصية إلى المصنف النشط كورقة جديدة بشكل منفصل.

استيراد ملف نصي إلى الخلية النشطة مع كوتولس ل إكسيل

إذا كنت تريد استيراد ملف نصي واحد إلى خلية أو نطاق معين ، فيمكنك تطبيق كوتولس ل إكسيلالصورة إدراج ملف في المؤشر خدمة.

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

1. حدد خلية تريد استيراد الملف النصي ، وانقر فوق كوتولس بلس > استيراد و تصدير > إدراج ملف في المؤشر. انظر لقطة الشاشة:

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

3. انقر ساعات العمل > Ok، وتم إدراج ملف تحديد النص في موضع المؤشر ، انظر الصورة: