macro per creare file in txt da foglio excel

Ho provato e sembra veramente perfetto, adesso calcola solo le righe attive, domani faccio la prova della verità

Finalmente è ok, accettato dal sistema non mi pare vero grazie, ho impostato il percorso desktop per comodità ma visto che cambia da pc a pc esiste un percorso per cosi dire "universale"?

se il file di testo lo vuoi nella stessa cartella in cui si trova il file con la macro

DestFile = ThisWorkbook.Path & "\file.txt"

Perfetto grazie, adesso metterò al lavoro questa cartella piu tardi approfitterò di un altro aiuto per il csv da tab1 che soffre degli stessi problemi del txt (famosi campi vuoti non vuoti)

Come anticipato sto cercando di replicare la stessa cosa per creare un csv da tab1, bastano solo separatoti con virgola senza spazi, ho cercato di apportare qualche modifica al codice del txt che lavora benissimo e lascia le righe sotto vuote, il csv lo crea ma su una riga unica senza separatori, qua sotto riporto il codice che ho modificato:

Option Base 1
Sub crea_CSV ()
LR = Cells(Rows.Count, "A").End(xlUp).Row
numvuote = WorksheetFunction.CountBlank(Range("A1:A" & LR))
numpiene = LR - numvuote
DestFile = ThisWorkbook.Path & "\file.csv" ' <<<< da modificare
FileNum = FreeFile()
arr = Array(72, 72, 4, 60, 10, 4, 72, 1, 16, 7) ' basta la virgola
Open DestFile For Output As #FileNum
For r = 1 To numpiene
s = ""
For c = 1 To 10
s = s & Cells(r, c).Text & Space(arr(c) - Len(Cells(r, c).Text))
Next
Print #FileNum, s
Next
Close #FileNum
MsgBox "FILE CSV creato con successo", vbOKOnly ' aggiunto
End Sub

Lasciando per il momento da parte il file csv, avrei la necessita tornando indietro di qualche post, di poter scegliere la destinazione del file di testo e eventualmente la sovrascrittura, adesso è impostato sulla stessa directory del foglio. grazie anticipatamente

invece di
DestFile = ThisWorkbook.Path & "\file.txt"
scrivi il percorso
DestFile = "C:\miadir\file.txt"

ho provato ma mi dice "impossibile trovare il percorso" ho fatto delle prove ma uguale, non so se può servire utilizzo seven

ovviamente devi inserire un percorso esistente, solo tu puoi farlo

con xp non c'erano problemi con seven è diventato piu complicato non riesco a trovare una stringa del tipo c: utenti utente corrente ecc che funzioni

aquila-67, 17/02/2017 13.21:

---

con xp non c'erano problemi con seven è diventato piu complicato non riesco a trovare una stringa del tipo c: utenti utente corrente ecc che funzioni

---

vai nella cartella che vuoi utilizzare, clicca col destro su un file di quella cartella, scegli proprietà, ti fa vedere il percorso completo

ok,grazie

Buongiorno, rieccomi con un altro problema, ho la necessità di esportare in un foglio csv i dati riportati nel foglio "tab2", nell'esempio riportato, ho provato molte macro reperite in rete e adattate, ma senza successo, premetto che il csv ideale dovrebbe essere con virgole e esportare solo le righe piene del tab2 tralasciando le vuote per evitare i problemi gia successi con il txt. riallego lo stesso esempio per comodità, grazie

modifica il percorso del file di output

Grazie, preciso come sempre, da prove fatte a casa è ok, domani lo metto al lavoro

Ok, per fare come il file di testo fatto all'inizio ed avere il file esportato nella stessa directory del programma (in modo generico cosi se mi sposto di pc anche con chiavette) non devo cambiare percorso come devo impostare?

Ps. con questo spero di aver finito di scocciare almeno per questa cosa.

Buongiorno, sto utilizzando la macro qui sotto per creare file txt modificando come già suggerito la destinazione file in ---DestFile = ThisWorkbook.Path & "\file.txt" --- così si crea nella stessa directory del programma, ho la necessità di nominare di volta in volta il file creato con un nome indicato in una data cella di un foglio, è possibile farlo modificando questa macro?

patel45, 30/01/2017 18.41:

---

Option Base 1
Sub crea_TXT_nominativi()
LR = Cells(Rows.Count, "A").End(xlUp).Row
numvuote = WorksheetFunction.CountBlank(Range("A1:A" & LR))
numpiene = LR - numvuote
DestFile = "C:\prova_file\file.txt" ' <<<< da modificare
FileNum = FreeFile()
arr = Array(72, 72, 4, 60, 10, 4, 72, 1, 16, 7) ' lunghezze campi
Open DestFile For Output As #FileNum
For r = 1 To numpiene
  s = ""
  For c = 1 To 10
    s = s & Cells(r, c).Text & Space(arr(c) - Len(Cells(r, c).Text))
  Next
  Print #FileNum, s
Next
Close #FileNum
End Sub

---

cosa scrivi nella cella ? il percorso completo ?

Attualmente utilizzo questo codice inserito nella macro: DestFile = ThisWorkbook.Path & "\nominativi.txt" ' <<<< da modificare. La destinazione è giusta (stessa della cartella), il nome "nominativi" dovrebbe essere variabile in base al nome contenuto in una data cella di un foglio che farò (stessa cartella), che corrisponderebbe poi al nome di chi lo ha creato in modo da non dover essere successivamente rinominato manualmente. Quindi chi utilizza il programma ha inserito il proprio nome in un foglio e cella cosi da trovarsi il file salvato e nominato.

macro completa

Sub crea_file_nominativi()
LR = Cells(Rows.Count, "A").End(xlUp).Row
numvuote = WorksheetFunction.CountBlank(Range("A1:A" & LR))
numpiene = LR - numvuote
DestFile = ThisWorkbook.Path & "\nominativi.txt" ' <<<< da modificare
FileNum = FreeFile()
arr = Array(72, 72, 4, 60, 10, 4, 72, 1, 16, 7) ' lunghezze campi
Open DestFile For Output As #FileNum
For r = 1 To numpiene
s = ""
For c = 1 To 10
s = s & Cells(r, c).Text & Space(arr(c) - Len(Cells(r, c).Text))
Next
Print #FileNum, s
Next
Close #FileNum
MsgBox "FILE TXT nominativi creato con successo nella STESSA CARTELLA del programma", vbOKOnly

End Sub

ma non hai risposto alla domanda

nella cella scriverò il nome di chi crea il file, il percorso di salvataggio è la stessa cartella del programma, non so se è questo che ti serve sapere...

DestFile = ThisWorkbook.Path & "\" & range("A1") & ".txt"

ok funziona perfettamente ma se creo il campo sulla cella g12 del foglio9 come modifico? (capisco adesso che forse è questo che volevi sapere)

DestFile = ThisWorkbook.Path & "\" & Sheets(9).range("G12") & ".txt"

ok funziona perfettamente grazie per la pazienza.

Salve a tutti, riprendo questa discussione perchè utilizzando questa macro a volte si crea un problema, non dovuto alla macro in oggetto a questa discussione ma a chi inserisce i dati, mi spiego meglio, nel foglio di inserimento dei soggetti a volte vengono inseriti inavvertitamente spazi invisibili davanti ai nomi e questo crea problemi all'elaborazione perchè vengono di pari passo riportati nel file txt creati da questa macro, chiedo se possibile modificando il codice di eliminare questi spazi ma solo all'inizio dei campi in quanto un nome composto può contenere spazi. Non so se sono riuscito a spiegarmi.

Buongiorno, pensate che questa cosa non sia fattibile proprio?

Buongiorno a tutti,
mi chiamo Stefano e sono nuovo del forum. Ho letto qui molte cose interessanti e vorrei collaborare un pò con le mie conoscenze e chiedervi qualche aiuto.

Vorrei fare una macro che mi esportasse un file excel con determinate tabulazioni in modo da farlo leggere al mio programma esterno.

Secondo voi è possibile?
Grazie.