txt den veri alma

[gunaygergin]

sevgili arkadaşlar txt dosyasından veri alma ile ilgili bilgisi olan var mı acaba.

Arşivde arama yaptırma seçeneği yok. o nedenle aramalarda da başarısız oldum. ekte bir tane de txt dosyası ekledim. txt ve csv formatları üzerinden veri alabilmem için nasıl bir formül veya makro düzenlenmelidir.

 

[zafer]

Merhaba

Ekli dosyanız yok..

Dış veri al özeliğini kullanabilirsiniz.

 

[gunaygergin]

sn zafe ben de anlayamadım ama işyerinden yani server üzerinden attığım için kısıtlanmış olabilir. evden tekrar deneyeceğim. teşekkür ederim

 

[gunaygergin]

Buna benzer bir dosya

 

[Ali]

Sn günaygergin Zafer Beyin bahsettiği olay dışarıda Excel'e veri alma olayıdır.
Veri-Dış Veri Al-Veri Al kısmını seçin ilgili txt dosyanızı seçin açı tıklayın.Dosya kaynağı kısmındaki dil kısmını 1254:Türkçe(Windows) kısmını seçin,ileri deyin tekrar ileri deyin sonu tıklayın size verileri nereye koymak istiyorsunuz seçeneği geldiğinde istediğin hücreyi seçip tamamı tıkladığınızda txt dosyanızdaki veriler Excel'e aktarılacaktır.

 

[Kemal Demir]

Sn.fructose affınıza sıgınarak makro kaydedici ile kısaltılmıs kucuk bir kod yolluyorum.

Sn.gunayergin

Aşagıdaki Kod işinize yarayabilir.Yalnız Dosyanız Bu formatta ise kullanabilirsiniz.(Gönderdiğiniz Örnek Dosya gibi)

Sub TXTAL()
'adres kısmını kendınize göre duzenleyınız.
ADRES = "TEXT;C:\Documents and Settings\cati\Desktop\RNEK.txt"
With ActiveSheet.QueryTables.Add(Connection:= _
ADRES, Destination:=Range("A1"))
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub

 

[Ali]

Sn.fructose affınıza sıgınarak makro kaydedici ile kısaltılmıs kucuk bir kod yolluyorum.

Rica ederim Kemal Bey ne demek bilgilerimizi paylaşıyoruz sonuçta. Farklı çözümler herzaman güzeldir.

Saygılar Ali..:hey:

 

[gunaygergin]

sn kemal demir çok iyi çalışıyor.

peki bu noktalı virgüller arasına bir de virgül girer se onu nasıl yapabiliriz.
(bunu en baştan niye yazmadığımı soracaksınız. başka bir dosyada da uygulamam gerekti. )

 

[Ali]

Hala neden Dış Veri al sihirbazını kullanmak istemediğinizi anlamadım

Veri-Dış Veri Al-Veri Al kısmınından ilgili txt dosyanızı seçip açı tıkladıktan sonra Sınırlandırılmış kısmı gelecek 1254:Türkçe(Windows) kısmını seçip veriler arasında virgül varsa, virgül hanesi onayladıktan sonra İleri-İleri son kısmını tıklayıp ilgili verinizin aktarılacağı hücreye seçmek.

Oldukça pratik bir yöntem ama yinede karar sizin.

 

[gunaygergin]

sn: fructose

txt dosyası fazla olduğundan ben bunları açmadan bilgileri bir buton vasıtası ile acaba excel hücrelerine getirebilir miyiz diye düşünmüştüm. excel de her şeyin mümkün olduğunu bu siteden öğrendim. ümitediyorum bu da olabilir. tabii sizlerin kıymetli yardımlarınızla. Alakanıza teşekkürler. (Tüm Üyelerin ve sizin Bayramınız kutlu olsun)

 

[gunaygergin]

sn Kemaldemir; yada bu problemde yardımcı olabilecek türm üyeler;

aşağıda verdiğiniz makroda ; (noktalı virgül) ile ayrılmıştı. peki ; (noktalı virgül) olmassa yani veriler bitişik olursa karakter sayısına göre yine bilgileri alabilirmiyiz.

 

[Kemal Demir]

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\cati\Desktop\New Text Document.txt", _
        Destination:=Range("A1"))
        .TextFileParseType = xlFixedWidth
[b][i]'bölünme miktarını gösterir[/b][/i]
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
[b][i]'bölünecek alanların digit sayısını belirtir[/b][/i]
        .TextFileFixedColumnWidths = Array(11, 12, 13, 14, 10)
        .Refresh BackgroundQuery:=False
    End With

 

[SaDiCH_FaCTioN]

kemaldemir, verdiğin code da
"C:\Documents and Settings\cati\Desktop\New Text Document.txt"
olan kısmı kullanıcıya herdefasında seçtirebilir miyiz?
şunu demek istiyorum.
makro çalıştır diyeceğiiz, browse penceresi açılacak. kullanıcı ordan dosyayı seçip tamam diyecek ve import vvizard işini tamamlayacak. ben bi kod yazmıştım bunun için ama son satırdaki
.Refresh BackgroundQuery:=False
satırıyla sorun yaşamıştım.


benim yazdığım kodda

fileToOpen = Application _
.GetOpenFilename
If fileToOpen <> False Then
End If


C:\Documents and Settings\cati\Desktop\New Text Document.txt
yerine FileToOpen yazmıştım. sanırım doğru başlıyorum ama tamamlayamadım dediğim gibi.

 

[gunaygergin]

çok teşekkür ederim üzerinde çalışacağım. iyiki varsınız...

 

[baydeniro]

Paylaşım İçin Teşekkürler

Arkadaşlar paylaşım için teşekkürler. Şöyle bir durum var. Makrodaki ADRES satırındaki dosya RNEK olarak baslayan ama hergün değişen bir isim olsa. Örneğin : bugün RNEK2210, yarın RNEK2310 gibi. Makronun RNEK diye baslayan dosyayı açması nasıl sağlanabilir ?

ADRES = "TEXT;C:\Documents and Settings\cati\Desktop\RNEK.txt"

 

[haso_excel]

Günaydıngergin demiş ki;

Sub DOSYA_BUL()
FileToOpen = Application _
.GetOpenFilename
If FileToOpen <> False Then
End If


End Sub

dosyayı seçtikten sonra excele import edemedim. Yardımcı olur musunuz ?