csv naar xlsx

[moensk]

wekelijks moet ik 30 csv bestanden openen, opslaan als , en xlsx kiezen
bestaat er een eenvoudige manier om csv te converteren naar xlsx zonder openen van excel ?

 

[xanderke]

zou dit een oplossing kunnen zijn?
http://bytescout.com/?q=/products/enduser/spreadsheettools/spreadsheettools.html

 

[Timshel]

Als de csv's bij elkaar in één map staan kun je het met deze macro vanuit Excel (of Word) ook voor elkaar krijgen:

Sub tsh()
    Const sMap = [COLOR="#FF0000"]"H:\Temp\"[/COLOR]
    Dim oFile As Object
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    For Each oFile In CreateObject("Scripting.FileSystemObject").GetFolder(sMap).Files
        If Right(oFile.Name, 3) = "csv" Then
            With GetObject(sMap & oFile.Name)
                .Parent.Windows(oFile.Name).Visible = True
                .SaveAs sMap & Left(oFile.Name, Len(oFile.Name) - 3) & "xlsx", FileFormat:=51
                .Close
            End With
        End If
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Alleen even aanpassen naar de juiste mapnaam.