Condividi:        

Creare txt da Excel con nome definito da valore cella

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

Creare txt da Excel con nome definito da valore cella

Postdi buni75 » 08/11/16 18:11

buonasera,

ho un file dove nella colonna B è presente un valore ripetuto N volte.
ho cercato altri post ma non ho trovato la soluzione al caso, ovvero : le righe che presentano lo stesso valore nella colonna B, devono generare un txt a tabulazione nella cartella C:\test.

esempio : le prime 50 righe presentano il valore "1234", pertanto verrà creato un file 1234.txt nella cartella C:\test.

diciamo che su 1000 righe i valori della colonna B sono circa una ventina, pertanto nella cartella c:\test verranno creati circa 20 file.

ecco il link del file : https://fil.email/4DZ9CK2

grazie, Buni
buni75
Utente Junior
 
Post: 41
Iscritto il: 24/08/11 20:20

Sponsor
 

Re: Creare txt da Excel con nome definito da valore cella

Postdi Anthony47 » 09/11/16 01:11

Questa macro dovrebbe funzionare sul file che hai pubblicato; se pero' ci fossero delle date allora il risultato puo' essere equivoco, perche' le date saranno trasformati in numeri (secondo lo standard delle Date di Excel).
Codice: Seleziona tutto
Sub testore()
Dim cFile As String, cPath As String, I As Long, J As Long, myRow As String
Dim myF As Long
'
cPath = "C:\Users\Percorso\"              '<<< La directory in cui su creeranno i txt, con \ finale
Close #1
For I = 2 To Cells(Rows.Count, "B").End(xlUp).Row
    If Cells(I, 2) & "" <> cFile Then
        Close #1: myF = myF + 1
        cFile = Cells(I, 2)
        Open cPath & cFile & ".txt" For Output As #1
    End If
    myRow = ""
    For J = 1 To Cells(I, Columns.Count).End(xlToLeft).Column
        myRow = myRow & Cells(I, J) & Chr(9)
    Next J
    Print #1, Left(myRow, Len(myRow) - 1)
Next I
Close #1
MsgBox ("Compilati " & myF & " file(s)")
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Creare txt da Excel con nome definito da valore cella":

BTp Valore
Autore: MarioLombardi
Forum: Forum off-topic
Risposte: 2

Chi c’è in linea

Visitano il forum: Nessuno e 58 ospiti