فرمت پیش فرض فایل های اکسل بین اکسل 97 و اکسل 2003 Xls است و نسخه های فوق دارای فرمت پیش فرض Xlsx هستند. هر دو پسوند فایل اکسل هستند. اگر فایل های قدیمی در سیستم ما وجود دارد و باید از ویژگی های جدید روی آنها استفاده کنیم، تبدیل آنها به پسوند جدید بسیار ضروری است. اگر فقط یک فایل وجود داشته باشد، میتوانیم از تابع «ذخیره بهعنوان» برای تکمیل کار استفاده کنیم، اما ممکن است برای چندین فایل زمانبر باشد. ما می توانیم کار را با استفاده از برنامه VBA به روشی سریع تر انجام دهیم. این آموزش را بخوانید تا یاد بگیرید چگونه می توانید چندین فایل XLS را به فایل XLSX در اکسل تبدیل کنید.
تبدیل چندین فایل XLS به فایل XLSX در اکسل
در اینجا ابتدا یک ماژول ایجاد می کنیم و سپس آن را برای تبدیل فایل ها اجرا می کنیم. اجازه دهید به یک روش ساده برای تبدیل چندین فایل Xls به فایل Xlsx در اکسل با استفاده از برنامه vba نگاه کنیم.
مرحله 1
اجازه دهید یک صفحه اکسل جدید در نظر بگیریم، سپس روی نام شیت کلیک راست کرده و view code را انتخاب کنید تا برنامه vba باز شود، سپس بر روی insert کلیک کنید، ماژول را انتخاب کنید و برنامه زیر را در کادر متنی که در زیر نشان داده شده است تایپ کنید. تصویر
کلیک راست کنید > View code > Insert > Module > Program
برنامه
Sub ConvertToXlsx() 'Update By Nirmal 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
گام 2
سپس برگه را بهعنوان یک workbook با قابلیت ماکرو ذخیره کنید، روی F5 کلیک کنید تا کد اجرا شود، پوشهای که فایلهای XLS ما در آن وجود دارد را انتخاب کنید و روی OK کلیک کنید.
ذخیره > F5 > پوشه > OK