Excel 또는 VBA에서 ISO/IEC 8859 csv 파일로 저장

Question

파일 가져 오기/내보내기에 Magmi를 사용하는 Magento 웹 사이트에서 작업하고 있습니다. Magmi는 ISO/IEC 8859 (Latin-1) 인코딩을 사용하는 소프트웨어입니다. 프랑스어 웹 사이트에서 ISO/IEC 8859로 인코딩 할 때 특수 문자가 필요합니다. 예 : "à"이 "Ã"가되면 "À"가 "Ã" "가되고 "è "가"Ã "가됩니다. ", 등

VBA 매크로를 실행하는 .xlsm 파일에서 .csv 파일을 내 보내야합니다. csv 파일은이 인코딩을 따라야합니다.

지금까지 모든 문자에 대해 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> 도구> 웹 옵션> 미국 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, _ 
    "à", "Ã"), "À", "À"), "è", "è"), "È", "È"), "ù", "ù"), "Ù", "Ù"), _ 
    "â", "â"), "Â", "Â"), "ê", "ê"), "Ê", "Ê"), "î", "î"), "Î", "ÃŽ"), _ 
    "ô", "ô"), "û", "û"), "Û", "Û"), "é", "é"), "É", "É")