CSV bestanden naar XLS omzetten

[edmoor]

Lees dit eens:
http://learnexcelmacro.com/wp/2017/09/save-excel-range-data-as-csv-file-through-excel-vba/

 

[JANHooyman]

gelezen Edmoor,

Dit is meer om bepaalde kolommen te selecteren.
Jou code is prima, elke bestand bevat 1 sheet-werkblad en deze wordt perfect omgezet naar een xls bestand
Wat ik nu nog zou willen is dat de xls bestanden in een ander map worden weggeschreven.

Ben ook benieuwd of het andersom ook makkelijk zou kunnen van XLS naar CSV.

Jan

 

[edmoor]

Punt 1 in de link die ik plaatste bechrijft toch echt hoe je een werkblad naar CSV kan exporteren.
Voor de rest, kijk eens naar dit:

Sub CSV_naar_XLS()
    Application.DisplayAlerts = False
    CSVPAD = "C:\Users\jan\Desktop\ACOB weegdata\MetaCom weegdata\CSV bestanden"
    XLSPAD = "C:\Users\jan\Desktop\ACOB weegdata\MetaCom weegdata\XLS bestanden"
    
    CSV = Dir(CSVPAD & "*.csv")
    While CSV <> ""
        With Workbooks.Open(CSVPAD & CSV, Local:=True)
            .SaveAs Replace(XLSPAD & "\" & .FullName, ".csv", ""), 51
            .Close
        End With
        CSV = Dir()
    Wend
End Sub

 

[JANHooyman]

Edmoor
Hier krijg ik een foutmelding op.

.SaveAs Replace(XLSPAD & "" & .FullName, ".csv", ""), 51

Om te testen is de padnaam anders zie hieronder.

Sub CSV_naar_XLS_2()
    Application.DisplayAlerts = False
    CSVPAD = "C:\Users\jan\Desktop\CSV bestanden"
    XLSPAD = "C:\Users\jan\Desktop\XLS bestanden"
    
    CSV = Dir(CSVPAD & "*.csv")
    While CSV <> ""
        With Workbooks.Open(CSVPAD & CSV, Local:=True)
            .SaveAs Replace(XLSPAD & "" & .FullName, ".csv", ""), 51
            .Close
        End With
        CSV = Dir()
    Wend
End Sub

 

[edmoor]

Tips:
Als je code plaatst, gebruikt dan ook codetags, nu vallen er tekens weg.
Als je zegt een foutmelding te krijgen, laat dan ook weten welke dat exact is.

 

[JANHooyman]

Edmoor,

.SaveAs Replace(XLSPAD & "" & .FullName, ".csv", ""), 51

bovenstaande regel wordt geel gemarkeerd bij de uitvoering.

Het eerste bestand wordt omgezet naar xls, maar blijft geopend en wordt niet naar de xls weggeschreven. dan komt de foutmelding.

 

[edmoor]

Zat inderdaad een fout in.
Test deze eens:

Sub CSV_naar_XLS()
    Application.DisplayAlerts = False
    CSVPAD = "C:\Users\jan\Desktop\CSV bestanden\"
    XLSPAD = "C:\Users\jan\Desktop\XLS bestanden\"
    
    CSV = Dir(CSVPAD & "*.csv")
    While CSV <> ""
        With Workbooks.Open(CSVPAD & CSV, Local:=True)
            .SaveAs XLSPAD & Replace(ActiveWorkbook.Name, ".csv", ""), 51
            .Close
        End With
        CSV = Dir()
    Wend
End Sub

 

[JANHooyman]

Edmoor,

Perfect, het doet precies wat gewenst is.
Super bedankt.

Later misschien even kijken of het ook andersom kan van XLS naar CSV, eerst zelf maar iets proberen.

Nogmaals bedankt en een fijn weekend.

Jan