Thema Datum  Von Nutzer Rating
Antwort
24.09.2013 15:11:52 Gregor
NotSolved
24.09.2013 16:53:14 Neuhäusler Korbinian
NotSolved
Rot txt. Datei öffnen
24.09.2013 17:23:23 Gast59286
NotSolved
24.09.2013 17:26:55 Neuhäusler Korbinian
NotSolved
24.09.2013 17:30:05 Gast56091
NotSolved

Ansicht des Beitrags:
Von:
Gast59286
Datum:
24.09.2013 17:23:23
Views:
985
Rating: Antwort:
  Ja
Thema:
txt. Datei öffnen

Der erste Schritt schaut ca. so aus:

Sub beispiel()
  
  Dim strPfad As String
  Dim strDateiname As String
  
  strPfad = "X:\Verzeichnis"
  
  If Right$(strPfad, 1) <> "\" _
    Then strPfad = strPfad & "\"
  
  strDateiname = Dir$(strPfad & "*.txt")
  Do Until strDateiname = ""
    'Ausgabe im Direktbereich von VBA (ggf. einblenden mit STRG+G od. Menü 'Ansicht')
    Debug.Print strDateiname
    
    strDateiname = Dir$() ' nächste Datei suchen
  Loop
  
End Sub

Damit werden einem alle Text-Dateien in einem Verzeichnis ausgegeben.


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
24.09.2013 15:11:52 Gregor
NotSolved
24.09.2013 16:53:14 Neuhäusler Korbinian
NotSolved
Rot txt. Datei öffnen
24.09.2013 17:23:23 Gast59286
NotSolved
24.09.2013 17:26:55 Neuhäusler Korbinian
NotSolved
24.09.2013 17:30:05 Gast56091
NotSolved