|
Hallo,
ich habe folgendes Problem:
Ich würde gerne per Excel VBA einen Wert aus einer Textdatei einlesen, ihn bearbeiten und wieder in die Textdatei zurückschreiben (Wert überschreiben). Danach soll die Textdatei gespeichert und geschlossen werden.
Als Fehlermeldung erhalte ich "Datei bereits geöffnet."
Hier mein Versuch:
Sub ein_auslesen()
Dim intFF As Integer, neueRNr As Integer
Dim pfadDatei As String
intFF = FreeFile
'einlesen
pfadDatei = "D:\test\a.txt"
Open pfadDatei For Input As #intFF
Line Input #intFF, pfadDatei
Close intFF
neueRNr = CInt(pfadDatei) + 1
'auslesen
Open pfadDatei For Append As #intFF
Print #intFF, neueRNr
Close intFF
End Sub
Über Hilfe würde ich mich sehr freuen, da ich nicht mehr weiterkomme...
Viele Grüße,
Jörg
|