Thema Datum  Von Nutzer Rating
Antwort
27.11.2015 08:44:47 joerg
NotSolved
Blau mehrere Textdateien per Makro mit "Opentext "in Excel importieren
 27.11.2015 11:52:22 Gast38073
NotSolved
27.11.2015 20:27:50 joerg
NotSolved
27.11.2015 22:18:44 Gast38157
NotSolved
28.11.2015 12:59:58 Gast71553
NotSolved
28.11.2015 22:33:59 joerg
NotSolved
28.11.2015 23:21:19 Gast42519
NotSolved
29.11.2015 11:42:55 Gast29586
NotSolved
29.11.2015 19:35:46 joerg
NotSolved
30.11.2015 11:11:58 Gast42392
*****
Solved
30.11.2015 18:35:18 joerg
NotSolved
29.11.2015 21:37:54 Gast19665
NotSolved

Ansicht des Beitrags:
Von:
Gast38073		 Datum:
27.11.2015 11:52:22		 Views:
764		 Rating:
     
Antwort:
  Ja
Thema:
mehrere Textdateien per Makro mit "Opentext "in Excel importieren

Hallo!

Das hier sollte klappen. Du lässt den Pfad eingeben (oder auslesen lassen, verhindert Rechtschreibfehler) und gehst dann alle TXT Datein durch. Der Durchlauf der Datein ist von hinten nach vorne. Da wo die ++++ sind, muss dein Auslesecode rein. Dann sollte es eigentlich klappen.

 

Sub auslesen()
Dim Pfad As String

Pfad = InputBox("Bitte den Pfad eingeben!") 'alternativ auch mit BrowseFolder bzw. FileDialog aussuchen lassen

If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"

Datei = Dir(Pfad & "*.txt")     'nur TXT Datein werden angezeigt
        Do While Datei <> ""
            
            'hier jetzt dein öffnen und auslesen / eintragen rein
            
            '++++++++++++++++++++++++++++++++++++++++++++++++++++++++
            
            
            Datei = Dir   'sucht ds nächste Element
          
        Loop
End Sub

Gruß

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
27.11.2015 08:44:47 joerg
NotSolved
Blau mehrere Textdateien per Makro mit "Opentext "in Excel importieren
 27.11.2015 11:52:22 Gast38073
NotSolved
27.11.2015 20:27:50 joerg
NotSolved
27.11.2015 22:18:44 Gast38157
NotSolved
28.11.2015 12:59:58 Gast71553
NotSolved
28.11.2015 22:33:59 joerg
NotSolved
28.11.2015 23:21:19 Gast42519
NotSolved
29.11.2015 11:42:55 Gast29586
NotSolved
29.11.2015 19:35:46 joerg
NotSolved
30.11.2015 11:11:58 Gast42392
*****
Solved
30.11.2015 18:35:18 joerg
NotSolved
29.11.2015 21:37:54 Gast19665
NotSolved