txt dosyasını anlık excele çekme

[kardelen79]

txt dosyasından excele anlık veri çekmek istiyoruz txt dosyasına anlık veri geliyor aynı anda excele düşmesini istiyoruz

 

[kardelen79]

 

[kardelen79]

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

 

[kardelen79]

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 = FspentextFile("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

 

[kardelen79]

bir makrom var bir abim yaptı güncellenmesi gerekli biraz sanırım yukarıda sarı işaretlediğim formata gelmesi için

 

[bilisim2010]

iyi akşamlar bu kaynaktanmı çekiyorsunuz veriyi MTX|DATA!XLM_USDT_FBIN.SEMBOL ?

 

[kardelen79]

Hayir txt c klasöründe aliyorum

 

[kardelen79]

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

 

[bilisim2010]

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

txt uzantısını xlsx yapıp doğrudan excele almayı denedinizmi

 

[kardelen79]

benim konum olabilir mi

 

[systran]

DeepSeek AI cevabı:

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.