엑셀에서 VBA 활용하여 UTF8 CSV로 저장하기

매크로의 ADODB Stream 을 이용.

---------------------------------------------------------

Sub test1()

  Set fs = CreateObject("ADODB.Stream")

    fs.Type = 2

    fs.Charset = "utf-8"

    fs.Open

    

    For i = 1 To 10

        For j = 1 To 10

            fs.writetext Cells(i, j) & ","

        Next

        

        fs.writetext vbCrLf

    Next

    fs.SaveToFile "d:\temp\excel_utf8_1.csv", 2
 

End Sub

------------------------------------------------------

위의 예제중 행과 열의 맥스치는 적당히 조절..  마지막 태그를 두어도 상관없음.