How to save file same name and diferrent extension in another folder ? (VBA)

[rodrigo_m_almeida]

Good afternoon !

I'm using this code :

Public Sub TEST()

    Application.ScreenUpdating = False
    
    Dim xPathName As String, xFileName As String, xActiveWorkbookName As String
    
    xPathName = "C:\ETC\CSV\"
    xFileName = Dir(xPathName & "*.csv")
    
    Do While Len(xFileName) > 0
    
        Workbooks.Open FileName:=xPathName & xFileName, ReadOnly:=True, UpdateLinks:=False
        
        xActiveWorkbookName = ActiveWorkbook.Name
        
        ActiveWorkbook.SaveAs "C:\ETC\EXCEL\" & ActiveWorkbook.Name & ".xlsx"
        
        Workbooks(xActiveWorkbookName).Close
        
        xFileName = Dir()
        
    Loop
    
    Application.ScreenUpdating = True

End Sub

I need to save with the same name in xlsx this csv file for another folder...

 

[Fluff]

Is there a problem with that code? If so what?

 

[rodrigo_m_almeida]

Is there a problem with that code? If so what?

File name problem
Example ;
ThisFile.csv.xlsm

 

[Fluff]

In that case use

ActiveWorkbook.SaveAs "C:\ETC\EXCEL\" & ActiveWorkbook.Name & ".xlsx", 51

 

[rodrigo_m_almeida]

Same problem in file extension

 

[JEC]

You could try

ActiveWorkbook.SaveAs "C:\ETC\EXCEL\" & replace(ActiveWorkbook.Name, ".csv", ".xlsx"), 51

 

[Fluff]

Ok, try

        xActiveWorkbookName = Split(ActiveWorkbook.Name, ".")(0)
        
        ActiveWorkbook.SaveAs "C:\mrexcel\fluff\" & xActiveWorkbookName & ".xlsx", 51
        
       ActiveWorkbook.Close

 

[rodrigo_m_almeida]

You could try

ActiveWorkbook.SaveAs "C:\ETC\EXCEL\" & replace(ActiveWorkbook.Name, ".csv", ".xlsx"), 51

Ok, try

        xActiveWorkbookName = Split(ActiveWorkbook.Name, ".")(0)
       
        ActiveWorkbook.SaveAs "C:\mrexcel\fluff\" & xActiveWorkbookName & ".xlsx", 51
       
       ActiveWorkbook.Close

Both work

Now i have another problem
When the file is converted it breaks...

Before

After

Does anyone have any idea how I can fix this ?

 

[rodrigo_m_almeida]

When I open the file it displays this warning

 

[rodrigo_m_almeida]

I think the problem is ", 51" file format number

Because depending on which I put it, it changes the way of displaying, none of them are similar to the old formatting that was