Thema Datum  Von Nutzer Rating
Antwort
26.01.2019 10:55:27 Eric
*****
Solved
26.01.2019 14:43:20 Gast65961
*****
Solved
26.01.2019 18:25:14 Gast34836
*****
Solved
Blau TXT Datei in eine Tabelle einfügen
 27.01.2019 12:58:36 Gast83454
*****
Solved
27.01.2019 20:49:19 Eric
Solved

Ansicht des Beitrags:
Von:
Gast83454		 Datum:
27.01.2019 12:58:36		 Views:
516		 Rating:
     
Antwort:
 Nein
Thema:
TXT Datei in eine Tabelle einfügen

Hallo,

klar, das geht auch.

Du solltest wissen, dass du auf eine einezelne Zelle des aktiven Tabellenblattes mit Cells( Zeilennummer, Spaltennummer ) zugreifst. Dieses Wissen angewendet ergibt sich dann folgender Code

Sub Dateneinlesen2()
 
    x = Sheets(1).UsedRange.Rows.Count
    d = Dir("C:\ericsson\CL*.*")
 
    Do While d <> ""
        Open "C:\ericsson\börse\historical prices\NinjaTraderData\" & d For Input As #1
            Do While Not EOF(1)
                Line Input #1, temp
                Cells(x, 1) = Replace(temp, vbTab, ";")
                Cells(x, 2) = d                           ' Dateiname
                x = x + 1
            Loop
        Close #1
        x = x + 1 ' eine Zeile weiter
        d = Dir
    Loop
End Sub

Der Code ist ungetestet.

 

Grüße, Ulrich

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.01.2019 10:55:27 Eric
*****
Solved
26.01.2019 14:43:20 Gast65961
*****
Solved
26.01.2019 18:25:14 Gast34836
*****
Solved
Blau TXT Datei in eine Tabelle einfügen
 27.01.2019 12:58:36 Gast83454
*****
Solved
27.01.2019 20:49:19 Eric
Solved