كيفية تحويل ملفات CSV متعددة إلى ملفات XLS (X) دفعة واحدة في إكسيل؟

من السهل جدًا تحويل ملف CSV إلى ملف XlS أو XLSX من خلال تطبيق ميزة Save As. ومع ذلك ، فإن تحويل ملفات CSV متعددة إلى ملفات XLS أو XLSX من مجلد يستغرق وقتًا طويلاً عن طريق حفظ واحدًا تلو الآخر يدويًا. أقدم هنا رمز ماكرو لتحويل جميع ملفات CSV بسرعة إلى ملفات XLS (x) من مجلد.

دفعة تحويل ملفات CSV إلى ملفات XlS (X) برمز الماكرو

دفعة تحويل ملفات CSV إلى ملفات XlS (X) برمز الماكرو

لتحويل ملفات CSV متعددة من مجلد واحد إلى ملفات XLS (X) ، يمكنك القيام بالخطوات التالية:

1. قم بتمكين مصنف جديد ، اضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة، وانقر فوق إدراج > وحدة. انظر لقطة الشاشة:
دفعة doc تحويل السير الذاتية xls 1

ملاحظة:: تأكد من إغلاق جميع ملفات CSV التي تريد تحويلها.

2. ثم الصق رمز الماكرو أدناه في ملف وحدة النصي والصحافة F5 مفتاح لتشغيل الكود.

VBA: تحويل CSV إلى XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. في مربع الحوار المنبثق ، حدد المجلد المحدد الذي يحتوي على ملفات CSV التي تريد تحويلها. انظر لقطة الشاشة:
دفعة doc تحويل السير الذاتية xls 2

4. انقر OK، تم تحويل جميع ملفات CSV في المجلد المحدد إلى ملفات XLS فيه.
دفعة doc تحويل السير الذاتية xls 3

معلومه- سرية: إذا كنت تريد تحويل ملفات CSV إلى ملفات XLSX ، فأنت تستخدم رمز VBA أدناه.

VBA: تحويل ملفات CSV إلى XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

قم بتحويل أو تصدير نطاق من الورقة بسرعة لفصل ملفات XLS / Word / PDF أو ملفات التنسيق الأخرى في وقت واحد

عادة ، لا يدعمك Excel بخيار تصدير نطاق أو حفظه بسرعة كملف CSV أو Excel. إذا كنت تريد حفظ نطاق من البيانات كملف CSV أو مصنف في Excel ، فقد تحتاج إلى استخدام VBA Macro للقيام بذلك أو لنسخ النطاق إلى الحافظة ولصقه في مصنف جديد ثم حفظ المصنف كملف CSV أو دفتر العمل. كوتولس ل إكسيل يضاعف Excel مع نطاق التصدير إلى ملف فائدة لمستخدمي Excel الذين يرغبون في معالجة العمليات التالية بسرعة ： انقر للحصول على نسخة تجريبية مجانية كاملة المواصفات مدتها 30 يومًا!

Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

35 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Robin · 6 months ago
This is working for me, but the file extension is not changing. Any tips?
- Reply
- To post as a guest, your comment is unpublished.
  Pascal · 3 months ago
  
  I had the same problem. If your source file has an extention in capital letters (.CSV) it doesnt work. Just replace .csv to .CSV in the code in line 22 and then it should work. Well, at least for me it did.
  
  Reply
- To post as a guest, your comment is unpublished.
  stevehurm · 6 months ago
  
  Same for me -- all files remain .csv.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Sunny · 3 months ago
  
  All csv files you choose have been save as new excel files, the original files (csv) do not change, there are new excel files with same contents existing.
  
  Reply
To post as a guest, your comment is unpublished.
Dixon · 10 months ago
I get an error "Object variable or with block variable not set" for this line:
xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> this is the path of a particular folder on my computer where I'm doing the conversion (the folder has a bunch of csv files inside)

Am I doing something wrong here?
- Reply
To post as a guest, your comment is unpublished.
Jason · 10 months ago
You have an error on line 22 of the csv to xlsx
With Error - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault
Corrected - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xslx", vbTextCompare), xlWorkbookDefault
- Reply
- To post as a guest, your comment is unpublished.
  Sunny · 9 months ago
  
  Thanks for your reminder, I have updated it, thanks again.
  
  Reply
To post as a guest, your comment is unpublished.
aaqil Rahman · 1 years ago
great article. How can I, save all the converted files in a new location? Can you please update the code and send it to me. Like allowing the user to choose his destination folder.

Thanks
- Reply
To post as a guest, your comment is unpublished.
viper · 1 years ago
it changes my date column format from dd-mm-yyyy to dd/mm/yyyy, please can anyone help with how to prevent this script from changing column formats.
Thanks a lot.
- Reply
- To post as a guest, your comment is unpublished.
  Sunny · 1 years ago
  
  Hi, viper, after conversion, you can format them back, select the dates and right click to choose Format Cells from context menu, in the Format Celld dialog, under Number tab, click Custom in the Category list, then type mm-dd-yyyy into the textbox in right section. Or if you have Kutools for Excel, applying the Apply Date Formatting to change the date format as you need.
  
  Reply
To post as a guest, your comment is unpublished.
Sam · 1 years ago
One small issue with this code is that some accuracy (number of decimals) can be lost when opening a csv and saving it as xlsx.
The way to prevent this is to select all cells right after opening, set the number of decimal places to the desired amount (15 for me personally), and *then* saving as xlsx

Otherwise, the xlsx has less detail (less accuracy in terms of decimals) than the original csv, which can lead to problems in some applications
- Reply
To post as a guest, your comment is unpublished.
Rose · 1 years ago
this macro does not show my csv file
- Reply
To post as a guest, your comment is unpublished.
stb · 1 years ago
Cool bit of code. Very useful. If I'm not mistaken the code for .xlsx looks the same as the .xls code.

This line:
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault

I assume it should be: ".csv" , ".xlsx", vbTextCompare etc.
- Reply
- To post as a guest, your comment is unpublished.
  iBrezel · 1 years ago
  
  I've changed the code so, described above; now the script works as expected: it generates xlsx files
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  thy · 1 years ago
  
  no you haven't. it still says xls in both versions.
  
  Reply
To post as a guest, your comment is unpublished.
koliarpramod935@gmail.com · 2 years ago
Great Script after searching all other script available in google. Can anybody help how to modify this script by specifying a folder location in local drive instead of allowing it to open the dialog box as i am actually automating the system. Thanks in advance
- Reply
To post as a guest, your comment is unpublished.
Pramod Koliar · 2 years ago
Hi, great script which worked for me after trying all other script available in google. I have added few more lines which performs the text to columns operation which i want. Can anybody help me how to modify the script by specifying the folder location in local drive instead of opening the dialog box as i am actually automating the system
. Thanks in advance
- Reply
- To post as a guest, your comment is unpublished.
  equiposlagares@gmail.com · 1 years ago
  
  Hi
  Could you share the script that performs the text to columns??
  Best Regards
  
  Reply
To post as a guest, your comment is unpublished.
HC · 2 years ago
Hello,

a great article - thank you! Almost works for me.

Here's the problem: I have a pipe-delimited csv file. I have changed the default windows delimiter (via control panel/regional settings) to "|". So, when I open the csv file with Excel, it opens, directly reads and parses the fields to columns correctly. All I have to do is to save as xls or xlsx, done. When I look at your code, that should be what the code does: It opens the csv files in a folder, saves them as xls or xlsx, and loops over that.

Here is the problem: When I open those Excel files, the pipe delimiters are still there, nothing is parsed to the columns. This was the behavior as before my change to the pipe delimited default setting in the Windows settings. So it seems like Excel doesn't use those Windows settings. I verified this by replacing the pipe delimiters with comma delimiters in a copy of the file - of the two files, the pipe-delimited remained unparsed, the comma delimited got converted just fine.

Any idea where that Excel-inbuilt comma delimitation can be found or changed, or whether there is a way in the code to do that? I would prefer NOT to have to do a search and replace, then save...

Thanks, HC
- Reply
- To post as a guest, your comment is unpublished.
  Sunny · 2 years ago
  
  If you want to split the data into column based on the pipe delimiter in Excel, just use Text to Columns function to split data by / after coverting the csv files to xls.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Sat · 7 months ago
  
  Doesn't really make the code useful for excel files.
  
  Reply
To post as a guest, your comment is unpublished.
Fred Maye · 2 years ago
WHen I gave the folder name, the program said, "No files match your search." But there are 2,609 .csv files in the folder
- Reply
- To post as a guest, your comment is unpublished.
  Sunny · 2 years ago
  
  The code not support the separated comma csv file, are your files in this case?
  
  Reply
To post as a guest, your comment is unpublished.
ptee · 2 years ago
I used the file multiple csv to multiple xls but get wrong xls de csv files have ; seperated info but become together in cells. How can this been solved?
- Reply
- To post as a guest, your comment is unpublished.
  Sunny · 2 years ago
  
  The code cannot support the separated comma csv file.
  
  Reply
To post as a guest, your comment is unpublished.
Dragos · 3 years ago
Hi,

Your script is great but it doesn't convert the csv separated by semicolons. Can you please post a solution for those?

Thank you
- Reply
- To post as a guest, your comment is unpublished.
  strauss113 · 2 years ago
  
  i might be late i just got the issue where i needed to convert the semicolons CSV files and i added this to the code and it worked hope this will help someone
  
  Change 'Workbooks.Open Filename:=xSPath & xCSVFile' By this 'Workbooks.Open Filename:=xSPath & xCSVFile, Delimiter:=";", Local:=True'
  
  Reply
- To post as a guest, your comment is unpublished.
  Sunny · 3 years ago
  
  Sorry，here I do not have any solution, maybe you can place your question to our forum, someone else may help you. https://www.extendoffice.com/forum.html
  
  Reply
To post as a guest, your comment is unpublished.
Sathish · 3 years ago
Thankyou so much for your excellent script for CSV to XLS. Its much more useful to my work
- Reply
To post as a guest, your comment is unpublished.
mathaio · 3 years ago
"Tip: If you want to convert CSV files to XLXS files, you just need to change .xls to .xlsx in the macro ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare)."

I tried this, and Excel could not open the resulting files. I got the following message: "Excel cannot open the file 'filename.xlsx' because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file."

However, the script was successful for converting to .xls.
- Reply
- To post as a guest, your comment is unpublished.
  Sunny · 3 years ago
  
  I did not find that problem before, thank you for your correct comment. I have corrected the tip.
  
  Reply
To post as a guest, your comment is unpublished.
Karen · 3 years ago
I want to do the opposite - convert XLS to CSV. does this script work?
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xXLSFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xXLSFile = Dir(xSPath & "*.xls")
Do While xXLSFile <> ""
Application.StatusBar = "Converting: " & xXLSFile
Workbooks.Open Filename:=xSPath & xXLSFile
ActiveWorkbook.SaveAs Replace(xSPath & xXLSFile, ".xls", ".csv", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Activate
xXLSFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  brad · 10 months ago
  
  Sub ConvertCSVToXlsx()
  
  Dim myfile As String
  Dim oldfname As String, newfname As String
  Dim workfile
  Dim folderName As String
  
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  
  ' Capture name of current file
  myfile = ActiveWorkbook.Name
  
  ' Set folder name to work through
  folderName = "D:\tmp\"
  
  ' Loop through all CSV filres in folder
  workfile = Dir(folderName & "*.CSV")
  Do While workfile <> ""
  ' Open CSV file
  Workbooks.Open Filename:=folderName & workfile
  ' Capture name of old CSV file
  oldfname = ActiveWorkbook.FullName
  ' Convert to XLSX
  newfname = folderName & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsx"
  ActiveWorkbook.SaveAs Filename:=newfname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=True
  ActiveWorkbook.Close
  ' Delete old CSV file
  Kill oldfname
  Windows(myfile).Activate
  workfile = Dir()
  Loop
  
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  
  End Sub
  
  Reply

تسجيل الدخول إلى حسابك

استعادة كلمة المرور