使用VBA在csv中导出无货币符号的访问查询

时间:2015-05-07 14:07:37

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

我正在使用此代码在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文件中?

2 个答案:

答案 0 :(得分:3)

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

答案 1 :(得分:2)

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

Format([YourCurrencyField], "Standard")

不确定,如果那是"更清洁"。