Private Sub Workbook_Open()
Dim Scmd As String
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Scmd = StringFromPointer(GetCommandLine())
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Id Scmd="AUTO" Then Call MeinCode
End Sub

Option Explicit
 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Dieses Modul enthält fremden Code zum Auslesen der Startparameter
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' <zitat http://195.186.84.74/soscq/startparameter.htm>
' die o.g. Seite ist tot!
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' VBA-Programmcode
' Fügen Sie den gesamten VBA-Code in das Modul "DieseArbeitsmappe" einer
' Arbeitsmappe ein und speichern Sie die Mappe. Der Code wird aufgerufen, indem
' Sie Microsoft Excel mit der Befehlszeilensyntax
'  <Programmdatei> <Arbeitsmappendatei> /e/<Zeichenfolge>
' ausführen.
'
' Beispiel einer Befehlszeile:
'  "C:\Programme\Microsoft Office\Excel.exe" "C:\Daten\MeineMappe.xls" 
' /e/Philipp
 
' Deklarationsbereich von Modul 'DieseArbeitsmappe'
'Private Declare Function GetCommandLine& Lib "kernel32" Alias 
' "GetCommandLineA" ()
Declare Function GetCommandLine& Lib "kernel32" Alias "GetCommandLineA" ()
Private Declare Function lstrlen Lib "kernel32" (ByVal str As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" (ByVal dest As String, ByVal _
  src As Long) As Long
 
'Modul 'DieseArbeitsmappe'
Private Sub Workbook_Open()
  Dim strCommandLine As String
  Dim intPosition As Integer
  'Befehlszeile auslesen
  strCommandLine = StringFromPointer(GetCommandLine())
  'Prüfen, ob "/e/" in der Befehlszeile enthalten ist
  intPosition = InStr(LCase(strCommandLine), "/e/")
  If intPosition > 0 Then
    '"/e/" wurde gefunden, daher Text nach "/e/" ausgeben
    strCommandLine = Mid$(strCommandLine, intPosition + 3)
    MsgBox "Es wurde die Zeichenfolge '" & strCommandLine & "' übergeben."
  Else
    '"/e/" wurde nicht gefunden
    MsgBox "Es wurde keine Zeichenfolge übergeben."
  End If
End Sub
 
'Modul 'DieseArbeitsmappe'
Private Function StringFromPointer(plngString As Long) As String
  Dim strResult As String
  Dim lngNumber As Long
  lngNumber = lstrlen(plngString)
  strResult = VBA.String(lngNumber, 0)
  lstrcpy strResult, plngString
  If InStr(strResult, Chr(0)) <> 0 Then
    strResult = Left$(strResult, InStr(strResult, Chr(0)) - 1)
  End If
  StringFromPointer = strResult
End Function
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' <zitat http://195.186.84.74/soscq/startparameter.htm>
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~