Metni içeri aktar ayırıcılar

[vivident]

Merhaba

txt. uzantılı dosyada ki verileri excele aktarıyorum. Lakin verilerin hepsinin tek sütuna değilde. Veriler arasındaki boşlukları dikkate alarak sütunlara aktarılmasını istiyorum

Örneğin ; txt dosyasında "Ali topu at" kelimesi olsun
"Ali" sütun A'ya
"topu" sütun B'ye
"at" sütun C'ye

Ali | topu | at


Metin içeri aktarma sihirbazı ile bu işlemi yapmak kolay, lakin ben bu işlemi manuel değil de kod içinde kullanılarak yapmak istiyorum. Kodlar ve dosyam ektedir

Sub VeriAl()
Dim Satir As Long
dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub
Open dosya For Input As #1
Do While Not EOF(1)
    Input #1, Kayit
    If Kayit <> Empty Then
        Satir = Satir + 1
        Sheets("B").Cells(Satir, "B") = Kayit
    End If
Loop
Close #1
End Sub

 

[Asri]

Merhaba
Ali | topu | at
Metin içeri aktarma sihirbazı ile bu işlemi yapmak kolay, lakin ben bu işlemi manuel değil de kod içinde kullanılarak yapmak istiyorum. Kodlar ve dosyam ektedir

Bu kod ile deneyiniz.

Sub VeriAl()
Dim Satir As Long
dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub
Open dosya For Input As #1
Do While Not EOF(1)
    Input #1, kayit
    If kayit <> Empty Then
        Satir = Satir + 1
        liste = Split(kayit, " ")
        sutun = 1
        For i = LBound(liste) To UBound(liste)
          sutun = sutun + 1
          Cells(Satir, sutun) = liste(i)
        Next i
    End If
Loop
Close #1
End Sub

 

[vivident]

teşekkür ederim, sağolun