Veri tabanından veri alma

[tiryakiahmed]

Merhaba Arkadaşlar,

Sub dosyadanal1()
satir = 1
Open ("C:\VERİ\deneme.TXT") For Input As 1
Do While Not EOF(1)
Line Input #1, kayit1
If kayit1 <> Empty Then
Cells(satir, 1) = kayit1
satir = satir + 1
End If
Loop
Close #1
End Sub

Ekli dosyaya yukarıdaki kodu yazdığım zaman sorunsuz çalışıyor.
Sorum şu ben deneme.txt dosyasından satırın tamamını değilde örneğin 14. satırdan itibaren 8 karakter almasını istiyorum, yani a1 hücresine 91502080, a2 hücresine 20517525 vs yazdırmasını istiyorum.
Böyle birşey mümkün mü?
Teşekkürler.

 

[Necdet]

Merhaba,

Sub dosyadanal1()
satir = 1
Open ("C:\VERİ\deneme.TXT") For Input As 1
    Do While Not EOF(1)
        Line Input #1, kayit1
        If kayit1 <> Empty Then
            Cells(satir, 1) = [B][COLOR=red]Mid(kayit1, 14, 8)[/COLOR][/B]
            satir = satir + 1
        End If
    Loop
Close #1
End Sub

 

[tiryakiahmed]

Çok Teşekkür Ederim Necdet Bey.

 

[Necdet]

Rica ederim tiryakiahmed bey.

Güle güle kullanınız.

Birşey sormak istiyorum doğrudan metni sütunlara böl de de yapabilirdiniz, illa makro olması gerekiyor mu?

 

[tiryakiahmed]

Evet bir programın parçası olacağı için makro ile yapmak zorundayım. Metni sütunlara dönüştürme ilede yapıalabildiğini biliyordum da bu metodu da öğrenmek istiyordum.
Tekrar teşekkürler.