使用 VBA 在不带货币符号的 csv 中导出访问查询答案

【问题标题】：Export an access query in csv without currency symbol using VBA使用 VBA 在不带货币符号的 csv 中导出访问查询
【发布时间】：2015-05-07 14:07:36
【问题描述】：

我正在使用此代码将查询导出到 CSV 文件中：

Dim getFolder As Object
Dim sLoc As String
Dim sName As String

sName = Me.Name
Set getFolder = Application.FileDialog(4)
With getFolder
    .AllowMultiSelect = False
    If .Show = True Then
        sLoc = getFolder.SelectedItems(1) & "\"
    End If
End With
     DoCmd.TransferText acExportDelim, "csv", sName & "_Csv", sLoc & sName & ".csv", True

但是，有一个字段是货币格式的，并且在 csv 文件中它导出该字段时在数值前面带有货币符号，例如：

test|||||0|0|0|0|0||€ 123,00

不幸的是，我需要在使用 PrestaShop 的网站中导入它，而货币符号会造成麻烦。如何防止符号出现在 CSV 文件中？

【问题讨论】：

标签： vba csv ms-access ms-access-2013

【解决方案1】：

在设计视图中打开查询并将该字段的格式更改为标准。

【讨论】：

谢谢，但这是一种解决方法。我想要一种“更清洁”的方式来做到这一点；）
@AlexK。我知道，对吧。如果这个 Ponzaro 有什么不干净的地方，请展开。
使用 format 函数并不干净，因为它将值转换为文本。
啊——太幽默了！您所在国家/地区的 csv 文件包含哪些内容？

【解决方案2】：

修改您导出到 csv 的查询，使其具有包含此表达式的字段：

Format([YourCurrencyField], "Standard")

但不确定这是否“更干净”。

【讨论】：