txt dosyasını excele satır satır aktarma

[burhancavus61]

Elimde kullanmış olduğum mevcut rehber dosyası var. Bu dosyayı excele satır satır isimleri ayrı sütuna telefonları ayrı sütuna nasıl aktarabilirim. Txt dosyam sabit tek satıra belirli karakter aralığı ile alınmış. Normal dış veri al yaptığım zaman hepsini tek sütun ve satıra alıyor. Örnek txt dosyam ektedir yardımlarınız bekliyorum.

 

[olymposss]

aşağıdaki şekilde kendinize uyarlayabilirsiniz.

Workbooks.OpenText Filename:= _
"C:\Documents and Settings\term03\Desktop\DOSYA.TXT", Origin:=1254, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _
10, 1), Array(11, 1), Array(12, 1)), TrailingMinusNumbers:=True

 

[burhancavus61]

eklediğiniz kodu çalıştıramadım

sayın olymposss eklediğiniz kodu çalıştıramadım kodları bi kontrol edermisiniz.
Biryerde yanlışlık yaptım galiba

 

[olymposss]

sn burhancavus

txt dosyasını "dosya" adı ile c:\ içine yükleyin ve sayfa1 deki butona tıklayın gerisini kodlara bakarak çözebilirsiniz.