كيف يمكن تحويل عدة ملفات XLS إلى صيغة XLSX في Excel؟
لتحويل ملف Excel قديم بصيغة XLS إلى ملف جديد بصيغة XLSX، يمكنك ببساطة استخدام ميزة «حفظ باسم» في Excel. ولكن إذا كنت بحاجة إلى تحويل عدة ملفات XLS دفعةً واحدة، فكيف يمكنك إنجاز هذه المهمة بكفاءة؟
- تحويل صيغ xls متعددة إلى صيغ xlsx باستخدام وظيفة ‹حفظ باسم› واحدة تلو الأخرى
- تحويل صيغ xls متعددة إلى صيغ xlsx دفعة واحدة باستخدام كود VBA
- تحويل صيغ xls متعددة إلى صيغ xlsx دفعة واحدة باستخدام ميزة قوية
- تحويل دفاتر عمل متعددة إلى ملفات PDF دفعة واحدة
تحويل صيغ xls متعددة إلى صيغ xlsx باستخدام وظيفة ‹حفظ باسم› واحدة تلو الأخرى
يمكن لوظيفة «حفظ باسم» في Excel أن تساعدك على تحويل ملفات دفاتر العمل القديمة من صيغة .xls إلى الصيغة الجديدة .xlsx واحدةً تلو الأخرى.
1. افتح ملف العمل الذي تريد تحويل تنسيقه.
2. انقر علىملف > حفظ باسم، وسيظهر مربع حوارحفظ باسم. حدّد مجلدًا لحفظ الملف بالصيغة الجديدة فيه، ثم انقر على قائمةتحديد تنسيق الحفظالمنسدلة لاختيارمصنف Excel. انظر لقطة الشاشة:
3. ثم انقر على زرحفظلإغلاق مربع الحوار، وقد تم تحويل تنسيق Excel من XLS إلى XLSX.
تحويل صيغ xls متعددة إلى صيغ xlsx دفعة واحدة باستخدام كود VBA
إذا كنت ترغب في تحويل عدة ملفات xls إلى ملفات xlsx دفعة واحدة دون حفظها واحدة تلو الأخرى، فسأعرض لك هنا كود VBA، يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذةالوحدة النمطية (Module).
كود VBA: تحويل صيغ 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. انقر علىموافق، وستظهر نافذة أخرى تطلب منك تحديد المسار الذي تريد حفظ الملفات المحولة فيه. انظر لقطة الشاشة:
5. انقر علىموافق. وبمجرد اكتمال التحويل، انتقل إلى المجلد المحدد لعرض النتائج.
 |  |  |
تحويل صيغ xls متعددة إلى صيغ xlsx دفعة واحدة باستخدام ميزة قوية
باستخدام أداةKutools لـ Excel’s تحويل الدُّفعة، يمكنك تحويل ملفات XLS متعددة إلى صيغة XLSX أو العكس بسهولة، بل ويمكنك أيضًا تحويل دفاتر عمل متعددة إلى ملفات PDF دفعةً واحدة!
1. انقر علىKUTOOLS PLUS > دفتر العمل > تحويل الدفعة، انظر لقطة الشاشة:
2. ستظهر نافذة منبثقة لتذكيرك بأنه يجب إغلاق دفتر العمل الذي تريد تحويله. انظر لقطة الشاشة:
3. انقر علىموافق، ثم في مربع حوارتحويل الدفعة، حدد الخيارات التالية:
- ضمن قائمةنوع التحويلالمنسدلة، اخترتحويل Excel 97-2003 إلى Excel 2007 أو الأحدث؛
- ثم انقر على زرإضافةلإضافة ملفات XLS التي تريد تحويلها. يمكنك إضافة دفاتر العمل من قرص جهازك أو من OneDrive حسب الحاجة.
4. بعد إدراج ملفات XLS، وعندما لا تزال في مربع حوارتحويل الدفعة، انقر على زر
لتحديد مسار حفظ الملفات المحولة، ثم اختر العمليات التي تحتاجها من أسفل مربع الحوار، كما هو موضح في لقطة الشاشة:
- إذا كانت دفاتر العمل الموجودة في المجلدات الفرعية بحاجة إلى التحويل أيضًا، فيُرجى تحديد خانةتضمين المجلدات الفرعية عند إضافة المجلداتمربع اختيار؛
- إذا كنت ترغب في حذف الملفات الأصلية بعد التحويل، فيُرجى تحديد خانةحذف الملفات المصدر بعد التحويل؛
- إذا كنت ترغب في الاحتفاظ بتاريخ التعديل للملفات الأصلية، فيُرجى تحديد خانةالاحتفاظ بنسخة وقت التعديل من الملفات الأصلية؛
- يمكنك الاحتفاظ بهيكلة مجلدات الملف عن طريق تحديد خانةالاحتفاظ ببنية المجلد للملفات أثناء التحويل؛
5. ثم انقر علىموافقلبدء التحويل. وبعد الانتهاء من التحويل، انتقل إلى المجلد المحدد لعرض النتائج. انظر لقطات الشاشة:
| | |
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل