Böyle bir metni sütunlara nasıl ayırabilirim

[bezl]

Böyle bir metni sütunlara nasıl ayırabilirim?

"FİÞ TÜRÜ""FİÞ NO.""FİÞ TARİHİ""AÇIKLAMA""MADDE NO.""İÞ YERİ NO.""BÃ?LÜM NO.""HESAP KODU""HESAP ADI""AÇIKLAMA""BORÇ""ALACAK""DÃ?VİZ""İ.DÃ?VİZİ TUTARI""R.DÃ?V. TUTARI""MİKTAR""M.MERKEZİ KODU""M.MERKEZİ ADI""Ã?ZEL KODU"
"Açılış""0000001"01.01.2005"Cumartesi.01.Ocak.2005 tarihine önceki mali yıldan devri ile oluşturulan fiş."000"100.00""TL KASASI""Ã?nceki dönemden devir"140112,320"YTL"140112,32079231""""""

Bu belgeyi oluştururken tab ile ayraçlı dedim ama şimdi ayraç tab dediğimde olmuyor bu karakteri kopyala yapıştır dediğimde de olmuyor. Belli bir karakterle ayrılmış gözüküyor ama onu bulamıyorum gibi birşey metin de 100 bin satır civarı.
Yardımcı olabilirseniz sevinirim.

 

[bezl]

Bu belgeyi oluştururken tab ile ayraçlı dedim ama şimdi ayraç tab dediğimde olmuyor bu karakteri kopyala yapıştır dediğimde de olmuyor. Belli bir karakterle ayrılmış gözüküyor ama onu bulamıyorum gibi birşey metin de 100 bin satır civarı.
Yardımcı olabilirseniz sevinirim.

 

[veyselemre]

dosya eklersen daha iyi olur

 

[bezl]

Ekledim.
Þimdiden Teşekkürler.

 

[veyselemre]

Bu makro canımı okudu

[vb:1:fec6468cd1]Sub verial()
Sayfa1.Cells.ClearContents

Dim satir(100000)
Dim aa As Integer
Open "c:\bezl.txt" For Input As #1
aa = 0
Err = 0
a$ = ""

Input #1, al$
al$ = Replace(al$, Chr(34), "")
a$ = a$ & al$

While Err = 0

Input #1, al$
al$ = Replace(al$, Chr(34), "")
a$ = a$ & al$

For x = 1 To Len(a$)
If Mid(a$, x, 1) = Chr(10) Then
aa = aa + 1
satir(aa) = Mid(a$, 1, x - 1)

a$ = Mid(a$, x + 1, Len(a$) - x)
Exit For
End If
Next

If EOF(1) Then GoTo 20

Wend
20 Close #1

For r = 1 To aa
c = 0

While satir(r) <> ""
c = c + 1
bul = InStr(satir(r), Chr(8))
If bul > 0 Then
Cells(r, c) = Mid(satir(r), 1, bul - 1)
satir(r) = Mid(satir(r), bul + 1, Len(satir(r)) - bul)

Else
Cells(r, c) = satir(r)
satir(r) = ""
End If
Wend

Next
Cells.Select
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit

End Sub[/vb:1:fec6468cd1]

 

[HIDROKINON]

veri>metni sütunlara dönüştür. Oluşacak sutunların yerlerini belirleyin.

 

[veyselemre]

Sayın Hidrokinon yukarıda örnek text dosyası var, bunu sizin yöntemle bir excele aktarabilirmisiniz?

 

[HIDROKINON]

örnek dosya ekte

 

[veyselemre]

sizce bu kullanılabilecek bir aktarım mı

 

[HIDROKINON]

biraz uğraştıracak bir yöntem ama neticeye ulaşılabileceğini düşünüyorum.