txt de belli yeri excelle aktarma

[nur_u_allah]

selam arkadaşlar fazla bişeymi istiyorum bilmiyorum ama bana laızm olan bi konuda yardımınızı istemekteyim

eklediğim örnek txt de bi bölümü nasıl excelle aktarma yapabilirim.

 

[sert_unsuz]

Merhaba

Sanırım bu size yardımcı olur.
Ama txt dosyasını biraz düzenlemek gerekiyor bilginiz olsun.
Sevgilerimle

 

[nur_u_allah]

dostum ilgilendiğin için teşekkürler ben buralarını istemiyorum sadece ilk mesajda verdiğim resmin orasını aldırmak istiyorum
ben hergün bu roparlardan bunları alıyorum gerisi lazım değil artı bu raparlar günde
en az 20 tane oluşturuluyor tek tek düzenlemek zor oluyor

 

[sert_unsuz]

Adım 2 / 3 teki diğer seçeneğine : (iki nokta) kullanırsanın olur sanırım.
İyi günler

 

[nur_u_allah]

dostun dediğini denedim ama malesef

 

[seha efecik]

dış veri al bi dene ben onu kullanıyorum
ve istemedigin satırlarıda silersin gider bunun içinde basit bi makro tanımlaya bilirsin
tek tıklamayla halledile bilecek bi iş

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki kodu standart bir modül sayfasına kopyalayınız.

ÖNEMLİ : Kodlarda Kırmızı ile gösterilen kısmı kendinize göre düzelttikten sonra çalıştırınız.

Sub TxtOku()
Dim fso As Object
Dim i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.GetFile("[COLOR=red]C:\DosyanızınAdı.txt[/COLOR]").OpenAsTextStream
     For i = 1 To 14
          Cells(i, 1) = .readline
     Next i
    .Close
End With
Set fso = Nothing
End Sub

 

[nur_u_allah]

Merhabalar

Aşağıdaki kodu standart bir modül sayfasına kopyalayınız.

ÖNEMLİ : Kodlarda Kırmızı ile gösterilen kısmı kendinize göre düzelttikten sonra çalıştırınız.

Sub TxtOku()
Dim fso As Object
Dim i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.GetFile("[COLOR=red]C:\DosyanızınAdı.txt[/COLOR]").OpenAsTextStream
     For i = 1 To 14
          Cells(i, 1) = .readline
     Next i
    .Close
End With
Set fso = Nothing
End Sub

hocam ekledim çalışıyor yanlız bu raporların her birini farklı sayfada olması lazım ve aldığımız raporların adları aynı değil farklı farklı ilgilendiğiniz için teşekkür ederim

 

[Ferhat Pazarçevirdi]

Bahsettiğiniz, tüm txt dosyalar aynı dizin altındaysa çözeriz ...

Aynı dizin altında mı ? ...

 

[nur_u_allah]

Bahsettiğiniz, tüm txt dosyalar aynı dizin altındaysa çözeriz ...

Aynı dizin altında mı ? ...

hocam bi dizin altında oluyur ama bölge bölge farklı oluyor ben bi örnek dosya eklitorum bu tam benim istediğim gibi ama kodu değiştirip kullanamıyorum devamlı hata veriyor.
bunu ayarlaya bilirmiyiz acaba
verdiğiniz koddaki satır bölmünü ekleye bilirmiyiz