Txt İçeriğini Alma

[Sa.NaL]

Txt İçeriğini Excelde İstediğim Hücrelere Aktarmak

Merhaba Excel uzmanı kardeşlerimden bir ricam var.yardımcı olursanız sevinirim Txt uzantılı not defterimin herhanghi bir yerinde yazılan yazıyı excelin herhangi bir hücresine getirmek için elinizde bir örnek varmı.şimididen yardımlarınız için tşk ederim.Acemiyim kusura bakmayın.

 

[Necdet]

Merhaba,

Ekte basit bir dosya hazırladım. Bu dosyaları bir dizene koyarak deneyebilirsiniz.

Sub DosyaGetir()
DosyaYolu = ThisWorkbook.Path
DosyaAdi = "TextData.txt"
Open DosyaYolu & "\" & DosyaAdi For Input As #1
i = 2
While Not EOF(1)
    Line Input #1, Veri
    Cells(i, "A") = Left(Veri, 15)
    Cells(i, "B") = Mid(Veri, 16, 26)
    i = i + 1
Wend
Close #1
End Sub

 

[Sa.NaL]

Çok tşk ederim.İnceleyeceğim eğer anlamadığım bir yer olursa sorabilirmiyim acaba?

 

[Necdet]

Burada herkes herşeyi sorabilir, amaç bu değil mi?

Bilirsem yanıtlarım, bilemezsem başka bir arkadaş yardımcı olur.


Ayrıca aşağıdaki linki de inceleyebilirsiniz.

Text Dosyasından Karakter Silerek Metin Eklemek

 

[Sa.NaL]

tşkler

Mrb Necdet Yeşertener kardeşim istediğimi tam olarak ek2 de belirttim.Yardımcı olursan sevinirim.Şimdiden tşk ederim.

 

[Sa.NaL]

Merhaba Excel uzmanı kardeşlerim ek2de sorunumu belirttim yardımcı olursanız sevinirim.

 

[Zeki Gürsoy]

Merhaba,

Text içeriğini önce boş bir sayfaya düşürüp "Motor Çıkış ve Kalite Kontrol" sayfasındaki hücrelere boş sayfaya düşen verilerin hücre referansları (formül) göstererek yapmanızı öneririm.

"Sayfa1" isminde boş bir sayfa ekleyin ve sayfaya gelen verilerin durumunu inceleyin.

Sayfa1.Cells.ClearContents

Open "C:\ek2.txt" For Input As #1

    While Not EOF(1)
        i = i + 1
        
        Line Input #1, d
        
        arr = Split(d, " ")
        
        For j = 0 To UBound(arr)
            Sayfa1.Cells(j + 1, i) = arr(j)
        Next
        
    Wend

Close #1

 

[Necdet]

Lütfen aynı konu için ayrı başlık açmayınız.

Konu tarafımdan birleştirilmiştir.

 

[Sa.NaL]

Kusura bakmayın ama ben çok acemiyim dediklerinizden hiçbirşey anlamadım ben ekde gönderdim ona müdahele etme imkanınız yokum ayrıca cevap alamadığım için bunu yapmak zorunakaldım kusura bakmayın.İlginiz için tşkler

 

[Sa.NaL]

Zeki abi bende hendekten sayılırım haftasonu oradayım bunu yapabilirsen beni çok sevindirirsin istersen yanınada uğrayabilirim.kolay gelsin.Şimdiden tşkler

 

[Sa.NaL]

Birde abi anladığım kadarıyla cevaplayım boş sayfaya düşürmeden olduğu yerden sadece o sayısal bilgileri otomatik alamazmıyız boş safyafa düşürmek yerine oradan kopyalayıp excelede yapıştır yapmak aynı şey zaten ben basitleştirme işini sormuştum yapılabilirmi komut butonu ile seçtiğimiz verileri txtden excele alma işi ilgilenirseniz sevinirim.