Conversione excel in csv



  • Conversione excel in csv
    di Gianluca (utente non iscritto) data: 05/06/2015 22:20:36

    Salve a tutti,
    Ho due quesiti da porvi:

    1. Come faccio ad eliminare delle righe completamente volte da un file con un operazione veloce? (I colori sono cieca 100000)

    2. Una volta che salvo il file excel in CSV e lo apro con il txt vedo che i volori delle colonne vengono delimitati con il ; mentre io vorrei che venissero delimitate con | come si fa?

    Ringrazio tutti per l aiuto.



  • di lepat (utente non iscritto) data: 06/06/2015 11:46:42

    righe VOLTE ? o VUOTE ? che c'entrano i colori ?
    spiegati meglio e allega un piccolo file di esempio



  • di Gianluca (utente non iscritto) data: 06/06/2015 20:38:27

    *vuote

    Dopo Delle righe piene di valori ci sono delle righe vuote (perche quando converto il file in CVS e lo analizzo aprendolo in txt in fondo vedo i seguenti valori ;;;;;;; e vorrei eliminarli)


    Spero che sono stato chiaro

    Grazie ancora




  • di lepat (utente non iscritto) data: 06/06/2015 20:48:03

    senza file si va alla cieca, comunque prova questa
     
    Sub EliminaRigheVuote()
    ActiveSheet.UsedRange.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End Sub


  • Conversione excel in csv
    di Gianluca (utente non iscritto) data: 06/06/2015 23:30:23

    Provo e vi faccio sapere.

    Per il secondo punto invece?



  • di marxitpa data: 07/06/2015 06:34:27

    non me ne volere lepat ... ma è sicuro che il tuo suggerimento elimina le righe vuote?
    A me elimina solo le righe che hanno le celle della colonna A vuote ...



  • di marxitpa data: 07/06/2015 06:40:03

    Gianluca prova questo codice ...
     
    Sub elimina_righe()
    Dim Intervallo As Range
    Dim Righe, R
    Set Intervallo = ActiveSheet.UsedRange
    Righe = Intervallo.Rows.Count
    Application.EnableEvents = False
    For R = Righe To 1 Step -1
    If WorksheetFunction.CountA(Rows(R)) = 0 Then
    Intervallo(R, 1).EntireRow.Delete
    End If
    Next
    Application.EnableEvents = True
    End Sub