Txt veri alma problemi

[Huseyinkis]

Open "C:\Users\Excel\Desktop\Yeni Klasör_59\ornek.txt" For Input As #1
Do While Not EOF(1)
Input #1, a
sh.Cells(sat, "A").Value = a
sat = sat + 1
Loop
Close #1
MsgBox "Txt Dosyasından veriler alındı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub


evren beyin yazdığı yukarıdaki kod txt dosyasından verileri alıyor fakat ";" virgulle ayrılmış satırlarda ilk ayrımı alıyor.

Ahmet;mehmet;cemil;kamil

yukarıdaki ornekte sadece ahmet geliyor. ben bu satırın tamamını ayrı hücrelere ";" işaretleri hariç nasıl getirebilirim?

Şimdiden teşekkürler.


İyi Çalışmalar.

 

[serqet]

Aşağıdaki kodla tamamını getirip, daha sonra metni sütunlara çevir işlevinden faydalanabilirsiniz gibi

Option Explicit
Sub Txt_Veri_Al()
Dim fso As Object
Dim i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.GetFile("C:\dosya yolu\*.txt").OpenAsTextStream
Do
i = i + 1
Cells(i, 1) = "'" & .readline
Loop While .AtEndOfLine = False
.Close
End With
End Sub

 

[Huseyinkis]

Aşağıdaki kodla tamamını getirip, daha sonra metni sütunlara çevir işlevinden faydalanabilirsiniz gibi

Option Explicit
Sub Txt_Veri_Al()
Dim fso As Object
Dim i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.GetFile("C:\dosya yolu\*.txt").OpenAsTextStream
Do
i = i + 1
Cells(i, 1) = "'" & .readline
Loop While .AtEndOfLine = False
.Close
End With
End Sub

ilgi için teşekkürler fakat.

Line Input #1, aa komutu satırın tamanını getiriyor bunu parçalı almaya çalışıyorum txt dosyaları 100 den fazla o yuzden herseferinde metne çevir işlemini yaptırmak dosyanın diğer dolu hücrelerinde hataya sebebiyet verebilir.

 

[Murat OSMA]

Merhaba Hüseyin Bey,

Lütfen ek'teki dosyayı bir inceler misiniz ?

ListBox'ta txt olanları çift tıklayın, xls olanları da ComboBox'tan veri seçip ListBox'ta çift tıklayın...

 

[assenucler]

Sayın Murat bey;

İyi akşamlar.

Katkı ve paylaşımınız için teşekkürler.

Sevgiler.

 

[Murat OSMA]

Rica ederim Ahmet Bey..

İyi akşamlar...

 

[Huseyinkis]

Merhaba Hüseyin Bey,

Lütfen ek'teki dosyayı bir inceler misiniz ?

ListBox'ta txt olanları çift tıklayın, xls olanları da ComboBox'tan veri seçip ListBox'ta çift tıklayın...

Teşekkürler istediğim gibi ve hızlı işlem yapıyor.

 

[Murat OSMA]

Rica ederim Hüseyin Bey..

İyi günler...