ms access - txt - La exportación CSV de una consulta de acceso limita los valores de flotación(simple/doble) a 2 decimales

macro para importar datos de excel a access

Question

Estoy buscando horas para cambiar la cantidad de decimales a 8, en lugar de 2 con acceso a VBA. Encontré algunas soluciones para cambiar las propiedades del sistema usando esta etiqueta:

Const público LOCALE_ILZERO = & H12

pero no funciona y no sé cómo podría cambiar esto para mi programa, independientemente de la computadora que usa este programa.

¿Alguien podría ayudarme?

Answer 1

Lo siguiente producirá 8 decimales:

Dim dblFld As Double
dblFld = 2197.5678
Debug.Print dblFld
Debug.Print Format(dblFld, "#,##0.00000000")

Answer 2

Después de luchar con este problema y descubrir que podía exportar la tabla / consulta de Access a Excel y luego guardarla como CSV a partir de ahí, automaticé el proceso así:

Public Sub ExportToCsvViaExcel(ItemToExport As String, _
DestinationFileSpec As String, _
Optional IncludeFieldNames As Boolean = True)
Const TemporaryFolder = 2
Const xlUp = -4162
Const xlCSVWindows = 23
Dim xlApp As Object '' Excel.Application
Dim xlWorkbook As Object '' Excel.Workbook
Dim fso As Object '' FileSystemObject
Dim TempFileSpec As String
Set fso = CreateObject("Scripting.FileSystemObject")
TempFileSpec = fso.GetSpecialFolder(TemporaryFolder) & "/" & fso.GetTempName & ".xls"
Set fso = Nothing
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, ItemToExport, TempFileSpec, False
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open(TempFileSpec)
If Not IncludeFieldNames Then
xlApp.Rows("1:1").Select
xlApp.Selection.Delete Shift:=xlUp
End If
xlWorkbook.SaveAs DestinationFileSpec, xlCSVWindows
xlWorkbook.Close False
Set xlWorkbook = Nothing
xlApp.Quit
Set xlApp = Nothing
Kill TempFileSpec
End Sub

El código anterior no fuerza el número de decimales a 8 (ni a ningún otro número), solo emite tantos como hay.

Por lo que sé, la única forma de cambiar el comportamiento de redondeo / truncamiento para las exportaciones de CSV desde Access es abrir las "Opciones regionales y de idioma" en el Panel de control de Windows, hacer clic en el botón "Personalizar este formato ..." en el Pestaña "Formatos", luego cambie el valor "Núm. De dígitos después del decimal" en la pestaña "Números":

( 2 es un valor predeterminado muy común. En el cuadro de diálogo anterior lo he cambiado a 5 ).

No estoy al tanto de ninguna forma de cambiar ese valor de VBA, y tengo mis dudas de que al hacerlo cambiaría el comportamiento de la instancia de acceso actualmente en ejecución de todos modos.

Answer 3

Muchas gracias, funciona perfectamente. Llamé a la función así:

dokumentpath = "C:/Users/" & GetUser() & "/Documents/Exportet_Table.csv"
Call ExportToCsvViaExcel("T_CUSTOMERS", dokumentpath, True)
MsgBox ("The Table T_CUSTOMERS was sucessfully exportet to: " & dokumentpath)