Risultati da 1 a 13 di 13

Discussione: aiuto rinomina file di una cartella



  1. #1
    L'avatar di MariaPaola
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Sant'anastasia
    Messaggi
    6
    Versione Office
    excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    aiuto rinomina file di una cartella

    salve a tutti ho un grosso probema, devo rinominare i file di una cartella due volte, qualcuno sa come si fa?
    vi posto il mio codice che purtoppo rinomina solo una volta:
    Codice: 
    Sub RinominaFilePreCar()
    '
    ' RinominaFile Macro
    Dim DirSave As String
    Dim NamePrincipale As String
    Dim NomeFile As String
    Dim ss As String ' stringa d'appoggio per la ricomposizione del nome del file
    Dim M, L(6) As String 'array dei pezzettini della stringa NomeFile
    DirSave = ThisWorkbook.Path
    NamePrincipale = ThisWorkbook.Name
    Dim fs, f, fpath, i, NFile, pf1, pf2, y, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .Title = "Seleziona la cartella"
    .Show
    If .SelectedItems.Count > 0 Then
    fpath = .SelectedItems(1)
    Else
    Exit Sub
    End If
    End With
    i = 10
    n = 0
    Windows(NamePrincipale).Activate 'file dell'applicativo
    y = Cells(4, 2).Value 'numero dispositivo
    Set f = fs.getfolder(fpath)
    Set NFile = f.Files
    For Each pf1 In NFile
    If InStr(1, pf1.Name, ".csv", vbTextCompare) > 0 Then
    NomeFile = pf1.Name
    'MsgBox (NomeFile)
    If Len(NomeFile) < 23 Then
    M = Split(NomeFile, "_") 'rottura nome file
    For i = 0 To 4
    'MsgBox (M(i))
    If Len(M(i)) < 2 Then
    L(i) = "0" & M(i)
    Else
    L(i) = M(i)
    End If
    If Len(M(5)) < 6 Then
    L(5) = "0" & M(5)
    Else
    L(5) = M(5)
    End If
    ss = L(0) & "_" & L(1) & "_" & L(2) & "_" & L(3) & "_" & L(4) & "_" & L(5)
    'MsgBox (ss)
    pf1.Name = ss
    End If
    End If
    Next
    Set f = fs.getfolder(fpath)
    Set NFile = f.Files
    For Each pf1 In NFile
    If InStr(1, pf1.Name, ".csv", vbTextCompare) > 0 Then
    i = i + 1
    z = Cells(i, 7).Value
    If z = "x" Or z = "X" Then 'check sulle x
    If (i - 10) < 10 Then
    pf1.Name = "00" & (i - 10) & "-PreCar-dev" & y & ".csv"
    n = n + 1
    ElseIf (i - 10) < 100 Then
    pf1.Name = "0" & (i - 10) & "-PreCar-dev" & y & ".csv"
    n = n + 1
    Else
    pf1.Name = i & "-PreCar-dev" & y & ".csv"
    n = n + 1
    End If
    End If
    End If
    Next
    MsgBox n & " files rinominati", vbInformation
    End Sub
    Next
    grazie a tutti
    Ultima modifica fatta da:Gerardo Zuccalà; 11/06/16 alle 20:45

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: aiuto rinomina file di una cartella

    Benvenuta Maria Paola,
    questa è la sezione per le presentazioni ... sposto la tua discussione in macro.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di MariaPaola
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Sant'anastasia
    Messaggi
    6
    Versione Office
    excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: aiuto rinomina file di una cartella

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Benvenuta Maria Paola,
    questa è la sezione per le presentazioni ... sposto la tua discussione in macro.


    grazie scusate la mia ignoranza

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2811
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: aiuto rinomina file di una cartella

    Citazione Originariamente Scritto da MariaPaola Visualizza Messaggio
    salve a tutti ho un grosso probema, devo rinominare i file di una cartella due volte, qualcuno sa come si fa?
    Cosa intendi dire "due volte"?.
    La macro rinomina tutti i file "csv" di una determinata cartella (scelta dall'utente) che rispecchiano determinati criteri (che non si deducono senza un file allegato).

  5. #5
    L'avatar di MariaPaola
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Sant'anastasia
    Messaggi
    6
    Versione Office
    excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: aiuto rinomina file di una cartella

    due volte sinifica che prima lo rinomino pippo e poi lo rinomino topolino

  6. #6
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1116
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: aiuto rinomina file di una cartella

    che senso ha rinominare 2 volte ? non basta assegnare subito topolino ? per aiutare bene occorre capire

  7. #7
    L'avatar di MariaPaola
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Sant'anastasia
    Messaggi
    6
    Versione Office
    excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: aiuto rinomina file di una cartella

    non si può assegnare direttamente topolino perchè vba legge i file in un ordine sbagliato, quindi col primo nome gli do un ordine giusto e col secondo gli do il nome che alla fine deve avere

  8. #8
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1116
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: aiuto rinomina file di una cartella

    ma vuoi risolvere o no ? se sì spiega meglio, fino ad ora abbiamo perso solo tempo

  9. #9
    L'avatar di MariaPaola
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Sant'anastasia
    Messaggi
    6
    Versione Office
    excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: aiuto rinomina file di una cartella

    cosa non è chiaro di quello che devo fare? il nome iniziale è una data, uindi in questa cartella ci sono file con nome una stringa contenente una data, però che succede quando vado a rinominare i file vba non li prende in ordine come stanno nella cartella, poichè vba legge prima i numeri a due cifre e poi quelli a una esempio: 2016_2_11 e 2016_12_11 prende prima il secondo e poi il primo, quindi nella prima rinomina metto uno zero davanti al 2 2 nella seconda rinomina gli do un nome sequenziale

  10. #10
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1116
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: aiuto rinomina file di una cartella

    ora è chiarissimo, basta spiegare, però per testare la tua macro non semplicissima occorre una cartella zippata con qualche file (anche vuoto)
    allega anche il file con la macro, quella che hai incollato non funziona, c'è un next dopo end sub

  11. #11
    L'avatar di MariaPaola
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Sant'anastasia
    Messaggi
    6
    Versione Office
    excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: aiuto rinomina file di una cartella

    questo è un file excel con la macro ed una cartella dei file da rinominare
    File Allegati File Allegati
    • Tipo File: zip help.zip (337.9 KB, 10 Visualizzazioni)

  12. #12
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1116
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: aiuto rinomina file di una cartella

    hai allegato un xlsx

  13. #13

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2811
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: aiuto rinomina file di una cartella

    ciao @MariaPaola, ci sono dei problemi:
    1) La cartella contiene i file .csv già rinominati, dovevi allegare i file da rinominare.
    2) Il file di Excel non contiene nessuna macro.
    3) La vecchia macro postata, come già detto da @patel (che saluto) conteneva degli errori (un ciclo non veniva chiuso, e c'era un Next a fine Modulo.
    4) La vecchia macro fa riferimento a celle del foglio che sono vuote!

Discussioni Simili

  1. Se file già esistente in cartella, elimina il file (MACRO)
    Di Gatt88 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 28/02/17, 19:41
  2. [Risolto] Con VBA Cerca File in Cartella e copia in altra cartella
    Di ginofamilio nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 28/01/17, 13:50
  3. File in cartella e elenco su excel
    Di fededigi nel forum Domande su Excel in generale
    Risposte: 20
    Ultimo Messaggio: 10/12/16, 17:14
  4. Risposte: 4
    Ultimo Messaggio: 11/04/16, 21:36
  5. Riprovo a chiedere aiuto per x creare una cartella dinamica
    Di Uistiti63 nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 11/12/15, 11:57

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •