Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro aprire csv da estendere a tutta la cartella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro aprire csv da estendere a tutta la cartella

Postdi genik83 » 08/07/16 13:34

Ciao,
ho una macro che riesce a aprire e salvare un file csv alla volta indicando però sia i percorsi di entrata che di uscita, in pratica ora:
1.apre il file csv indicato nel percorso;
2.tramite i vettori riscrive i dati sul foglio;
3.salva in xlsx il file.
Vorrei però fare in modo da inserire il percorso della cartella in entrata (e far girare la macro per tutti i file presenti), una volta aperto il file andrebbe chiuso e salvato, rinominando in modo sequenziale 1,2,3.. all'interno di una cartella specificata.
Codice: Seleziona tutto
Sub ddl()

Dim f As Integer
Dim B As Byte
Dim tutti(100000)

    ReDim VETTORE(100000, 100)
    f = FreeFile
    Open "C:\Users\pietro\Desktop\08395581005_00010200186_SMG1_ANAG_1606_1.csv" For Binary Access Read As #f
    i = 1
    j = 1
    Do While Not EOF(f)
        Get #f, , B
        If B <> 59 And B <> 10 And B <> 13 Then
            VETTORE(i, j) = VETTORE(i, j) & Chr(B)
        Else
            If B = 59 Then
                j = j + 1
            End If
            If B = 10 Then
                i = i + 1
                j = 1
            End If
        End If
    Loop
   
    Close f

For s = 1 To i
    For j = 1 To 30
        If j = 1 Then
            Foglio1.Cells(s, j) = "'" & VETTORE(s, j)
        Else
            Foglio1.Cells(s, j) = VETTORE(s, j)
        End If
    Next
Next

ActiveWorkbook.Activate
ActiveWorkbook.SaveAs Filename:="C:\Users\pietro\Desktop\prova.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub
genik83
Utente Junior
 
Post: 19
Iscritto il: 07/02/13 22:19

Sponsor
 

Re: Macro aprire csv da estendere a tutta la cartella

Postdi genik83 » 19/09/16 15:48

nessuno riesce a risolvere il problema?
genik83
Utente Junior
 
Post: 19
Iscritto il: 07/02/13 22:19

Re: Macro aprire csv da estendere a tutta la cartella

Postdi Anthony47 » 20/09/16 21:36

Ma questo problema lo avevi inserito in questa sezione a Luglio?

Vorrei però fare in modo da inserire il percorso della cartella in entrata (e far girare la macro per tutti i file presenti), una volta aperto il file andrebbe chiuso e salvato, rinominando in modo sequenziale 1,2,3.. all'interno di una cartella specificata.
Se questa e' la descrizione allora ho capito poco:
-che cosa intendi per "cartella in entrata"?
-quando dici "una volta aperto il file andrebbe chiuso e salvato" di quale file parli? Il csv? Il file excel?
-quando dici "... rinominando in modo sequenziale 1,2,3.." intendi che tutti i file devono essere rinominati con una radice fissa e un suffisso sequenziale?
-quando dici "...all'interno di una cartella specificata" immagino che tu intenda "un percorso specificato", quindi i file devono essere in pratica rinominati e spostati dal percorso iniziale al percorso specificato?

Dopo questi chiarimenti, per poter elaborare un codice attendibile, dovresti pubblicare almeno 4-5 file csv: inseriscili i un ".zip" e poi pubblica il file seguendo le istruzioni che trovi qui:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Macro aprire csv da estendere a tutta la cartella":


Chi c’è in linea

Visitano il forum: Nessuno e 24 ospiti