txt den veri almak

[muratfix]

merhaba arkadaşlar notepadten yani txt uzantılı bir dosyadan veri almaya çalışıyorum bunun ile ilgili bir iki çalışma buldum ama benim biraz farklı bir durumum var o da şu ki örnek gönderdiğim txt dosyasına bakılırsa bir sınav sonucu olduğu anlaşılacaktır. yani öğrrencilerin sorulara verdiği yanıtlardır. excele aktarırken bir satırdaki bir çok farklı bilgiyi aynı satıra yüklüyor ama benim istediğim bir satırdaki her bir karakterin bir hücrede olması. bu konuda yardımcı olursanız sevinirim.

 

[halit3]

merhaba arkadaşlar notepadten yani txt uzantılı bir dosyadan veri almaya çalışıyorum bunun ile ilgili bir iki çalışma buldum ama benim biraz farklı bir durumum var o da şu ki örnek gönderdiğim txt dosyasına bakılırsa bir sınav sonucu olduğu anlaşılacaktır. yani öğrrencilerin sorulara verdiği yanıtlardır. excele aktarırken bir satırdaki bir çok farklı bilgiyi aynı satıra yüklüyor ama benim istediğim bir satırdaki her bir karakterin bir hücrede olması. bu konuda yardımcı olursanız sevinirim.

bunu denermisiniz.

Sub veri_al()
Cells.ClearContents
Range("A1").Select
b = Application.GetOpenFilename
If b = False Then
Exit Sub
End If
i = 1
Open Dir(b) For Input As #1
Do While Not EOF(1)
Line Input #1, a
Cells(i, 1).Value = WorksheetFunction.Trim(WorksheetFunction.Substitute(Mid(a, 1, 10), Chr$(9), ""))
Cells(i, 2).Value = WorksheetFunction.Trim(WorksheetFunction.Substitute(Mid(a, 11, 10), Chr$(9), ""))
Cells(i, 3).Value = WorksheetFunction.Trim(WorksheetFunction.Substitute(Mid(a, 21, 30), Chr$(9), ""))
Cells(i, 4).Value = WorksheetFunction.Trim(WorksheetFunction.Substitute(Mid(a, 51, 47), Chr$(9), ""))
Cells(i, 5).Value = WorksheetFunction.Trim(WorksheetFunction.Substitute(Mid(a, 98, 41), Chr$(9), ""))
Cells(i, 6).Value = WorksheetFunction.Trim(WorksheetFunction.Substitute(Mid(a, 139, 44), Chr$(9), ""))
Cells(i, 7).Value = WorksheetFunction.Trim(WorksheetFunction.Substitute(Mid(a, 183, 45), Chr$(9), ""))
i = i + 1
Loop
Close
End Sub

 

[muratfix]

çok teşekkür ederim. sorun halloldu.sağolun.

 

[halit3]

çok teşekkür ederim. sorun halloldu.sağolun.

iyi çalışmalar

 

[ugr123456]

bu cok iyi bir site fakat benim sayı konbnsanyonları ile ilgili yardıma ihticaycım var nasıl yardım
edebilir burdaki üyeler help me
www.lototürkiyem.com