• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

txt dosyasını anlık excele çekme

excele bu sarı alandaki şekilde gelmesi lazım hesaplama yaptırabilmem için ve bu şekilde 200 ve biraz daha fazla gelme ihtimali var txt dosya ya düşen excele anlık düşürebilirsek çok iyi olacak
 
Sub YeniEmirGeldimi()


Dim Arr
Dim Datei
Dim Fso
Dim L As Long
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim i As Integer
Dim Str_String As String


On Error GoTo HataGec:

Set Fso = CreateObject("Scripting.FilesystemObject")
Set Datei = Fso_OpentextFile("C:\DosyaOlustur\CoinEmir\AcikPozisyonlarim.txt") 'Anpassen




Str_String = Datei.readall

Datei.Close



Arr = Split(Str_String, "Satir") 'Nach Datensätzen splitten

ReDim vnt_Ausgabe(UBound(Arr), 8) '200 Spalten reichen ???



For L = 0 To UBound(Arr)

Tmp = Split(Arr(L), ";") 'Jeden Datensatz nach Werten splitten

For i = 0 To UBound(Tmp)
vnt_Ausgabe(L, i) = Tmp(i) 'Jeden Wert in das Array vnt_Ausgabe umschaufeln
Worksheets("Cüzdan").Range("A1").Resize(UBound(vnt_Ausgabe) + 1, UBound(vnt_Ausgabe, 2)) = vnt_Ausgabe

Next i

Next L


HataGec:

End Sub
 
bir makrom var bir abim yaptı güncellenmesi gerekli biraz sanırım yukarıda sarı işaretlediğim formata gelmesi için
 
iyi akşamlar bu kaynaktanmı çekiyorsunuz veriyi MTX|DATA!XLM_USDT_FBIN.SEMBOL ?
 
Matriksten çekiyorum ama bu konu için orda kullanmiyorum txt dosyasındaki veriyi excele almam lazım ordan da bu excelden başka bir excele cekiyorum
 
DeepSeek AI cevabı:

Kod: 
Anlık olarak bir metin dosyasına (txt) gelen verileri aynı anda Excel'de görüntülemek için birkaç farklı yöntem kullanabilirsiniz. İşte bu işlemi gerçekleştirebileceğiniz birkaç adım:

### 1. **Excel'de Veri Bağlantısı Kurma (Power Query Kullanarak):**
Excel'in Power Query özelliği ile metin dosyasına bağlantı kurabilir ve verileri anlık olarak güncelleyebilirsiniz.

1. **Excel'i açın** ve boş bir çalışma sayfası oluşturun.
2. **Veri** sekmesine gidin ve "Veri Al" seçeneğini tıklayın.
3. **Dosyadan** > **Metin/CSV'den** seçeneğini seçin.
4. Gelen verilerin olduğu metin dosyasını seçin ve **İçe Aktar**'a tıklayın.
5. Power Query düzenleyicisi açılacaktır. Verileri burada düzenleyebilir ve **Kapat ve Yükle** seçeneği ile Excel'e yükleyebilirsiniz.
6. Excel'de verilerin yüklendiği bir tablo oluşacaktır. Bu tabloyu güncellemek için **Veri** sekmesinden **Tümünü Yenile** seçeneğini kullanabilirsiniz.

### 2. **VBA (Makro) Kullanarak:**
Eğer metin dosyasına sürekli veri ekleniyorsa ve bu verilerin Excel'de anlık olarak görünmesini istiyorsanız, VBA kullanabilirsiniz.

1. Excel'de **Alt + F11** tuşlarına basarak VBA düzenleyicisini açın.
2. **Insert** > **Module** seçeneği ile yeni bir modül ekleyin.
3. Aşağıdaki VBA kodunu modüle yapıştırın:

```vba
Sub ReadTextFile()
    Dim FilePath As String
    Dim LineData As String
    Dim RowCounter As Long
    Dim FileNumber As Integer
    
    ' Metin dosyasının yolu
    FilePath = "C:\path\to\your\file.txt"
    
    ' Dosyayı aç
    FileNumber = FreeFile
    Open FilePath For Input As FileNumber
    
    ' Verileri Excel'e yaz
    RowCounter = 1
    Do Until EOF(FileNumber)
        Line Input #FileNumber, LineData
        Sheets("Sheet1").Cells(RowCounter, 1).Value = LineData
        RowCounter = RowCounter + 1
    Loop
    
    ' Dosyayı kapat
    Close FileNumber
End Sub
```

4. Bu kodu çalıştırdığınızda, belirttiğiniz metin dosyasındaki veriler Excel'e aktarılacaktır.
5. **Excel'de Otomatik Yenileme:** Eğer metin dosyasına sürekli veri ekleniyorsa ve Excel'in otomatik olarak güncellenmesini istiyorsanız, aşağıdaki kodu kullanabilirsiniz:

```vba
Private Sub Worksheet_Change(ByVal Target As Range)
    Call ReadTextFile
End Sub
```

Bu kod, Excel sayfasında herhangi bir değişiklik olduğunda metin dosyasını tekrar okuyacaktır.

### 3. **Üçüncü Taraf Yazılımlar Kullanma:**
Eğer daha karmaşık bir çözüm arıyorsanız, metin dosyasındaki verileri Excel'e otomatik olarak aktaran üçüncü taraf yazılımlar da kullanabilirsiniz. Örneğin, **Zapier** veya **IFTTT** gibi otomasyon araçları ile metin dosyasındaki değişiklikleri Excel'e otomatik olarak aktarabilirsiniz.

### 4. **Python ile Otomasyon:**
Python kullanarak da metin dosyasındaki verileri Excel'e aktarabilirsiniz. Özellikle `pandas` kütüphanesi bu işlem için oldukça kullanışlıdır.

```python
import pandas as pd

# Metin dosyasını oku
file_path = "C:/path/to/your/file.txt"
data = pd.read_csv(file_path, header=None)

# Excel'e yaz
data.to_excel("output.xlsx", index=False, header=False)
```

Bu Python kodunu belirli aralıklarla çalıştırarak veya bir zamanlayıcı ile otomatikleştirerek metin dosyasındaki verileri Excel'e aktarabilirsiniz.

### Sonuç:
Bu yöntemlerden herhangi birini kullanarak metin dosyasına gelen verileri Excel'de anlık olarak görüntüleyebilirsiniz. Hangi yöntemi seçeceğiniz, ihtiyaçlarınıza ve teknik bilginize bağlıdır.
 
systran
elinize sağlık teşekkür ederim ilgilendiğiniz için
burası hata verdi birde bunun devamlı çalıştırmam gerekiyor txt yeni veri geldimi diye otamatik bakması lazım

Sub ReadTextFile()
Dim FilePath As String
Dim LineData As String
Dim RowCounter As Long
Dim FileNumber As Integer

' Metin dosyasının yolu
FilePath = "C:\DosyaOlustur\CoinEmir\DüzLongEmir"

' Dosyayı aç
FileNumber = FreeFile
Open FilePath For Input As FileNumber

' Verileri Excel'e yaz
RowCounter = 1
Do Until EOF(FileNumber)
Line Input #FileNumber, LineData
Sheets("Sheet1").Cells(RowCounter, 1).Value = LineData
RowCounter = RowCounter + 1
Loop

' Dosyayı kapat
Close FileNumber
End Sub
 
Hatasın sebebi TR karakter sorunu olabilir mi?
Ayrıca verdiği hatayı ss alıp deepseek'e sorun, nedenini ve çözümünü söyleyecektir. Bu tarz yapay zeka araçlarını kullanmaktan çekinmeyin lütfen. Ayrıca çözüm önerilerine göre birini seçip ona göre sormaya devam edin. Ne yapacağım, nasıl yapacağım bana adım adım anlat gibi.
 
yukarıda txt dosyasını excel çekmeye çalışıyorum bu şekilde excel dosyasına çektim
systran
arkadaşımızın makrosu ile coin listesin azalmalar olunca bazı coin leri silmiyor
birde yatay yazdırma imkanımız olurmu
dosyanın içinede yazdım istenilen kısımları örnek olarak listede gösterdim yardımlarınız için şimdiden teşekkür ederim
 
Örnek çalışmayı inceleyiniz.
Anlık olarak excele çekme işi biraz sıkıntı dosya okunurken bir süre geçmesi gerekir ve o sırada yeni veri gelirse okuma hatası oluşabilir. Onun için TXT dosyada değişiklik vardır yoktur kontrol etmeksizin tüm içeriğini 10snde bir sayfa1e aktarır. Sizin istediğiniz 3 ve 4 satır olayını anlamadım. Otomatik olarak makro her çalıştığında (örnekte 10 sn) aralıktaki tüm verileri siler ve baştan yükler. Buna göre kendi senaryonuzda veriler silinmeden yapılması gereken işlemleri yapmanız gerekir. Kodun gerekli yerlerine de açıklamalar ekledim. Umarım işinizi görür çünkü bundan sonra tek başınıza sorunları çözmeniz gerekecek benden bu kadar :)
 

Ekli dosyalar

Bende 10 sn aralıklarla dosya okuması hatasız gerçekleşiyor. Sizde çalışmamasının aklıma gelen sebebi txt dosyasını başka bir programın oluştururken, aynı anda bizimde okumaya çalışmamız olabilir. Bunun bir çözümü bu aşamada yok. Buna en fazla hata yakalama tekniği uygulanır. Ya da TXT dosyasını oluşturan yapı her ne ise direk excele anlık aktarması için bir çözüm bulmak olur. Diğer türlü hep dosya erişim sıkıntısı yaşarsınız. #16 nolu mesajdaki dosyayı güncelledim. Tekrar kontrol ediniz.
 
Söyle bir problemim oldu düzelirim bilmem
Simdi oradaki veriler anlik gidip geliyor bizim excel gidip gelmese üzerine yazsa liste değişince gitsin tabikide anlik gidince sistem yok zannediyor ve tekrar emir yollayacak adet kısmı gidip gelince adedi görmüyor ve tekrar alacak bu sekilde buda hiç durmadan emir yollamasi demek olacak bizim sistemde bizim sistem adet sifirsa emir yollama üzerine calisiyor inşallah bir yolu vardir
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst