Verbesserung der Makro
18.04.2016 11:15:11
Furkan
ich bin neu in VBA Excel. Ich verwende unten stehende Makro um Tabstops und " zu löschen. Meine erste Frage ist
1-Wie kann man es verbessern?
2-Wie kann ich für die Daten Name z.B ABC_101, ABC_102,ABC_103 Loop bis 149 machen.
Danke sehr im Voraus
Sub ersetzen()
Dim strZeile
Dim strZeile2
Dim aFile As String
Open "ABC_101.txt" For Input As #1
Open "ABC_101_neu.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, strZeile
strZeile = Replace(strZeile, """", "")
Print #2, strZeile
Loop
Close #1 ' Datei schließen.
Close #2
Open "ABC_101_neu.txt" For Input As #3
Open "ABC_101_neu2.txt" For Output As #4
Do While Not EOF(3)
Line Input #3, strZeile2
strZeile2 = Replace(strZeile2, Chr(9), "")
Print #4, strZeile2
Loop
Close #3 ' Datei schließen.
Close #4
aFile = "ABC_101_neu.txt"
If Len(Dir$(aFile)) > 0 Then
Kill aFile
End If
End Sub
Anzeige