.csv dosya içindekileri excele nasıl alırız?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
.csv dosyadaki bilgiler nasıl excel'e alınır?
(Dosyalar aynı klasörde)
Saygılarımla

Ornek_Dosya

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod iş görür.

Sub CSV_AL_TK_BRN()
    isim = ThisWorkbook.Path & "\" & "Ornek_TK.csv"
    Open isim For Input As #1
    Cells.Clear
Line Input #1, textline
txt = Split(textline, ";")
[A1].Resize(, UBound(txt) + 1).Value = txt
a = 2
Do While Not EOF(1)
    Line Input #1, textline
    sut = Len(textline) - Len(Replace(textline, ";", ""))
    txt = Split(textline, ";")
        For ii = 1 To sut + 1
            Cells(a, ii).Value = Trim(txt(ii - 1))
        Next ii
        a = a + 1
    Loop
Close #1
End Sub

 

[Tevfik_Kursun]

Sayın Ömer Baran Hocam,
İlginize çok teşekkür ederim. Düşündüğümden de güzel çalışıyor.
Benim hazırladığım dosyada hiç sorunsuz çalışıyor. İnternette otomatik oluşturulmuş dosyada bu satırda 1004 hatası veriyor. Neden olabilir?
(Muhtemelen dosya sonuna farklı bir şey ekliyor, ama bulamadım.)
Saygılarımla