Sekmeli text dosyasından veri almak

[yagiz2]

Merhaba Arkadaşlar.

Aşağıdaki kodla dışarıdan bir metin dosyasını alabiliyorum fakat almak istediğim metin dosyaları 3 sekmeyle ayrılmış ve ben bu sekmeleri 3 ayrı sütuna kaydetmek istiyorum. Yardım edebilir misiniz.

Sub TextAl()

Dim Satir As Long
Range("A:A").ClearContents
ChDir ("C:\")
dosya = Application.GetOpenFilename(FileFilter:="Txt dosyaları(*.txt),(*txt)", Title:="Txt Dosyası aç")
If dosya = False Then Exit Sub
Open dosya For Input As #1
Do While Not EOF(1)
Input #1, Kayit
If Kayit <> Empty Then
Satir = Satir + 1
Cells(Satir, "A") = Kayit
End If
Loop
Close #1
End Sub

 

[excel03]

merhaba;

Sub TextAl()
Dim Satir As Long
SütunSayısı = 3
Satır = 0
i = 0
Range("A:C").ClearContents
ChDir ("C:\")
dosya = Application.GetOpenFilename(FileFilter:="Txt dosyaları(*.txt),(*txt)", Title:="Txt Dosyası aç")
If dosya = False Then Exit Sub
Open dosya For Input As #1
Do While Not EOF(1)
Input #1, Kayit
If Kayit <> Empty Then
i = i + 1
kalan = i Mod SütunSayısı
If kalan = 0 Then kalan = SütunSayısı
If kalan = 1 Then Satir = Satir + 1
Cells(Satir, kalan) = Kayit
End If
Loop
Close #1
End Sub

 

[yagiz2]

Teşekkürler.
Ancak, text dosyasındaki metinleri kaydırarak alıyor.
Size bu metin dosyasını gönderirsem daha iyi anlarsınız sanırım.
Teşekkürler.

ONAIRTIME NAME DURATION
--------------- -------------------------------------- -----------
06:58:00:00 mlz_istiklalmarşı 00:01:07:21
06:59:07:21 t_06_01_pers_gun_akisi 00:00:56:11
07:00:04:07 t_06_01_listesiz 00:00:50:22
07:00:55:04 t_06_01_bgn_30dk 00:00:52:08
07:01:47:12 t_06_01_hhg_her_yerde 00:00:50:18
07:02:38:05 t_06_01_bgn_ritim 00:00:33:08
07:03:11:13 t_06_01_bgn_meya 00:00:43:24