creare file txt da excel

Buongiorno a tutti,

mi presento mi chiamo Stefano e sono di Torino. sto cercando di imparare ad usare meglio excel e ho trovato il vostro bellissimo forum. Avrei necessità di creare un file di testo formattato in alcune particolari posizioni partendo dai dati su un foglio excel.

Qualcosa sono riuscito a fare salvando il file in formato prn ma non riesco a formattare alcune caselle.

Se vi mando un esempio voi mi potete aiutare?

Grazie.

Buon pomeriggio, @jackto82.

@jackto82, scrive:

---

... Se vi mando un esempio voi mi potete aiutare?

---

Ci possiamo provare.




Giuseppe

Grazie 😀

nel frattempo ho risolto diversi problemini che avevo ma me ne rimane uno un po difficile da risolvere per me.

Nella mia casella excel ho questo valore 8,91 ma io dovrei formattarlo in modo che diventa 00000891.

Sono riuscito tramite formattazione condizionale a mettere gli zeri davanti ma non riesco a togliere la virgola (nell'esempio sopra viene 000008,91)

Oltretutto, quando invece trovo 22,80 il risultato è 0000228 non mi mette lo 0 in fondo (in quuesto caso viene 000022,8).

Per visualizzare 22,80
Presumo che le celle siano formattate come NUMERO + due decimali
In tal caso in cella B1=SOSTITUISCI(TESTO(A1;"#######000000,00");",";"")
Ricorda che 1,00 sarà visualizzato come 00000100
In caso di testo non saprei.

ciao

deduco che stai utilizzando VBA per creare un file TxT
se si bisogna utilizzare un accorgimento con due sub()

la prima che trasforma le celle interessate da numerico a testo
la seconda che ripristina le tue celle a numerico

PS esiste un inconveniente, se in queste celle ci sono formule
a questo punto bisogna proprio vedere la struttura del foglio e valutare la situazione
comunque ti posto le due sub() e il file con le prove in colonna A:A

---

Option Explicit
Sub NumericoTesto()
Dim i As Long
For i = 1 To 10
If Cells(i, 1).NumberFormat = "0.00" Then
Cells(i, 1).NumberFormat = "@"
Cells(i, 1) = Application.Text(Cells(i, 1) * 100, "00000000")
End If
Next
End Sub

Sub TestoNumerico()
Dim i As Long
For i = 1 To 10
If Cells(i, 1).NumberFormat = "@" Then
Cells(i, 1).NumberFormat = "0.00"
Cells(i, 1) = Cells(i, 1) / 100
End If
Next i
End Sub

---

grazie per il vostro aiuto, in realtà ci sono riuscito ma senza vba perche non riesco anche se mi piacerebbe farlo.

alla fine con il comando sostituisci ho messo a posto tutti i campi ed esportato come file di testo delimitato

magari mi impegno e per i prossimi faccio vba ma avrò bisogno del vostro aiuto