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