workpath einbauen in skript einbauen
20.05.2015 13:15:05
CHRIST
danke dafür (rudi)
nun möchte ich den der speicherort in gleichen Verzeignis liegt
Sub aaa()
Dim strIn As String, strOut As String
Const strOrg As String = "AUTO1"
Const strRep As String = "Auto2"
Const strDatei As String = "c:\bauer.txt"
Open strDatei For Input As #1
Do While Not EOF(1)
Line Input #1, strIn
strOut = strOut & vbCrLf & Replace(strIn, strOrg, strRep, , , vbBinaryCompare)
Loop
Close #1
strOut = Mid(strOut, 2)
Open strDatei For Output As #1
Print #1, strOut
Close #1
End Sub
mein versuch funktioniert so leider nicht liegt natürlich an dem string aber wie kann ich es sonst machen?
Sub txtchange()
Grundpfad = ActiveWorkbook.Path
Dim strIn As String, strOut As String
Const strOrg As String = "AUTO1"
Const strRep As String = "AUTO2"
Const strDatei As String = Grundpfad & "\bauer.txt"
Open strDatei For Input As #1
Do While Not EOF(1)
Line Input #1, strIn
strOut = strOut & vbCrLf & Replace(strIn, strOrg, strRep, , , vbBinaryCompare)
Loop
Close #1
strOut = Mid(strOut, 2)
Open strDatei For Output As #1
Print #1, strOut
Close #1
End Sub
Anzeige