انتقل إلى المحتوى الرئيسي

كيفية تحويل ملفات xls متعددة إلى ملفات xlsx في إكسيل؟

لتحويل ملف xls Excel قديم إلى ملف xlsx جديد ، يمكنك تطبيق ميزة Save As في Excel ، ولكن إذا كانت هناك ملفات xls متعددة تحتاج إلى تحويل ، فكيف يمكن التعامل مع هذه المهمة بسرعة وسهولة؟


قم بتحويل تنسيقات xls المتعددة إلى تنسيقات xlsx باستخدام وظيفة Save As واحدًا تلو الآخر

يمكن أن تساعدك وظيفة "حفظ باسم" في Excel على تحويل تنسيق xls الخاص بالمصنف القديم إلى تنسيق xlsx جديد واحدًا تلو الآخر.

1. افتح المصنف الذي تريد تحويل تنسيقه.

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

3. ثم اضغط حفظ زر لإغلاق مربع الحوار ، وقد تم تحويل تنسيق Excel هذا من xls إلى xlsx.

تنويهات: مع هذا حفظ باسم وظيفة ، فأنت تقوم فقط بتحويل ملف Excel واحد في كل مرة ، إذا كان لديك مئات من ملفات Excel تحتاج إلى التحويل ، فهذه الطريقة ليست خيارًا جيدًا.

قم بتحويل عدة تنسيقات xls إلى تنسيقات xlsx مرة واحدة باستخدام كود VBA

إذا كنت ترغب في تحويل ملفات xls متعددة إلى ملفات xlsx مرة واحدة دون حفظ واحد تلو الآخر ، هنا ، سأتحدث عن رمز VBA من أجلك ، يرجى اتباع الخطوات التالية:

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

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: تحويل تنسيقات xls متعددة إلى تنسيقات xlsx مرة واحدة

Sub ConvertToXlsx()
'Updateby Extendoffice
Dim strPath As String
Dim strFile As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath As String
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the xls files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a folder for outputting the new files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
strFile = Dir(strPath & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While strFile <> ""
If Right(strFile, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & strFile)
xWbk.SaveAs Filename:=xRPath & strFile & "x", _
FileFormat:=xlOpenXMLWorkbook
xWbk.Close SaveChanges:=False
End If
strFile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيتم عرض نافذة ، يرجى تحديد مجلد يحتوي على ملفات xls التي تريد تحويلها ، انظر الصورة:

4. ثم اضغط OK، انبثقت نافذة أخرى ، يرجى تحديد مسار المجلد حيث تريد إخراج الملفات المحولة الجديدة ، انظر لقطة الشاشة:

5. وبعد ذلك ، clik OK، بعد الانتهاء من التحويل يمكنك الذهاب إلى المجلد المحدد لمعاينة النتيجة المحولة ، انظر لقطات الشاشة:


قم بتحويل تنسيقات xls المتعددة إلى تنسيقات xlsx مرة واحدة باستخدام ميزة قوية

مع هذا كوتولس ل إكسيلالصورة تنسيق تحويل الأداة المساعدة ، يمكنك تحويل تنسيقات xls متعددة إلى تنسيقات xlsx أو العكس بالعكس ، كما يمكنها مساعدتك في تحويل العديد من المصنفات إلى ملفات PDF في وقت واحد.

ملحوظة:لتطبيق هذا تنسيق تحويلأولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

2. وسيظهر مربع برومت لتذكيرك بضرورة إغلاق المصنف الذي تريد تحويله. انظر لقطة الشاشة:

3. انقر OK، إذن ، في محول تنسيق الملف مربع الحوار ، حدد الخيارات التالية:

  • تحت المبادرة من نوع التحويل القائمة المنسدلة ، حدد Excel 97-2003 إلى Excel 2007 أو أعلى;
  • ثم اضغط أضف زر لإضافة ملفات xls التي تريد تحويلها ، يمكنك إضافة المصنفات من قرص الكمبيوتر أو OneDrive حسب حاجتك ؛

4. بعد إدخال ملفات xls ، لا يزال ملف محول تنسيق الملف مربع الحوار ، الرجاء الضغط زر لاختيار مسار مجلد واحد لإخراج الملفات المحولة ، ثم حدد بعض العمليات التي تحتاجها في أسفل مربع الحوار ، انظر لقطة الشاشة:

ملاحظة: في مربع الحوار أعلاه:
  • إذا كانت المصنفات الموجودة في المجلدات الفرعية بحاجة إلى التحويل أيضًا ، فيرجى التحقق من قم بتضمين المجلدات الفرعية عند إضافة المجلدات خانة الاختيار
  • إذا كنت تريد إزالة الملفات الأصلية بعد التحويل ، فيرجى التحقق من حذف ملفات المصدر بعد التحويل صندوق؛
  • إذا كنت تريد الاحتفاظ بالتاريخ المعدل للملفات الأصلية ، فيرجى التحقق من احتفظ بالتاريخ المعدل للملفات الأصلية صندوق؛
  • يمكن الاحتفاظ ببنية الدليل للملف عن طريق التحقق من يتم الاحتفاظ ببنية الدليل للملف عند التحويل صندوق؛

5. ثم اضغط OK لبدء التحويل ، بعد الانتهاء من التحويل ، يمكنك الانتقال إلى المجلد المحدد لمعاينة النتيجة المحولة. انظر لقطات الشاشة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please could you change the VBA code so that it looks in subfolders of the chosen folder.
Could it also output a log file to show everything its converted?
This comment was minimized by the moderator on the site
Thank You!
This comment was minimized by the moderator on the site
Thanks so much for the VBA CODE. Very Useful
This comment was minimized by the moderator on the site
Can you save a xls as a xlsx and maintain 1,048,576 rows and XFD Columns?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations