كيف يتم استيراد ملفات CSV / text / xml متعددة بسرعة في Excel؟
في Excel ، ربما تكون قد ربطت حفظ مصنف كملف csv أو ملف نصي أو ملف xml ، ولكن هل سبق لك أن حاولت استيراد ملفات csv / text / xml متعددة من مجلد إلى مصنف أو ورقة عمل؟ في هذه المقالة ، أقدم بعض الطرق لاستيرادها دفعة واحدة بسرعة.
قم باستيراد ملفات نصية متعددة من مجلد إلى كل أوراق عمل في مصنف باستخدام VBA
استيراد ملفات CSV متعددة من مجلد إلى ورقة واحدة باستخدام VBA
استيراد ملفات xml متعددة من مجلد إلى ورقة واحدة باستخدام VBA
قم باستيراد أو دمج ملفات xml / csv متعددة في ورقة أو مصنف باستخدام Kutools for Excel
قم بتصدير كل ورقة بتنسيق csv / text / pdf إلى مجلد باستخدام Kutools for Excel
قم باستيراد ملفات نصية متعددة من مجلد إلى كل أوراق عمل في مصنف باستخدام VBA
لاستيراد ملفات نصية من مجلد إلى مصنف ، يمكنك استخدام VBA أدناه للتعامل معها بسرعة.
1. قم بتمكين مصنف فارغ ، واضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق VBA في ملف وحدة نافذة.
فبا: استيراد كافة الملفات النصية من مجلد إلى مصنف
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub
3. صحافة F5 مفتاح أو يجري زر لتشغيل VBA ، وحدد المجلد الذي تريد استيراد الملفات النصية منه في مربع الحوار الذي يظهر. انظر لقطة الشاشة:
4. وانقر OK، وتم استيراد كل ملف نصي في المجلد المحدد إلى ورقة عمل واحدة من المصنف النشط. انظر لقطة الشاشة:
ادمج بسهولة أوراق / مصنف متعدد في ورقة واحدة أو مصنف واحد
|
قد يكون دمج الأوراق المتعددة أو المصنفات في ورقة واحدة أو مصنف واحد أمرًا صعبًا في Excel ، ولكن مع ملحق دمج في Kutools for Excel ، يمكنك دمج عشرات الأوراق / المصنفات في ورقة واحدة أو مصنف واحد ، كما يمكنك دمج الأوراق في واحدة بعدة نقرات فقط. انقر للحصول على نسخة تجريبية مجانية كاملة المواصفات لمدة 30 يومًا! |
Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30 |
استيراد ملفات CSV متعددة من مجلد إلى ورقة واحدة باستخدام VBA
لاستيراد جميع ملفات csv من مجلد في ورقة واحدة ، يمكنك استخدام رمز VBA أدناه.
1. قم بتمكين ورقة عمل فارغة ، ثم اضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق أدناه VBA في ملف وحدة نافذة.
فبا: استيراد ملفات csv من مجلد إلى ورقة عمل واحدة
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub
3. صحافة F5 مفتاح أو انقر يجري لتنفيذ VBA ، وينبثق مربع حوار لتحديد المجلد الذي تريد استيراد جميع ملفات csv منه. انظر لقطة الشاشة:
4. انقر OK، وينبثق مربع حوار لتذكيرك إذا قمت بمسح محتويات ورقة العمل النشطة قبل الاستيراد ، هنا أنقر نعم. انظر لقطة الشاشة:
بعد النقر نعم، يتم استيراد جميع ملفات csv في المجلد المحدد إلى الورقة الحالية ، ووضع البيانات من العمود A إلى اليمين. انظر لقطة الشاشة:
تلميح: إذا كنت تريد وضع ملفات csv أفقيًا في ورقة عمل ، فيمكنك استخدام VBA أدناه.
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub
استيراد ملفات xml متعددة من مجلد إلى ورقة واحدة باستخدام VBA
إذا كنت تريد استيراد جميع ملفات XML من مجلد إلى ورقة واحدة ، فيمكنك استخدام رمز VBA أدناه.
1. حدد ورقة فارغة تريد وضع البيانات المستوردة ، واضغط على ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، قم بلصق كود VBA في ملف وحدة نافذة.
فبا: استيراد ملفات XML من مجلد إلى ورقة عمل.
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub
3. انقر يجري زر أو F5 مفتاح لتشغيل VBA ، وحدد مجلدًا في مربع الحوار ، انظر لقطة الشاشة:
4. انقر OK، ويتم استيراد كافة ملفات XML الموجودة في المجلد المحدد إلى الورقة النشطة.
قم باستيراد أو دمج ملفات xml / csv متعددة في ورقة أو مصنف باستخدام Kutools for Excel
إذا لم تكن معتادًا على VBA ، فلا داعي للقلق ، فأنا أقدم هنا أداة مفيدة - كوتولس ل إكسيل لك. مع قوتها دمج يمكنك دمج ملفات xml أو ملفات csv المتعددة بسرعة في مصنف واحد أو ورقة Excel واحدة.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. | ||
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)
1. اكسل اكسل ، وانقر كوتولس بلس > دمج. انظر لقطة الشاشة :
2. وفي الخطوة 1 من الدمج مربع حوار ، اختر خيار فصل واحدًا حسب حاجتك. انظر لقطة الشاشة:
3. انقر التالى للذهاب إلى الخطوة 2 من الدمج، اضغط هنا أضف لإضافة ملفات من مجلدات أو ملفات مختلفة من مجلد واحد إلى مصنف القائمة ، ويمكنك أيضًا تحديد الأوراق التي تريد الجمع منها ورقة العمل قائمة القسم الصحيح. انظر لقطة الشاشة:
4. انقر التالى إلى الخطوة الأخيرة من دمج، ويمكنك تحديد خيارات الدمج.
5. انقر نهاية، يظهر مربع حوار لتذكيرك بتحديد موقع لحفظ النتيجة المدمجة الجديدة. انظر لقطة الشاشة:
6. انقر حفظ. تم دمج جميع أوراق الإضافة في ورقة واحدة جديدة.
تلميح: بدافع دمج، يمكنك أيضًا الجمع بين عدة ملفات ملفات كسف تشكيل عدة مجلدات أو مجلد واحد في ورقة واحدة أو مصنف.
ادمج عدة ملفات XML / CVS في ورقة / مصنف واحد
قم بتصدير كل ورقة بتنسيق csv / text / pdf إلى مجلد باستخدام Kutools for Excel
إذا كنت تريد تصدير كل ورقة كملف csv / text / pdf إلى مجلد ، كوتولس ل إكسيلالصورة انقسام وركبوك يمكن أن تقدم فائدة لك.
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. قم بتمكين المصنف الذي تريد تصدير أوراق العمل الخاصة به ، وانقر فوق كوتولس بلس > مصنف > انقسام وركبوك. انظر لقطة الشاشة:
2. في ال انقسام وركبوك مربع الحوار ، يمكنك التحقق من أسماء الأوراق التي تحتاج إلى تصديرها ، ويتم فحص جميع الأوراق افتراضيًا والتحقق منها حدد تنسيق الحفظ وحدد تنسيق الملف الذي تريد حفظه من القائمة المنسدلة أدناه. انظر لقطة الشاشة:
3. انقر الانقسام وحدد مجلدًا لحفظ الملفات المقسمة بتنسيق قم بالاستعراض بحثًا عن مجلد الحوار ، انظر لقطة الشاشة:
4. انقر OK، الآن يتم تصدير جميع الأوراق المحددة بتنسيق ملف جديد في المجلد المحدد.
قم بتصدير كل ورقة على هيئة ملف XML / CSV / TXT / PDF واحد
مقالات ذات صلة:
- كيفية تحويل الارتباط التشعبي إلى نص عادي في إكسيل؟
- كيفية تحويل الرقم العشري إلى رقم ثنائي / ثماني / ست عشري أو العكس في إكسيل؟
- كيفية إدراج سعر الصرف المباشر في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!