Excel mit Parameter starten: Eine Anleitung
Schritt-für-Schritt-Anleitung
Um Excel mit einem Parameter zu starten, kannst Du folgende Schritte befolgen:
- Erstelle eine Verknüpfung zu Excel (z. B.
EXCEL.EXE).
- Füge den Startparameter hinzu: In der Zielzeile der Verknüpfung, füge
/e gefolgt von Deinen Parametern hinzu. Zum Beispiel:
"C:\Programme\Microsoft Office\Office\EXCEL.EXE" /e/Para1/Para2 "C:\Daten\Datei.xls"
- Öffne die gewünschte Excel-Datei: Stelle sicher, dass die Datei, die Du öffnest, die VBA-Funktion enthält, die die Parameter verarbeiten wird.
- Implementiere die VBA-Funktion in der Datei, um die übergebenen Parameter auszulesen (siehe praktisches Beispiel).
Häufige Fehler und Lösungen
Alternative Methoden
Falls die Übergabe von Parametern direkt beim Start nicht funktioniert, kannst Du folgende Alternativen ausprobieren:
- INI-Datei nutzen: Schreibe die benötigten Parameter in eine INI-Datei, die von der geöffneten Excel-Datei ausgelesen werden kann.
- Excel VBA Parameter übergeben: Verwende eine Excel-Funktion, die beim Öffnen der Datei die Werte aus einer Zelle oder einem Bereich ausliest.
Praktische Beispiele
Hier ist ein Beispiel, wie Du die Parameter in VBA auslesen kannst:
Option Explicit
Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String
Sub Auto_Open()
Dim CmdLine As String 'command-line string
Dim Args() As String 'array for storing the parameters
Dim ArgCount As Integer 'number of parameters
Dim Pos1 As Integer, Pos2 As Integer
CmdLine = GetCommandLine() 'get the cmd-line string
CmdLine = Left$(CmdLine, InStr(CmdLine & vbNullChar, vbNullChar) - 1)
On Error Resume Next 'for the wksht-function "Search"
Pos1 = WorksheetFunction.Search("/", CmdLine, 1) + 1 'search "/e"
Pos1 = WorksheetFunction.Search("/", CmdLine, Pos1) + 1 '1st param
Do While Err = 0
Pos2 = WorksheetFunction.Search("/", CmdLine, Pos1)
ArgCount = ArgCount + 1
ReDim Preserve Args(ArgCount)
Args(ArgCount) = Mid(CmdLine, Pos1, IIf(Err, Len(CmdLine), Pos2) - Pos1)
MsgBox "Argument " & ArgCount & " : " & Args(ArgCount)
Pos1 = Pos2 + 1
Loop
End Sub
In diesem Beispiel wird die Funktion GetCommandLine verwendet, um die übergebenen Parameter auszulesen und in einer MessageBox anzuzeigen.
Tipps für Profis
- Vermeide Leerzeichen in den Parametern, da dies zu Problemen führen kann.
- Teste Deine Parameter zuerst in einer Entwicklungsumgebung, bevor Du sie in einer produktiven Umgebung verwendest.
- Nutze Debugging: Setze Breakpoints in Deinem VBA-Code, um den Fluss und die Übergabe der Parameter zu überprüfen.
FAQ: Häufige Fragen
1. Kann ich mehrere Parameter gleichzeitig übergeben?
Ja, Du kannst beliebig viele Parameter über / getrennt übergeben, solange die Gesamtlänge der Befehlszeile nicht überschritten wird.
2. Wie kann ich die Parameter in einer Funktion verwenden?
Du kannst die übergebenen Parameter in einer VBA-Funktion verwenden, indem Du sie in einem Array speicherst und danach darauf zugreifst.
3. Was passiert, wenn ich einen ungültigen Parameter übergebe?
Wenn ein ungültiger Parameter übergeben wird, kann dies zu Fehlern in Deinem VBA-Code führen. Stelle sicher, dass alle Parameter validiert werden, bevor Du sie verwendest.