![\"Modulkopf\"](\"https:\/\/i0.wp.com\/www.capri-soft.de\/blog\/wp-content\/uploads\/2016\/03\/Modulkopf.png?resize=474%2C229&ssl=1\")
<\/a><\/p>\n1.) Modulkopf (Modul1.bas): Deklaration der Kernel Funktionen f\u00fcr die Ausf\u00fchrung von Kommandozeilenparametern:<\/p>\n
\r\n' Used at module level to declare the default \r\n' lower bound for array subscripts (Array starts with 0)\r\nOption Base 0\r\n\r\n' Erzwingt die explizite Deklaration aller \r\n' Variablen in einer Datei \r\nOption Explicit\r\n\r\n' Deklariert die Funktionen aus kernel32.dll \r\nDeclare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As Long\r\nDeclare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long\r\nDeclare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As Long)\r\n<\/pre>\n2.) Erstellen einer einfachen Funktion, die die Ausf\u00fchrung von Kommandos anhand der kernel32.dll-Funktionen erlaubt.<\/p>\n
\r\nFunction CmdToSTr(Cmd As Long) As String\r\nDim Buffer() As Byte\r\nDim StrLen As Long\r\n If Cmd Then\r\n StrLen = lstrlenW(Cmd) * 2\r\n If StrLen Then\r\n ReDim Buffer(0 To (StrLen - 1)) As Byte\r\n CopyMemory Buffer(0), ByVal Cmd, StrLen\r\n CmdToSTr = Buffer\r\n End If\r\n End If\r\nEnd Function\r\n<\/pre>\n3.) Wenn das Workbook (die Arbeitsmappe) ge\u00f6ffnet wird, soll der Parameter (hier \/cs:irgendwas ) zur Weiterverwendung genutzt werden k\u00f6nnen<\/p>\n
\r\nPrivate Sub Workbook_Open()\r\n Dim CmdRaw As Long\r\n\r\n Dim CmdLine As String\r\n Dim start As Integer\r\n 'The return value is a pointer to the command-line string for the current process.\r\n CmdRaw = GetCommandLine\r\n CmdLine = CmdToSTr(CmdRaw)\r\n \r\n start = InStr(CmdLine, "\/cs:")\r\n ende = Len(CmdLine) - start - 3\r\n Tabelle1.Cells(1, 1) = Right(CmdLine, ende)\r\n\r\n mainForm.Show\r\nEnd Sub\r\n<\/pre>\n4.) Aufruf der Datei<\/p>\n
C:\\Program Files (x86)\\Microsoft Office\\Office12\\EXCEL.exe C:\\tracematrix.xlsm \/cs:meinParameter<\/p>\n