CSV dosyası satır verileri sütün şeklinde çekme

[aliahmet]

Merhabalar,

Satır şeklinde veri içeren csv dosyam var. Bu verileri Sütün şeklinde nasıl excel dosyasına alabilirim. Ekran görüntüleri aşağıdadır.

Teşekkür ederim.

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Public Sub text_oku()
  Dim ReadData As String
  Open "veri.txt" For Input As #1
  say = 0
  sira = 2
 
  Do Until EOF(1)
     Line Input #1, ReadData
     If ReadData <> ";" Then
        alanadi = Left(ReadData, InStr(1, ReadData, ";") - 1)
        alandegeri = Mid(ReadData, InStr(1, ReadData, ";") + 1, Len(ReadData))
        say = say + 1
        If say = 1 Then Cells(1, 1).Value = alanadi
        If say = 2 Then Cells(1, 2).Value = alanadi
        If say = 3 Then Cells(1, 3).Value = alanadi
        
        If alanadi = "Adı" Then Cells(sira, 1).Value = alandegeri
        If alanadi = "Soyadı" Then Cells(sira, 2).Value = alandegeri
        If alanadi = "Adres" Then Cells(sira, 3).Value = alandegeri
     Else
       sira = sira + 1
     End If
  Loop
  Close #1
End Sub

 

[aliahmet]

Çok Teşekkür ederim.

 

[Milady Meriç]

Merhaba,

Çok sık kullanıyorsanız, bilgisayarınızın bölgesel yarlarını da değiştirebilirsiniz.

Teşekkürler.