Conversione multipla di files csv in excel

Question

E' possibile convertire più files insieme di csv in excel 97-2003 e in excel 2010 ?

Esempio : in una cartella di windows ho 30 files tutti in csv , posso selezionarili e convertirli tutti insieme in 30 file excel  ?

Devo per forza convertirli uno per volta ?

Answer 1

Se ho capito quello che vuoi fare, fai un nuovo file di Excel e copia incolla la macro qui sotto in un modulo standard:

Public Sub m()

    Dim objFSO As Object

    Dim objFolder As Object

    Dim objFile As Object

    Dim sPath As String

    Dim wk As Workbook

    sPath = "**C:\TestCSV**"

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder(sPath)

    For Each objFile In objFolder.Files

        Set wk = Workbooks.Open(sPath & objFile.Name)

        wk.SaveAs Filename:=sPath & Mid(objFile.Name, 1, _

            Len(objFile.Name) - 4), FileFormat:=51

        wk.Close

    Next

    Set objFile = Nothing

    Set objFolder = Nothing

    Set objFSO = Nothing

End Sub

Modifica la parte in grassetto con i tuoi riferimenti. Alla fine ti ritroverai nella directory dove hai i CSV anche i file di Excel in formato xlsx. Se il testo dei CSV non dovesse apparire come ti aspetti, controlla nelle impostazioni internazionali di Windows, che il separatore corrisponda a quello del file CSV.

Answer 2

E se volessi trasformarli in formato xls  (97-2003)  ?

Answer 3

Vedi qui per il Modulo:

• http://answers.microsoft.com/it-it/office/wiki/office_2013_release-excel/excel-dove-e-come-inserire-il-codice-visual-basic/ed29ee63-a537-4e5d-8631-76766cf40503

Per il formato xls modifica questa parte di codice:

wk.SaveAs Filename:=sPath & Mid(objFile.Name, 1, _

            Len(objFile.Name) - 4), FileFormat:=51

così:

wk.SaveAs Filename:=sPath & Mid(objFile.Name, 1, _

            Len(objFile.Name) - 4), FileFormat:=56

Answer 4

La trovi all'interno dell'editor Vba.

A parte questo, in considerazione anche di quanto scrivi nell'altro thread sul forum di Access Importo file di excel in access mi sembra di capire che tu hai una serie di file csv la cui destinazione finale è quella di essere importati in una tabella di Access.

A mio modo di vedere tirare dentro anche Excel non fa altro che introdurre un elemento di complessità in più nel tuo codice.  Elemento di cui, tra le altre cose, non si ravvisa la necessità.

Nel forum di Access ti ho già fornito la soluzione per importare direttamente i files csv.

David

Answer 5

Non ho trovato nei menu la voce modulo