ExcelまたはVBAでISO/IEC 8859 csvファイルとして保存

Question

Maggiを使用してファイルをインポート/エクスポートするMagento Webサイトで作業しています。 Magmiは、ISO/IEC 8859（Latin-1）エンコーディングを使用するソフトウェアです。私のウェブサイトはフランス語で書かれているので、特殊文字がISO/IEC 8859としてエンコードされている必要があります。たとえば、 「à」は「Ã」、 「À」は「À」、 「è」は「à "、 など

VBAマクロを実行する.xlsmファイルから.csvファイルをエクスポートする必要があります。 csvファイルはこのエンコーディングに従わなければなりません。

これまでのところ、すべての文字にReplace VBA関数を使用しようとしました。それは動作しますが、非常に遅く、1日に何回も処理するために何千もの回線があります。ここに私のコードは次のとおりです。> [ファイル]> [名前を付けて保存> .csvファイル]> [ツール]> [Webオプション米国のASCII動作していないよう：

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 

End Subの

私も試してみました。

すべてのソリューションはありますか？

ありがとうございます。

Answer 1

私はそれが完全に問題を解決していませんが、知っているVBAコードは、この方法で、より効率的である：

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