كيفية تحويل عدة ملفات بصيغة xls إلى صيغة xlsx في Excel؟

لتحويل ملف XLS قديم من Excel إلى ملف XLSX جديد، يمكنك استخدام ميزة "حفظ باسم" في Excel. ومع ذلك، إذا كنت بحاجة إلى تحويل عدة ملفات بصيغة XLS دفعة واحدة، كيف يمكنك التعامل مع هذه المهمة بفعالية؟

• تحويل عدة صيغ XLS إلى صيغ XLSX باستخدام وظيفة "حفظ باسم" واحدًا تلو الآخر
• تحويل عدة صيغ XLS إلى صيغ XLSX دفعة واحدة باستخدام كود VBA
• تحويل عدة صيغ XLS إلى صيغ XLSX دفعة واحدة باستخدام ميزة قوية
• تحويل عدة مصنفات إلى ملفات PDF دفعة واحدة

تحويل عدة صيغ XLS إلى صيغ XLSX باستخدام وظيفة "حفظ باسم" واحدًا تلو الآخر

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

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

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

3. بعد ذلك، انقر فوق زر "حفظ" لإغلاق الحوار، وقد تم تحويل هذا التنسيق من XLS إلى XLSX.

تحويل عدة صيغ XLS إلى صيغ XLSX دفعة واحدة باستخدام كود VBA

إذا كنت ترغب في تحويل عدة ملفات بصيغة XLS إلى XLSX دفعة واحدة دون حفظها واحدة تلو الأخرى، سأتحدث هنا عن كود VBA لك، يرجى القيام بالخطوات التالية:

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

كود 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 دفعة واحدة باستخدام ميزة قوية

مع أداة Format Converter الخاصة بـ Kutools لـ Excel، يمكنك تحويل عدة صيغ XLS إلى XLSX أو العكس، كما يمكنها مساعدتك في تحويل عدة مصنفات إلى ملفات PDF دفعة واحدة.

1. انقر فوق Kutools Plus > أدوات المصنف > Format Converter، انظر إلى لقطة الشاشة:

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

3. انقر فوق موافق، ثم في مربع حوار File Format Converter ، حدد الخيارات التالية:

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

4بعد إدراج ملفات XLS، لا تزال في File Format Converter مربع الحوار، يرجى النقر فوق زر اختيار مسار مجلد واحد لإخراج الملفات المحولة، ثم حدد بعض العمليات التي تحتاجها في أسفل مربع الحوار، انظر إلى لقطة الشاشة:

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