在 Excel 或 VBA 上另存为 ISO/IEC 8859 csv 文件

Question

我正在开发一个使用 Magmi 进行文件导入/导出的 Magento 网站。 Magmi 是一款使用 ISO/IEC 8859 (Latin-1) 编码的软件。由于我的网站是法语的，因此我需要将特殊字符编码为 ISO/IEC 8859。例如： “à”变成“Ô， “À”变成“À”， “è”变成“è”， 等等

我必须从运行 VBA 宏的 .xlsm 文件中导出一个 .csv 文件。 csv 文件必须遵循这种编码。

到目前为止，我已经尝试对每个字符使用 Replace VBA 功能。它可以工作，但是速度很慢，而且我每天要处理数千行。这是我的代码：

Sub replaceFrenchCharacters()
For Each cell In ActiveSheet.UsedRange.Cells
    cell.Value = Replace(cell.Value, "à", "Ã")
    cell.Value = Replace(cell.Value, "À", "À")
    cell.Value = Replace(cell.Value, "è", "è")
    cell.Value = Replace(cell.Value, "È", "È")
    cell.Value = Replace(cell.Value, "ù", "ù")
    cell.Value = Replace(cell.Value, "Ù", "Ù")
    cell.Value = Replace(cell.Value, "â", "â")
    cell.Value = Replace(cell.Value, "Â", "Â")
    cell.Value = Replace(cell.Value, "ê", "ê")
    cell.Value = Replace(cell.Value, "Ê", "Ê")
    cell.Value = Replace(cell.Value, "î", "î")
    cell.Value = Replace(cell.Value, "Î", "ÃŽ")
    cell.Value = Replace(cell.Value, "ô", "ô")
    cell.Value = Replace(cell.Value, "û", "û")
    cell.Value = Replace(cell.Value, "Û", "Û")
    cell.Value = Replace(cell.Value, "é", "é")
    cell.Value = Replace(cell.Value, "É", "É")
Next

结束子

我也尝试过：文件 > 另存为 > .csv > 工具 > Web 选项 > US ASCII，但它似乎不起作用。

有什么解决办法吗？

提前致谢。

Answer 1

我知道这并不能完全解决问题，但 VBA 代码这样更有效：

    cell.Value = _
    Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
    Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
    cell.Value, _
    "à", "Ã"), "À", "À"), "è", "è"), "È", "È"), "ù", "ù"), "Ù", "Ù"), _
    "â", "â"), "Â", "Â"), "ê", "ê"), "Ê", "Ê"), "î", "î"), "Î", "ÃŽ"), _
    "ô", "ô"), "û", "û"), "Û", "Û"), "é", "é"), "É", "É")