VBA converting csv Files in a folder to xlsx Files

Question

I have this code.

This code converts to xlsm files.

I want to convert to xlsx files.

How?

I tried by changing

wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormatTO wBook.SaveAs XlsFolder & Replace(fname, ".csv", ".xlsx")

It didn't worked.

Private Sub CommandButton2_Click() Dim CSVfolder As String Dim XlsFolder As String Dim fname As String Dim wBook As Workbook CSVfolder = "C:\csv\" XlsFolder = "C:\Charts\" fname = Dir(CSVfolder & "*.csv") Do While fname <> "" Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",") wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormat wBook.Close False fname = Dir Loop End Sub

R3uK · Accepted Answer · 2015-06-10 13:59:00Z

Using the macro recoder, the file format for an xlsx workbook is FileFormat:=xlOpenXMLWorkbook

So here is your code :

Private Sub CommandButton2_Click() Dim CSVfolder As String, _ XlsFolder As String, _ fname As String, _ wBook As Workbook CSVfolder = "C:\csv\" XlsFolder = "C:\Charts\" fname = Dir(CSVfolder & "*.csv") Do While fname <> "" Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",") wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), xlOpenXMLWorkbook wBook.Close False fname = Dir Loop End Sub

Collectives™ on Stack Overflow

VBA converting csv Files in a folder to xlsx Files

1 Answer 1

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Linked

Related