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]

FileFormat 51 is an xlsx file, which is correct. As your new problem is a totally different thing, you need to start a new thread.

 

[rodrigo_m_almeida]

FileFormat 51 is an xlsx file, which is correct. As your new problem is a totally different thing, you need to start a new thread.

Who has this problem ?
Converting CSV to XLSX...

Change

Workbooks.Open FileName:=xPathName & xFileName

For

Workbooks.Open FileName:=xPathName & xFileName, Delimiter:=";", Local:=True

Fix this problem