Hi,

How To Change Csv Format

1. Convert any CSV files to XLSX for free with usage of OnlineConvertFree. ⭐ ️ Convert your CSV file to XLSX online in a few seconds.
2. How to Convert CSV to Excel 2013 Format (XLSX) There are plenty of apps, and quite a few online services, available online for the simple task of converting the standard CSV (comma separated value) format into the regular Excel formatting than you know and love.

How To Change Csv To Excel

The issue is that the above does not work on the current CSV files I need to convert to xlsx. From what I can see, the above code reads the CSV file as comma delimited, but the files I currently use are tab delimited.

try this code,

(Folder Picker method)

How To Change Csv To Xlsx Converter File

select the folder (with CSV files).....

Excel Convert Csv To Xlsx

Sub All_CSV_in_Separate_Shts()
'Mar. 07, 2018
Dim myWB As Workbook, wb As Workbook
Set myWB = ThisWorkbook
Dim fPath As String, fName As String
'## delete old sheets named: sht_1/2/3/4....
Application.DisplayAlerts = False
For Each sh In myWB.Sheets
If sh.Name Like '*sht_*' Then sh.Delete
Next
Application.DisplayAlerts = True
'##
Dim t As Long
On Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = 'please, select a folder'
.AllowMultiSelect = False
If .Show = True Then
fPath = .SelectedItems(1) & '
fName = Dir(fPath & '*.csv')
If fName <> ' Then
Application.ScreenUpdating = False
t = 1
Do Until fName = '
Workbooks.OpenText Filename:=fPath & fName, DataType:=xlDelimited, Local:=True
Set wb = ActiveWorkbook
wb.Sheets(1).Copy after:=myWB.Sheets(myWB.Sheets.Count)
With ActiveSheet
.Name = 'sht_' & t
.UsedRange.EntireColumn.AutoFit
End With
wb.Close False
t = t + 1
fName = Dir()
Loop
Application.ScreenUpdating = True
Else
MsgBox 'no files'
End If
Else
MsgBox 'cancel'
End If
End With
End Sub