컴퓨터잡담

VBA를 이용한 엑셀 프로그래밍

by Progress posted Sep 23, 2011

Prev이전 문서

Next다음 문서

ESC닫기

vba 검색 결과

엑셀에서 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) & ","

fs.writetext vbCrLf

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

End Sub

------------------------------------------------------
위의 예제중 행과 열의 맥스치는 적당히 조절.

마지막 태그를 두어도 상관없음.

29 30 31 32 33