0

I'm trying to convert an excel sheet to a .CSV file, I've been working with VBA (.XSLM format), but I can't convert to the format I want (.CSV), any ideas?

Sub expCSV()
    Dim Sep, RutaArchivo
    Dim bck1, bk2, Ruta1, Ruta2
    
    Sep = Application.PathSeparator
    RutaArchivo = Application.ThisWorkbook.Path
    
    bck1 = "Bckup" & VBA.Format(VBA.Now, "dd-mm-yyyy_hh-mm")
    bck2 = VBA.Format(VBA.Now, "dd-mm-yyyy_hh-mm")
    
    Ruta1 = RutaArhivo & Sep & bck1
    VBA.MkDir (Ruta1)
    
    Application.ThisWorkbook.SaveCopyAs "C:\Users\kelli\BCKUP" & Sep & bck1 & ".csv"
      
    
                 
End Sub
braX
  • 11,506
  • 5
  • 20
  • 33
Angelica Amador
  • 1
  • 1
    This question was answered here: [VBA Saving single sheet as CSV (not whole workbook)](https://stackoverflow.com/a/34157731/9912714). – TinMan Nov 24 '22 at 17:26

0 Answers0