Hallo Zusammen!
Ich bin Einsteiger in "VBA unter Excel" und hoffe ihr könnt mir weiter helfen! :)
Ich habe in einem Ordner mehrere Textdateien und möchte diese nun mit Hilfe eines Textfeldes einlesen und zwar möchte ich einfach nur den Namen der Textdatei (z.B. von der ersten Textdatei (Text1.txt)) eingeben.
Sprich ich gebe in das Textfeld "Text1" ein und drücke auf den "Einlese-Button" und er soll mir nur die Textdatei Text1.txt einlesen.
Mein erster Ansatz war:
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile("C:\Users\Torben\Desktop\Uni Stuff\Informatik WS 1314\Info Projekt\VBA Daten einlesen\" & p & ".txt")
Str_String = Datei.readall
Datei.Close
(blöder langer Pfad ich weiß :D)
wobei p = Worksheets(1).Textbox1.Text
und p als String deklariert ist!
Hoffe jemand hat eine super Idee und kann mir weiterhelfen! :)
Mit freundlichen Grüßen
Torben Borchert
|