Text dosyasından veri çekme

[hpalpal]

Herkese merhaba, yeni başlayanlardanım şöyle bir problemim var
bir text dosyam var bunun içerisinde

222; 11.2; 111.5

tek satırlık bir verim var bunları noktalı virgülden ayırarak hepsini ayrı ayrı sutunlara çekmek istiyorum

Forumdaki örneklere bakarak aşağıdaki gibi bir kod yazabildim. sadece tek satıra bütün veriyi yazdı.

Dim sh As Worksheet, sat As Long, i As Integer
Set sh = Sheets("AnaSayfa")
'sh.Range("A2:C31").ClearContents
sat = 2
Open "C:\Users\User\Desktop\xdosya\x_1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
sh.Cells(sat, "A").Value = a
Loop
Close #1

İstediğim gibi nasıl yapabilirim? dediğim gibi yeni başladığım için acemiyim yardımcı olabilirseniz çok sevinirim. Teşekkürler

 

[Orion1]

Buyurun.

Dim sh As Worksheet, sat As Long, i As Integer, sut As Integer
Dim k As Integer
Set sh = Sheets("AnaSayfa")
'sh.Range("A2:C31").ClearContents
sat = 2
Open "C:\Users\User\Desktop\xdosya\x_1.txt" For Input As #1
'Open ThisWorkbook.Path & "\x_1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
deg = Split(a, ";")
sut = 1
For k = 0 To UBound(deg)
    Cells(sat, sut).Value = deg(k)
    sut = sut + 1
Next
sat = sat + 1
Loop
Close #1

 

[hpalpal]

Sorunum halloldu. Çok teşekkür ederim. Bir sorum daha olacaktı. Bunun gibi 5 tane daha ayrı text dosyam var ve bunları alt alta gelecek şekilde excele çekmek istiyorum. bu text dosya ismi ornek_1.txt iken 2. ornek_2.txt, ornek_3.txt diye gidiyor adları. Bunları tek kodla çekebilir miyim?

 

[Orion1]

Sorunum halloldu. Çok teşekkür ederim

Rica ederim.
iyi çalışmalar.

 

[hpalpal]

Bir sorum daha olacaktı. Bunun gibi 5 tane daha ayrı text dosyam var ve bunları alt alta gelecek şekilde excele çekmek istiyorum. bu text dosya ismi ornek_1.txt iken 2. ornek_2.txt, ornek_3.txt diye gidiyor adları. Bunları tek kodla çekebilir miyim?

 

[Orion1]

Bir sorum daha olacaktı. Bunun gibi 5 tane daha ayrı text dosyam var ve bunları alt alta gelecek şekilde excele çekmek istiyorum. bu text dosya ismi ornek_1.txt iken 2. ornek_2.txt, ornek_3.txt diye gidiyor adları. Bunları tek kodla çekebilir miyim?

buyurun.

Dim sh As Worksheet, sat As Long, i As Integer, sut As Integer
Dim k As Integer, dosya As String
Set sh = Sheets("AnaSayfa")
sh.Range("A2:C" & Rows.Count).ClearContents
sat = 2
dosya = Dir("C:\Users\User\Desktop\xdosya\*.txt")
Do While dosya <> ""
    Open "C:\Users\User\Desktop\xdosya\" & dosya For Input As #1
    'Open ThisWorkbook.Path & "\" & dosya For Input As #1
    Do While Not EOF(1)
    Line Input #1, a
    deg = Split(a, ";")
    sut = 1
    For k = 0 To UBound(deg)
        Cells(sat, sut).Value = deg(k)
        sut = sut + 1
    Next
    sat = sat + 1
    Loop
    Close #1
    dosya = Dir
Loop
MsgBox "bitti"

 

[hpalpal]

Emeğinize sağlık çok sağolun

 

[Orion1]

Emeğinize sağlık çok sağolun

Rica ederim.
İyi çalışmalar.