1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

엑셀 csv 파일 저장에 관해 질문드려요~

엑셀일반 조회 수 3927 추천 수 0 2014.11.25 09:46:59

중문, 한글 등 2가지 언어가 포함된 엑셀 파일을 csv 형식으로 저장하려고 하는데요.


계속 중문이 깨져서 나오네요.


인코딩을 utf-8로 바꿔도 보고, 언어 설정을 중문으로도 바꿔보기도 했는데요. 중문 깨짐 현상을 해결하지 못하고 있습니다.



도움 부탁드려요!!



감사합니다.


댓글 '5'

profile

[레벨:30]아별

2014.12.03 16:05:29
*.132.210.135

김수영님..

안녕하세요?


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

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


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

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


감사합니다. ^^

[레벨:0]김수영

2015.01.08 13:23:31
*.134.115.148

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


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



감사합니다.

첨부
profile

[레벨:30]아별

2015.03.30 18:17:33
*.132.210.135

김수영님.. 

쌩으로 몇번 시도를 하다가.. 해결이 안되어.. 

잠시 구글링을 해봤습니다.


1. 엑셀 자체적으로 해결하는 방법은 없는듯 하군요..

   좀 원시적이지만.. 일단 엑셀 파일에서 유니코드 텍스트(Unicode Text)로 저장하신 다음..

   메뉴장(Notepad.exe)에서 저장한 텍스트 파일을 열고.. 탭을 복사한 다음 바꾸기로 탭을 콤마(,)로 바꾼 다음 csv로 저장하는 방법이 있겠습니다.


https://help.salesforce.com/apex/HTViewSolution?id=000003837&language=en_US



2. 추가기능을 설치해서 해결..

    저도 설치해보진 않았지만.. 그런 작업을 해주는 추가기능이 있는 듯 합니다.


     https://jaimonmathew.wordpress.com/



좀 더 연구해보겠습니다. +_+;;


profile

[레벨:30]아별

2016.06.21 13:58:41
*.104.145.90

엑셀 파일 내용을 CSV파일로 UTF-8로 인코딩해서 export하는 소스가 있습니다.

http://slway000.tistory.com/17

https://techspread.wordpress.com/2012/12/05/export-excel-to-csv-in-unicode-utf-8-using-macro-vba/


참고하시기 바랍니다.


Public Sub WriteCSV()
Set wkb = ActiveSheet
Dim fileName As String
Dim MaxCols As Integer
fileName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")

If fileName = "False" Then
End
End If

On Error GoTo eh
Const adTypeText = 2
Const adSaveCreateOverWrite = 2

Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Charset = "UTF-8"
BinaryStream.Type = adTypeText
BinaryStream.Open

For r = 1 To 10
s = ""
c = 1
While Not IsEmpty(wkb.Cells(r, c).Value)
s = s & wkb.Cells(r, c).Value & ","
c = c + 1
Wend
BinaryStream.WriteText s, 1
Next r

BinaryStream.SaveToFile fileName, adSaveCreateOverWrite
BinaryStream.Close

MsgBox "CSV generated successfully"

eh:

End Sub 


profile

[레벨:30]아별

2016.06.21 14:09:04
*.104.145.90

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


문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜sort 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40205

엑셀일반 엑셀 csv 파일 저장에 관해 질문드려요~ [5]

엑셀일반 셀안의 텍스트에....... imagefile [6]

엑셀일반 메크로 관련 질문입니다!! [1]

VBA vba로 서식정렬 [4]

엑셀일반 칸에 맞게 붙여넣기 하는법이 궁금해요! imagefile [1]

VBA 엑셀 메모의 배경으로 삽입한 이미지 추출하기 file

엑셀일반 한가지 질문요

VBA 특정색 행 삭제 메크로 배워보고 싶습니다~ imagefile [2]

VBA 몇가지 질문들 [8]

엑셀일반 일련번호의 중간 값만 올리는 함수가 궁금합니다. file [2]

  • [레벨:1]man날
  • 2015-01-14
  • 조회 수 3102

엑셀수식 랭킹 구하는 함수 질문 file

엑셀일반 엑셀로 출력시 출력물이 깨지는 데에 대한 문의.... imagefile

VBA 오늘도 질문!^^있습니다.

엑셀일반 최대값, 최소값 범위 지정 file

기타 엑셀 문의 드립니다. secret [2]

  • [레벨:0]대성
  • 2015-02-06
  • 조회 수 6

VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1]

엑셀일반 혹시 입력된 데이터숫자 사이에 - << 이걸 집어 넣을수 잇나요? [1]

엑셀수식 엑셀 수식 질문드립니다._ 2가지 조건을 만족하는 값 찾기(VLOOKUP, MATCH) secret [3]

  • [레벨:0]대성
  • 2015-02-26
  • 조회 수 8

엑셀일반 안녕하세요? 엑셀 데이터 정렬 질문있습니다. file [2]

  • [레벨:5]정화
  • 2015-03-03
  • 조회 수 4652

VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결 file

  • [레벨:1]speena
  • 2015-03-11
  • 조회 수 4811