김수영님..

안녕하세요?

음.. 저도 한번도 시도해보지 않은 케이스의 문제인지라..

샘플이 필요할 것 같습니다.

한두줄의 라인만 있어도 되니.. 샘플 엑셀 파일을 첨부해주시기 바랍니다.

첨부해주시면 연구해서 해답을 구해보겠습니다.

감사합니다. ^^

답변 주셔서 감사합니다!!

샘플파일 첨부드리니 잘 부탁드립니다~~~

감사합니다.

UTF-8로 읽고 쓰기

http://blog.naver.com/atmyhome/90154596931

[이하 위 링크에서 퍼온 코드 ]

Function TextStrimRead(strPathName As String) As String
Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = 2 'adTypeText
    objStream.Charset = "UTF-8"
    objStream.LoadFromFile strPathName
    TextStrimRead = objStream.ReadText
    Set objStream = Nothing
End Function

   
Sub TextStrimWrite(strPathName As String, strString As String)
Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type = 2 'adTypeText
    objStream.Charset = "UTF-8"
    objStream.WriteText strString
    objStream.SaveToFile strPathName, 2 'adSaveCreateOverWrite
    Set objStream = Nothing
er:
End Sub

Sub test()
    '경로는 자신의 경로로 수정하세요.

    'UTF-8형식의 Sample1.txt 파일이 있어야 실행됩니다.
    '텍스트 파일을 읽어오는 예시
    Debug.Print TextStrimRead("C:\Documents and Settings\cjj_biz\바탕 화면\Sample1.txt")
    '
    '텍스트 파일에 쓰는 예시
    TextStrimWrite "C:\Documents and Settings\cjj_biz\바탕 화면\Sample1.txt", "연습입니다."
End Sub