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
Ciao da locate
excel 2007 / 13