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

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

csv import 관련 문의

엑셀일반 조회 수 8927 추천 수 0 2016.02.23 15:43:27

안녕하세요

엑셀 파일 불러오기를 대량으로 할일이 있어 문의 드립니다.


예를 들어 c:\test\1.csv , c:\test\2.csv , c:\test\3.csv , c:\test\4.csv 파일이 있다고 가정 합니다.

각 파일 내용은 다음과 같습니다.

1

"NO","DES"

"1","asdf"

"2","ㅁㄴㅇㅀ"

2

"NO","DES"

"2","ㅁㄴㅇㅀ"

3

"NO","DES"

"2","ㅁㄴㅇㅀ"

4

"NO","DES"

"2","ㅁㄴㅇㅀ"


위와 같이 있을때 1 2 파일은 SHEET1 에 A1 D1 부터 시작 하여 입력 되고

3 4 파일은 SHEET2 에 A1 D1 부터 시작 하여 입렵 되도록 

VBA 를 구현 하려고 하는데 어려네요


인터넷이 CSV 를 불러오는 쏘스들이 있는데 조금씩 손을 대야 하는데 잘 모르겠어서요


우선 [ , ] 은 구분 해야 합니다.


--


추가로 혹시 CSV 파일을 불러 올때 문자코드를 변경 하려고 하면 어떻게 해야 하나요

python 에서 csv 를 다운 받다 보니 문자코드가 엑셀에서 변환을 한번 해줘야 정상적으로 뜨는 것 같더라고요.


댓글 '3'

[레벨:1]지살

2016.02.23 15:51:40
*.136.154.75

안녕하세요

어찌어찌 하다가 완성은 했는데 문자열이 깨져서 나와서요


Sub test()

    Dim FilePath As String

    Dim LineFromFile As String

    Dim LineItems() As String

    Dim row_number As Integer

    

    'FilePath = Application.DefaultFilePath & "\authors.csv"

    FilePath = "C:\jhj\ze.csv"

    Open FilePath For Input As #1


    row_number = 0

    Do Until EOF(1)

        Line Input #1, LineFromFile

        LineItems = Split(LineFromFile, ",")

        ActiveCell.Offset(row_number, 0).Value = LineItems(0)

        ActiveCell.Offset(row_number, 1).Value = LineItems(1)

        ActiveCell.Offset(row_number, 2).Value = LineItems(2)

        row_number = row_number + 1

    Loop

    Close #1


End Sub


혹시 위 에서 문자열 한글 문자열을 utf8 euc-kr 등을 바꾸려면 어떻게 해야 하는지 문의 드립니다.

profile

[레벨:30]아별

2016.06.21 13:50:45
*.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:23
*.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 40254
176 엑셀일반 엑셀 이미지 [레벨:3]블루짱이 2023-10-21 1628
175 엑셀일반 셀내용 나누기 궁금합니다. secret [레벨:1]남달춘 2021-06-26 4
174 엑셀일반 엑셀 특정 자리 숫자 내림 올림 하는 방법이 뭔가요?? [레벨:1]키모스 2016-10-28 8922
» 엑셀일반 csv import 관련 문의 [3] [레벨:1]지살 2016-02-23 8927
172 엑셀일반 목록에서 특정 단어가 포함되는 목록만 콤보박스에 넣을수 있을까요? imagefile [레벨:1]baddisk 2016-01-09 7329
171 엑셀일반 [긴급문의] 엑셀의 특정셀의 값들이 사라집니다. [1] [레벨:1]용님 2015-09-02 6805
170 엑셀일반 웹 쿼리 관련한 질문입니다 [1] [레벨:1]달빛아래말할게 2015-04-20 6396
169 엑셀일반 안녕하세요? 엑셀 데이터 정렬 질문있습니다. file [2] [레벨:5]정화 2015-03-03 4658
168 엑셀일반 혹시 입력된 데이터숫자 사이에 - << 이걸 집어 넣을수 잇나요? [1] [레벨:1]월계몽키 2015-02-24 3227
167 엑셀일반 최대값, 최소값 범위 지정 file [레벨:3]읍내꽃미남 2015-01-20 3793
166 엑셀일반 엑셀로 출력시 출력물이 깨지는 데에 대한 문의.... imagefile [레벨:1]하룽아비 2015-01-18 3979
165 엑셀일반 일련번호의 중간 값만 올리는 함수가 궁금합니다. file [2] [레벨:1]man날 2015-01-14 3107
164 엑셀일반 한가지 질문요 [레벨:1]싸이킥 2015-01-10 2886
163 엑셀일반 칸에 맞게 붙여넣기 하는법이 궁금해요! imagefile [1] [레벨:1]냠냠이 2015-01-04 2816
162 엑셀일반 메크로 관련 질문입니다!! [1] [레벨:1]럭셔리홍 2014-12-05 3699
161 엑셀일반 셀안의 텍스트에....... imagefile [6] [레벨:1]월계몽키 2014-11-26 3576
160 엑셀일반 엑셀 csv 파일 저장에 관해 질문드려요~ [5] [레벨:0]김수영 2014-11-25 3931
159 엑셀일반 엑셀함수중 일수구하기 질문입니다. [2] [레벨:5]정화 2014-10-14 2566
158 엑셀일반 하이퍼 링크 추가 질문 file [1] [레벨:5]눈물바다 2014-09-27 2959
157 엑셀일반 하이퍼 링크 [1] [레벨:5]눈물바다 2014-09-26 2522