Excell e dosyadaki verileri tablo haline dönüştürerek alabilirmiyiz...

[eko74]

Arkadaşlar ekteki dosya ve benzeri birçok dosyam var bunları excelle tablo halinde atmanın bir yolu varmı...
Her seferinde kopyalayım metinleri sutuna çevirmekten bıktım ....

 

[Orion1]

Dosyanız ektedir.

Sub txt59()
Dim a, i As Long, sat As Long, deg As Variant, dosya As String
Dim mytxt As String
Range("A:A").ClearContents
dosya = "Y17.txt"
mytxt = Dir(ThisWorkbook.Path & "\" & dosya)
Open (ThisWorkbook.Path & "\" & dosya) For Input As #1
Do While Not EOF(1)
    sat = sat + 1
    Line Input #1, deg
    Cells(sat, "A").Value = deg
Loop
Close #1
MsgBox "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub

 

[eko74]

Dosyanız ektedir.

Sub txt59()
Dim a, i As Long, sat As Long, deg As Variant, dosya As String
Dim mytxt As String
Range("A:A").ClearContents
dosya = "Y17.txt"
mytxt = Dir(ThisWorkbook.Path & "\" & dosya)
Open (ThisWorkbook.Path & "\" & dosya) For Input As #1
Do While Not EOF(1)
    sat = sat + 1
    Line Input #1, deg
    Cells(sat, "A").Value = deg
Loop
Close #1
MsgBox "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub

Hocam ilginize teşekkürler...Gönderdiğiniz dosyada tıkladan sonra
Open (ThisWorkbook.Path & "\" & dosya) For Input As #1
hatası veriyor...
Ayrıca dosyayı txt attıktan sonra satırları sütuna çevirerek excell de kullanılabilecek hale getirmem lazım...

 

[Orion1]

1-dosyanın adı Y17.txt olmalı.
2-excel dosyanız ve txt dosyanız ayni klasörde olmalı.
3-Sıkış tırılmış dosyaları açarak kullanınız.Sıkıştırılmış halde kullanmayınız.

 

[eko74]

1-dosyanın adı Y17.txt olmalı.
2-excel dosyanız ve txt dosyanız ayni klasörde olmalı.
3-Sıkış tırılmış dosyaları açarak kullanınız.Sıkıştırılmış halde kullanmayınız.

Bu şekilde alıyoruz ama metin olarak gelmiş oluyor...Ben ecxell tablo şeklinde istiyorum...
Metinları sütüna çevirmem gerekli...