Thema Datum  Von Nutzer Rating
Antwort
23.04.2017 02:43:25 Yaakov
NotSolved
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
Blau TXT durch VBA einlesen
 25.04.2017 19:11:27 Gast16733
NotSolved
25.04.2017 08:00:02 Unknown
NotSolved

Ansicht des Beitrags:
Von:
Gast16733		 Datum:
25.04.2017 19:11:27		 Views:
633		 Rating:
     
Antwort:
  Ja
Thema:
TXT durch VBA einlesen

Moin! Probiere es mal so.

VG

 

Sub auslesen()
 
Dim DatNR As Long
Dim Dateiname As String
Dim inhalt As String
Dim zeilen
Dim zellen
Dim i As Long
Dim j As Long

DatNR = FreeFile
 
Dateiname = "C:\Users\mimixia\Desktop\vba\test.txt" 'hier den Pfad zur Datei eintragen bspw. C:\test.txt
 
Open Dateiname For Input As DatNR
    inhalt = Input(LOF(DatNR), DatNR)
Close DatNR

inhalt = Range("A23")

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

ActiveSheet.Range("A1:C4").NumberFormat = "@"

zeilen = Split(inhalt, Chr(10))
For i = 1 To UBound(zeilen)
    zellen = Split(zeilen(i), " ")
    For j = 1 To UBound(zellen)
        Worksheets("Tabelle1").Cells(i, j) = CStr(zellen(j))
    Next j
Next i
 

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
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
Blau TXT durch VBA einlesen
 25.04.2017 19:11:27 Gast16733
NotSolved
25.04.2017 08:00:02 Unknown
NotSolved