ms-access – Access查询的CSV导出将float(Single / Double)值限制为2个小数位

在我自己解决这个问题并发现我可以将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实例的行为.