Startparameter übergeben
16.09.2005 10:26:12
Michael
Ich möchte gerne eine Excel Datei für verschiedene Anwender zur Verfügung stellen.
Einerseits benutzt unser ERP-Server die Excel-Datei um Daten zu übergeben, auszuwerten und Ergebnisse zurückzubekommen, andererseits wird dieselbe Datei von verschiedenen Usern für Kalkulationen herangezogen (immer schreibgeschützt).
Da der Pflegeaufwand für verschiedenen Versionen sehr hoch ist, möchte ich eingentlich über Startparameter festlegen, welche Version einen Makros gestartet wird, der automatische Prozess, oder manuelle.
Ich möchte das eingentlich so aufrufen:
\\SERVER\Pfad\Datei.xls Server
\\SERVER\Pfad\Datei.xls Username
Dann ein Makro im Autostart wie folgt:
Sub Workbook_Open()
if Parameter = Server 'geht das auch irgendwie in Listen-
goto sever: 'form?
end if 'if Parameter =
'server goto sever:
if parameter = Usernamex 'Usernamex goto usernamex:
goto Usernamex: 'Usernamey goto usernamey:
end if 'end if
'Wäre irgendwie besser zu
if Parameter = usernamey 'durchblicken
goto Usernamey:
end if
server:
Application.Run (Datei.xls!MakroServer)
goto ende:
Usernamex:
Application.Run (Datei.xls!MakroUserx)
goto ende:
Usernamey:
Application.Run (Datei.xls!MakroUsery)
goto ende:
ende:
End Sub
Wie bekomme ich nun den Parameter, den ich beim start übergebe in obiges Makro?
In der Batchdatei ist da %1, aber bei VBA habe ich noch kein Äquivalent gefunden.
Viele Grüße
M. Gülich
Anzeige