Thema Datum  Von Nutzer Rating
Antwort
14.12.2015 08:56:34 Muhammed Akin
NotSolved
Blau Textdatei mittels VBA zeilenweise einlesen
14.12.2015 14:58:51 Gast95330
NotSolved
15.12.2015 19:54:42 Mo
NotSolved
15.12.2015 20:41:20 Gast88704
NotSolved
14.12.2015 19:44:33 Gast27799
NotSolved
14.12.2015 19:56:44 Gast27799
NotSolved

Ansicht des Beitrags:
Von:
Gast95330		 Datum:
14.12.2015 14:58:51		 Views:
842		 Rating:
     
Antwort:
  Ja
Thema:
Textdatei mittels VBA zeilenweise einlesen

Hallo! HIer auf der Seite ist ein schönes Beispiel, das genau das macht - hab es leicht abgewandelt. Ledilgich der Ausgangspfad muss angepast werden .Gruß

https://de.wikibooks.org/wiki/VBA_in_Excel/_Textimport

Sub WriteInWks()  
   Dim arrAct As Variant   
   Dim intSource As Integer, intRow As Integer, intCol As Integer    
   Dim txt As String   

   intSource = FreeFile
' das hier ThisWorkbook.Path & "\TextImport.txt" durch deinen kompletten Pfad mit Namem ersetzen
   Open ThisWorkbook.Path & "\TextImport.txt" For Input As #intSource      
   Do Until EOF(intSource)  
      Line Input #intSource, txt  
      arrAct = Split(txt)
      intRow = intRow + 1
      For intCol = 1 To UBound(arrAct)  
         Cells(intRow, intCol).Value = arrAct(intCol)
      Next intCol 
   Loop 
   Close intSource 
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
14.12.2015 08:56:34 Muhammed Akin
NotSolved
Blau Textdatei mittels VBA zeilenweise einlesen
14.12.2015 14:58:51 Gast95330
NotSolved
15.12.2015 19:54:42 Mo
NotSolved
15.12.2015 20:41:20 Gast88704
NotSolved
14.12.2015 19:44:33 Gast27799
NotSolved
14.12.2015 19:56:44 Gast27799
NotSolved