Se pregunta es clara en ningún momento pregunta enviar a Excel, entiendo enviar a un archivo texto el campo del número en formato exponencial. Tengo la siguiente tabla
Utilizo la función Format() para obtener el número en forma normal, es decir, no científico.
Explico las 2 formas de crear el archivo texto mediante Open (sistema antiguo) y FSO. En cualquiera de las formas obtengo:
129035534880574,00
294535534880574,00
48563553488057500,00
89453553488057500,00
Código del botón Exporta a TXT
Private Sub btnExporta_Click()
Dim strArchivo As String
Dim bytArchivo As String
Dim strLinea As String
Dim sql As String
Dim rs As DAO.Recordset
sql = "SELECT numero_exp FROM tblExponencial"
Set rs = CurrentDb.OpenRecordset(sql)
bytArchivo = FreeFile
strArchivo = "D:\TodoExpertos\exponencial.txt"
'Abro el archivo
Open strArchivo For Output As bytArchivo
Do Until rs.EOF
Print #bytArchivo, Format(rs!numero_exp, "###0.00")
rs.MoveNext
Loop
Close #bytArchivo
End Sub
Código del botón
Private Sub btnFSO_Click()
Dim fso As New FileSystemObject
Dim stream As TextStream
Dim sql As String
Dim rs As DAO.Recordset
sql = "SELECT numero_exp FROM tblExponencial"
Set rs = CurrentDb.OpenRecordset(sql)
Set stream = fso.CreateTextFile(CurrentProject.Path & "\ex_ponencial.txt")
Do Until rs.EOF
stream.writeline Format(rs!numero_exp, "###0.00")
rs.MoveNext
Loop
Set stream = Nothing
End Sub
Particularmente prefiero con FSO.