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

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

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

엑셀일반 조회 수 3928 추천 수 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
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40206
782 엑셀일반 셀안의 텍스트에....... imagefile [6] [레벨:1]월계몽키 2014-11-26 3570
» 엑셀일반 엑셀 csv 파일 저장에 관해 질문드려요~ [5] [레벨:0]김수영 2014-11-25 3928
780 기타 아별탭 받는법 [2] [레벨:1]뽕밭의향기 2014-11-24 2187
779 엑셀수식 품목별 자재사용내역서에서 조회 원하는 날 이전 근접값 조회하기 file [레벨:4]성투은자 2014-11-19 2767
778 엑셀수식 index 수식을 사용한 열들에서 행별 counta 사용하기 secret [2] [레벨:4]성투은자 2014-11-17 4
777 엑셀수식 다중 셀 Count 함수에 대하여 질문 드립니다. [2] [레벨:5]눈물바다 2014-11-14 2462
776 SUMIF 엑셀 문의드립니다. (엑셀2013) secret [레벨:1]pongpong 2014-11-10 4
775 VLookup VLOOKUP으로 하이퍼링크 주소 가져오기 [1] [레벨:1]으앙 2014-11-06 3931
774 피벗테이블 피벗테이블을 이용한 판매일보 관리 secret [레벨:1]삽질대마왕 2014-11-04 2
773 엑셀수식 엑셀 함수관련해서 질문드려요 file [레벨:4]요셉 2014-11-04 2729
772 VBA 논리식 일거라 예상은 하는데.... 도저히 모르겠어서 여쭤봅니다^^ file [레벨:1]mr_han123 2014-10-28 2494
771 VBA 특정값이 변경될 경우 매크로실행 또는 0이 아닐경우 실행 [2] [레벨:3]jmsynn 2014-10-24 4401
770 VLookup Vlookup으로 하이퍼링크를 땡겨오고 싶습니다. file [2] [레벨:1]wooljima0 2014-10-23 3374
769 엑셀수식 안녕하세요 질문 좀 드리겠습니다 file [2] [레벨:1]달빛아래말할게 2014-10-20 3246
768 엑셀수식 엑셀시트제목 .. 함수 관련 [1] [레벨:1]박주연 2014-10-16 2337
767 엑셀일반 엑셀함수중 일수구하기 질문입니다. [2] [레벨:5]정화 2014-10-14 2561
766 엑셀수식 countif 함수 질문 file [2] [레벨:5]눈물바다 2014-10-05 2507
765 엑셀수식 indirect 함수 질문 file [1] [레벨:5]눈물바다 2014-09-27 2231
764 엑셀일반 하이퍼 링크 추가 질문 file [1] [레벨:5]눈물바다 2014-09-27 2957
763 엑셀일반 하이퍼 링크 [1] [레벨:5]눈물바다 2014-09-26 2519