| | Post: 1 | Registrato il: 29/02/2020
| Età: 29 | Utente Junior | 2007 | | OFFLINE | |
|
29/02/2020 10:11 | |
Salva a tutti sono nuovo in questo forum, ho bisogno del vostro aiuto . Non sono praticissimo con excel e VB. Facendo una ricerca su questo forum ho trovato questa macro che crea un file TXT da excel.
La macro funziona , c'è solo un problema che il file TXT che viene creato non coincide con le colonne e i dati. Nel senso escono fuori posto, se per favore riuscite ad aiutarmi , facendo uscire i dati che inserisco precisamente sotto le colonne grazie. [Modificato da sbirurmen95 29/02/2020 10:12] |
|
| | Post: 4.216 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
29/02/2020 12:09 | |
il nome del file deve essere nella cella A1, tu non l'hai inserito nell'allegato, inoltre c'è un errore nella composizione del percorso, prova questa
Sub crea_txt()
Dim MyDir As String, NomeFile As String
Dim FileExist As Boolean
Application.ScreenUpdating = False
MyDir = ThisWorkbook.Path & "\" '<<<< mancava \
NomeFile = Sheets("CALCOLO").[A1]' <<<< nome in A1
If Dir(MyDir & NomeFile & ".txt") <> "" Then
Select Case MsgBox("Attenzione: esiste già un file con questo nome." _
& vbCrLf & "Vuoi sovrascrivere il file?" _
, vbYesNo Or vbExclamation Or vbDefaultButton1, "Duplicato")
Case vbNo
Exit Sub
End Select
End If
Application.DisplayAlerts = False
Sheets("CALCOLO").Copy
With ActiveWorkbook
.SaveAs Filename:=MyDir & NomeFile & ".txt", FileFormat:=xlUnicodeText
.Close savechanges:=False
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Foglio .txt creato con successo"
End Sub
per far tornare l'allineamento devi inserire nella colonna A denominazioni di lunghezza quasi uguale, come ad es. il file che ti allego [Modificato da patel45 29/02/2020 12:30]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 2.528 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
29/02/2020 13:14 | |
ciao
prendi buona nota della correzione nel codice fatta da Patel.
Per il resto:
- togli tutte le celle unite e i testo a capo
- assegna al foglio carattere Currer New
- solo la riga con le intestazioni:
...- col A nessun allineamento
...- da B a F > allineamento a sinistra
e stampi con: FileFormat:=xlTextPrinter
vedi allegato
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 1 | Registrato il: 29/02/2020
| Età: 29 | Utente Junior | 2007 | | OFFLINE | |
|
02/03/2020 15:49 | |
perfetto grazie mille a tutti , ce un comando o un codice con il quale posso salvare il file testo in una determinata cartella che voglio io ? |
| | Post: 2.533 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
02/03/2020 16:11 | |
già lo fai qui:
MyDir = ThisWorkbook.Path & "\"
ora se al posto di: ThisWorkbook.Path & "\"
ci metti "c:\TuaCartella\"
il file lo trovi in quella cartella.
Però con un po' di buona volontà avresti potuto risolvere da solo.
saluti
Domenico
Win 10 - Excel 2016 |
|
|