Wie bringe ich das zum Laufen

30/08/2011 - 15:50 von Hans List | Report spam
Hallo Wolfgang,

kannst Du mir bitte auf die Sprünge helfen?

Wie bringe ich Dein Makro zum Laufen (leider reichen meine Kenntnisse
nicht):

Das hans2 ist eine Funktion, die ich per Makro aufrufen muss?

==

Sub hans2(A, B, C)
Dim fso As New FileSystemObject
Dim Zeilen, i
Dim Datei
Datei = fso.BuildPath("c:\werk", "Hans.txt")
Zeilen = Split(fso.OpenTextFile(Datei).ReadAll, vbCrLf)
For i = 0 To UBound(Zeilen)
If InStr(Zeilen(i), A) > 0 Then Zeilen(i) Replace(Zeilen(i), B, C)
Next i
Datei = fso.BuildPath("c:\werk", "Hans2.txt")
fso.OpenTextFile(Datei, ForWriting, True).Write Join(Zeilen,
vbCrLf)
End Sub
Sub GlobalAendern()

Dim A, B, C As String
A = Gewindestange
B = screw
C = bolt

'global_aendern = hans2(Gewindestange, screw, bolt)
global_aendern = hans2(A, B, C)
End Sub

==

Wolfram Jahn
Profil anzeigen
Weitere Optionen 22 Jul., 00:11
Am 19.07.2011 12:21, schrieb Hans List:

Hallo Leute,
Ich suche ein Makro, das Folgendes leistet:




Hier ist es, aber in Word ffnen ist berfl ssig:
-Makro
Sub hans2(A, B, C)
Dim fso As New FileSystemObject
Dim Zeilen, i
Dim Datei
Datei = fso.BuildPath("c:\", "Hans.txt")
Zeilen = Split(fso.OpenTextFile(Datei).ReadAll, vbCrLf)
For i = 0 To UBound(Zeilen)
If InStr(Zeilen(i), A) > 0 Then Zeilen(i) = Replace(Zeilen(i), B,
C)
Next i
Datei = fso.BuildPath("c:\", "Hans2.txt")
fso.OpenTextFile(Datei, ForWriting, True).Write Join(Zeilen, vbCrLf)
End Sub
-c:\hans.txt
Gewindeschraube[tab]screw
Gewindestange[tab]screw
Gewindeschrauben[tab]screws
Gewindestangen[tab]screws
-Aufruf in VBA Direktbereich
hans2 "Gewindestange","screw","bolt"
-c:\hans2.txt
Gewindeschraube[tab]screw
Gewindestange[tab]bolt
Gewindeschrauben[tab]screws
Gewindestangen[tab]bolts
-Wolfram-


Vielen Dank!

Hans
 

Lesen sie die antworten

#1 Wolfram Jahn
30/08/2011 - 21:36 | Warnen spam
Am 30.08.2011 15:50, schrieb Hans List:
Hallo Wolfgang,

kannst Du mir bitte auf die Sprünge helfen?



Hallo Hans,

unter der Zeile

"-Aufruf in VBA Direktbereich"

stand der Aufruf.

Davor stand der Inhalt der Eingabedatei "c:\hans.txt", danach der Inhalt
der vom Makro erzeugten Ausgabedatei "c:\hans2.txt".


Wolfram
(nicht Wolfgang; ist zwar auch ein schöner Name, aber etwas hàufiger)

Ähnliche fragen