我搜索了几个小时来将小数位数更改为8,而不是使用VBA Access将小数位数更改为2.我找到了一些使用此标记来更改系统属性的解决方案：
公共Const LOCALE_ILZERO =& H12
但它不起作用,我不知道如何改变我的程序,独立于使用该程序的计算机.
谁能帮助我？
解决方法
在我自己解决这个问题并发现我可以将Access表/查询导出到Excel然后从那里将其保存为CSV之后,我自动执行了这样的过程：
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
上面的代码不会强制小数位数为8(或任何其他数字),它只输出尽可能多的数字.
据我所知,从Access本身更改CSV导出的舍入/截断行为的唯一方法是在Windows控制面板中打开“区域和语言选项”,单击“自定义此格式…”按钮“格式”选项卡,然后更改“数字”选项卡上的“十进制后的位数”值：
(2是一个非常常见的默认值.在上面的对话框中我将它改为5.)
我不知道有什么方法可以从VBA中改变这个值,我怀疑这样做会改变当前正在运行的Access实例的行为.
