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

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

csv import 관련 문의

엑셀일반 조회 수 8915 추천 수 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
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40219
821 엑셀일반 엑셀파일 비밀번호 단체 설정 가능한가요? [30] [레벨:4]쟈니 2012-06-18 53737
820 엑셀일반 회원만 질문을 올릴 수 있습니다. [레벨:30]아별 2010-09-21 33140
819 기타 [필독] 질문시.. 엑셀 파일 첨부, 윈도우버전과 엑셀버전 표기, 답변 받으면 피드백 댓글 꼭 달기.. [레벨:30]아별 2011-08-11 26717
818 엑셀일반 행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한 [3] [레벨:6]파이스 2012-06-01 14260
817 엑셀 웹커리에서 URL 바꾸기 매크로 질문 [1] [레벨:1]밥사마 2009-09-01 13154
816 엑셀- sumif와 sumcol 혼용사용에 대해서 (급해요) [1] 아놔 2009-07-31 12874
815 엑셀일반 엑셀에서 사진 고정하는 방법 없을까요? [3] [레벨:3]빛의행운아 2012-07-30 12556
814 제가 해외 사우디에서 파일을 받았는데 글씨가 계속 깨짐니다. file [1] [레벨:0]홍콩중국홍콩 2010-05-10 10881
813 또 다시 질문이 있어서 왔습니다. (일자별 관리시트에서 이전 시트 값(전일 잔액 등) 자동 불러오기) file [1] [레벨:3]harcz 2010-05-22 10839
812 엑셀수식 3차 방정식 풀기. [1] [레벨:3]rynoel 2012-06-13 10691
811 엑셀에서 지수값 계산하기 [1] [레벨:2]양다원 2009-07-21 10351
810 셀색깔별로 합계를 내고 싶습니다. file [1] [레벨:1]지민 2010-04-09 10330
809 엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7] [레벨:2]만쥬 2010-12-07 10170
808 엑셀 주식형 차트 2009-08-17 9904
807 엑셀에서 특정데이터 불러오기 [1] [레벨:1]쒸뱅이 2009-07-17 9858
806 엑셀일반 셀 안에 삽입된 이미지의 정가운데(가로+세로)정렬 방법이 궁금합니다. [6] [레벨:6]파이스 2011-10-11 9779
805 VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1] [레벨:5]눈물바다 2009-08-27 9731
804 두 자료를 비교하여 같은 값을 다른 시트에... file [1] [레벨:1]프로도 2010-05-11 9655
803 시트 이동/복사 시 나오는 에러에 대해 질문드립니다 [1] [레벨:1]잔차 2010-02-10 9618