Thema Datum  Von Nutzer Rating
Antwort
23.04.2017 02:43:25 Yaakov
NotSolved
Blau TXT durch VBA einlesen
 23.04.2017 11:25:32 Gast15190
*****
NotSolved
23.04.2017 23:22:21 Yaakov
NotSolved
24.04.2017 11:32:40 Gast28650
*****
NotSolved
24.04.2017 13:44:21 yaakov
NotSolved
24.04.2017 14:02:35 Gast510
NotSolved
24.04.2017 17:18:09 Gast57199
NotSolved
24.04.2017 17:43:56 Gast13606
NotSolved
25.04.2017 02:11:54 Gast76055
NotSolved
25.04.2017 19:11:27 Gast16733
NotSolved
25.04.2017 08:00:02 Unknown
NotSolved

Ansicht des Beitrags:
Von:
Gast15190		 Datum:
23.04.2017 11:25:32		 Views:
709		 Rating:
     
Antwort:
  Ja
Thema:
TXT durch VBA einlesen

Moin! Da du nicht geschrieben hast, was mit der Ausgabe passieren soll. wird sie nur in einer Textbox ausgegeben. Du müsstest nur den Pfad zu deiner Datei ändern. VG

 

Sub auslesen()

Dim DatNR As Long
Dim Dateiname As String
Dim inhalt As String

DatNR = FreeFile

Dateiname = "mein Pfad zur Datei" 'hier den Pfad zur Datei eintragen bspw. C:\test.txt

Open Dateiname For Input As DatNR
    inhalt = Input(LOF(DatNR), DatNR)
Close DatNR

'jetzt zurechtstutzen
inhalt = Trim(Split(inhalt, "Node")(1))
inhalt = Replace(inhalt, ",", "")
inhalt = Replace(inhalt, ". ", " ")
MsgBox inhalt
End Sub

 

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
23.04.2017 02:43:25 Yaakov
NotSolved
Blau TXT durch VBA einlesen
 23.04.2017 11:25:32 Gast15190
*****
NotSolved
23.04.2017 23:22:21 Yaakov
NotSolved
24.04.2017 11:32:40 Gast28650
*****
NotSolved
24.04.2017 13:44:21 yaakov
NotSolved
24.04.2017 14:02:35 Gast510
NotSolved
24.04.2017 17:18:09 Gast57199
NotSolved
24.04.2017 17:43:56 Gast13606
NotSolved
25.04.2017 02:11:54 Gast76055
NotSolved
25.04.2017 19:11:27 Gast16733
NotSolved
25.04.2017 08:00:02 Unknown
NotSolved