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

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

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

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

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


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


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



도움 부탁드려요!!



감사합니다.


댓글 '6'

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


Katina

2022.08.31 17:59:33
*.255.168.25

Nike Outlet Cheap Nike Shoes From China Free Shipping Adidas Shoes For Women Air Max NHL Shop Canada Cheap Jordan Shoes Nike Air Max 270 Cheap Jerseys From China Nike Air Force 1 Men Jordan 11 Low Jordan 1 Pandora Outlet Jordan 25 Adidas Wholesale Distributor Air Max AJ1 Nike Acg Shoes Cheap Nike Shoes From China MLB Shop Cheap Adidas Shoes Nike Blazers Christian Louboutin Outlet Lebron James Shoes Nikes Jordan 19 Jordan 27 Jordan 33 Jordan 15 Nike Store Christian Louboutin Huaraches Shoes Pandora Jewelry Charms Pandora Jewelry Black Friday Jordan 11 Retro Nike Off White Air Jordan 17 Nike Sneakers Nike Air Max 97 Jordan 11 Retro Pandora Bracelet Nike Air Max 270 Flyknit Cheap Jordans Air Force 1 Jordan 12 Air Max Nike Dunk Air Force Ones Nike Pandora Jewelry Official Site Jordan 13 Nike Outlet Online Pandora Jewelry Official Site Kids Jordans Nike Shoes For Women Yeezy Boost 350 V2 Jordan 29 Nike Wholesale Distributors Cheap Jordans From China Nike Outlet Pandora Jewelry Jordan 33 shoes Adidas Store Wholesale Jordans Nike Air Force Jordan 21 Nike Shoes Pandora CZ Charms Air Max 2019 Nike Sneakers For Women Jordan 31 Nike Air Max 95 Nike Running Shoes For Women Jordan 16 Nike Free rn Pandora Jewelry Official Site Wholesale Nike Shoes China Air Force 1 Shoes Nike Outlet Official Nike Outlet Online Store Air Max 720 Nike Outlet Store Nike Canada Air Jordan 32 Wholesale Nikes Free Shipping Nike Outlet Store Online Shopping Jordans 13 Nike Jordan 1 Pandora Outlet Nike Shoes Canada Pandora Canada Huaraches Jordan Shoes Pandora Jewelry Charms Jordan 28 Pandora Rings Jordan 23 Jordan 22 Pandora Rings Dior Jordans Michael Jordan Shoes Jordans 24 Nikes Wholesale Nike Shoes Nike Cyber Monday Nike Wholesale Jordan 34 Nike Blazer Air Jordan Retro Nike Cortez Men Nike Womens Nike Infant Jordan NHL Jerseys Pandora Jewelry Official Site Red Bottom Shoes Christian Louboutin Nike Free NFL Gear Pandora Charms Nike Zoom Jordan 30 Jordans 20 Jordan 35 Jordan Retro 4 Wholesale Air Jordans Nike Air Max Women Nike Outlet Pandora Charms Jordan 2s Retro 12 Pandora Bracelet Charms Nike Clearance NHL Store Nike Shoes Outlet Store Online Shopping Jordans 12 Jordans 18 Nike Outlet What The Jordan 5s Wholesale Adidas Shoes Jordan Shoes Pandora Charm Pandora Jewelry New Jordans Pandora Jewelry Nike Huarache Women Air Jordan 33 Nike Jordan Nike Shoes For Mens Jordan Concord Cheap Jordan 11 Nike Epic React Flyknit Nike Zoom Nike Shoes Sale Jordan 26 Nike Adidas NMD R1 Jordan 6s Nike Factory Nike Air Foamposite NBA Store Canada Adidas Yeezy Air Jordan 14
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 19495

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

기타 아별탭 받는법 [2]

엑셀수식 품목별 자재사용내역서에서 조회 원하는 날 이전 근접값 조회하기 file

엑셀수식 index 수식을 사용한 열들에서 행별 counta 사용하기 secret [2]

엑셀수식 다중 셀 Count 함수에 대하여 질문 드립니다. [2]

SUMIF 엑셀 문의드립니다. (엑셀2013) secret

VLookup VLOOKUP으로 하이퍼링크 주소 가져오기 [1]

  • [레벨:1]으앙
  • 2014-11-06
  • 조회 수 2330

피벗테이블 피벗테이블을 이용한 판매일보 관리 secret

엑셀수식 엑셀 함수관련해서 질문드려요 file

  • [레벨:4]요셉
  • 2014-11-04
  • 조회 수 1491

VBA 논리식 일거라 예상은 하는데.... 도저히 모르겠어서 여쭤봅니다^^ file

VBA 특정값이 변경될 경우 매크로실행 또는 0이 아닐경우 실행 [2]

  • [레벨:3]jmsynn
  • 2014-10-24
  • 조회 수 2582

VLookup Vlookup으로 하이퍼링크를 땡겨오고 싶습니다. file [2]

엑셀수식 안녕하세요 질문 좀 드리겠습니다 file [2]

엑셀수식 엑셀시트제목 .. 함수 관련 [1]

엑셀일반 엑셀함수중 일수구하기 질문입니다. [2]

  • [레벨:5]정화
  • 2014-10-14
  • 조회 수 1164

엑셀수식 countif 함수 질문 file [2]

엑셀수식 indirect 함수 질문 file [1]

엑셀일반 하이퍼 링크 추가 질문 file [1]

엑셀일반 하이퍼 링크 [1]

엑셀일반 다중셀 중복 항목 찾기 (시간표 같은 표에서) file [2]

  • [레벨:4]thoi
  • 2014-09-15
  • 조회 수 1926