VB6 엑셀파일 읽고 쓰는 예제

Public objXcl As Excel.Application
Set objXcl = Excel.Application
objXcl.Workbooks.Add
objXcl.Sheets(1).Select

'Open csv file, then read
Do Until EOF(nFileNbr)
Input #nFileNbr, sTextField(0), sTextField(1), sTextField(2), sTextField(3)

With objXcl
Range("B1").Select
.Range("B1").Value = sTextField(0)
Range("B2").Select
.Range("B2").Value = sTextField(1)
Range("B3").Select
.Range("B3").Value = sTextField(2)
End With
Loop

    FileNum = FreeFile
    Open "e:\data\code\VBElw.csv" For Input As #FileNum
    Line Input #FileNum, nextLine
    ElwCode = Split(nextLine, vbLf)
    n5 = UBound(ElwCode)
    'Open "e:\data\code\VBElw.csv" For Input As #FileNum
    'i = 0
    'Do Until EOF(FileNum)
        'ReDim Preserve StockCode(i)
        'Line Input #FileNum, nextLine
        'LinesFromFile = LinesFromFile + nextLine + vbCr + vbLf
        'splitLine = Split(nextLine, ",")
        'elwCode(i) = splitLine(0)
        'ElwCode(i) = nextLine
        'i = i + 1
    'Loop
    
    FileNum = FreeFile
    Open "e:\data\code\VBStockFuture.csv" For Input As #FileNum
    Line Input #FileNum, nextLine
    StockFutureCode = Split(nextLine, vbLf)
    n6 = UBound(StockFutureCode)
    'Line Input #FileNum, LinesFromFile
    'splitLines = Split(LinesFromFile, ",")
'
    'sFilename = splitLines(0)
    'sFilename = splitLines(1)
    'sFilename = splitLines(2)
    'i = 0
    'Do Until splitLines(i) <> Null
    'splitLine = Split(splitLines(i), ",")
    'elwCode(i) = splitLine(0)
    'i = i + 1
    'Loop
    'Text1.Text = splitLine(0)

VB6 구닥다리라 문제가 참 많다. 할 수 없이 쓰는데 돌겠다.ㅠ 0D 0A 개행문자 문제...

vbCr + vbLf
0A 0D
Dim nextLine As String
    Dim i As Integer
    Dim FileNum As Integer
    Dim a As String
    FileNum = FreeFile
Open "e:\data\code\VBStockFuture.csv" For Input As #FileNum
    i = 0
    Do Until EOF(FileNum)
        ReDim Preserve StockCode(i)
        Line Input #FileNum, nextLine
        StockFutureCode(i) = nextLine
        i = i + 1
    Loop
Err:
    Close FileNum

어디서 이런걸 주서다가 쓰려고 하는데...
이렇게 하면 한줄씩 읽을 수 있다고 했는데... 죽어도 안되서
헥스코드로 열어봤더니 개행문자가 0D 0A로 돼 있다
여긴 문제가 없는데...

UTF8로 저장한 문선데.. 그게 문제인건가
제대로 인식을 못하는 것 같다
파일을 통째로 읽어서 저장을 해 버린다
VB6은 UTF8이건 뭐건 헥스에서 개행문자를 발견했으면 개행을 해야지 0D 0A인데 그걸 왜 이렇게 헤매는건지

vbCr은 먼 음표모양이고
vbLf는 다이아1개짜리 카드모양.. 0D 0A로 뜬다

Line저걸로 해서 일단 배열로 가져오고 
저장문자배열 = Split(문자열,vbLf)
로 처리했다
Line Input #FileNum, nextLine
StockCode = Split(nextLine, vbLf)

이것도 편법인지는 모르겠는데 참... 할줄도 모르는거가지고 고생했네