Daten aus Textdatei importieren automatisch?

15/02/2008 - 16:17 von Tom de Millionas | Report spam
Hallo zusammen,

ich habe eine Zelle, die lautet z.b. 1001

Nun möchte ich, dass Excel automatisch in den Ornder
C:/daten/1001 geht, dort die Textdatei "name.txt" findet und dort den inhalt
in eine Zelle schreibt.
Es handelt sich um eine Textdatei mit einer Zeile in der nur ein Satz steht.

Hat jemand einen Tip für mich?

Gruß
Tom

Help keep the usenet free!
Use and/or support (e.g. by setting up an own server) the nonprofit
open-news-network project:
http://www.open-news-network.org/
 

Lesen sie die antworten

#1 Peter Schleif
15/02/2008 - 16:32 | Warnen spam
Tom de Millionas schrieb:

Hat jemand einen Tip für mich?



Der Code unten verlàsst sich allerdings blind darauf, dass die Datei
auch wirklich existiert. Am besten Du fügst bei Bedarf noch ein
FileExists ein, bevor Du die datei öffnest.

Peter


Sub datei_inhalt()

Dim fso As Object
Dim fp As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set fp = fso.OpenTextFile("c:\daten\" & [A1] & "ame.txt", 1)

[B1] = fp.ReadLine

Set fp = Nothing
Set fso = Nothing

End Sub

Ähnliche fragen