Paramter übergeben, Code funktioniert nicht unter Windows 10

Guten Tag,
es geht darum, einen Paramter, der aus einem Programm an die Kommandozeile übergeben wird, an Excel weterzugeben, so dass der Wert dort automatisch weiterverarbeitet wird.
Aus dem Programm heraus wird silent.vbs gestartet, welches w4atoexcel.cmd, daraufhin öffnet sich Excel und zeigt den Paramter an, der im Programm gewählt wurde.
Untenstehender Code funktioniert auf Windows7 wunderbar, doch seit Windows10 installiert wurde, klappt es nicht mehr.
Wisst ihr, an welcher Stelle der Code angepasst werden muss, damit es auch auf Windows10 funktioniert? Vielen Dank.

silent.vbs (VBScriptdatei):

Set WshShell = CreateObject("WScript.Shell")  
Redim args(WScript.Arguments.Count-1)
args(0) = WScript.Arguments(0)
WshShell.Run chr(34) & "\\Excel\w4atoexcel.cmd" & Chr(34) & Join(args) , 0  
Set WshShell = Nothing

w4atoexcel.cmd (Windows-Befehlsskript):

@echo off

START excel "\\Excel\Einzelansicht.xlsm" /e/%1  

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 301951

Url: https://administrator.de/forum/paramter-uebergeben-code-funktioniert-nicht-unter-windows-10-301951.html

Ausgedruckt am: 01.05.2025 um 15:05 Uhr

12 Kommentare

Neuester Kommentar

Hi,

da fehlt ein Leerzeichen. s.u. Code
Und Chr(34) kannst Du einfacher haben: Ein " innerhalb eines Strings muss man doppelt setzen. Bsp: "Blablabla ""xyz"" blablavbla"
Was soll "\\Excel\w4atoexcel.cmd" sein? Wenn das ein UNC sein soll, Servername wäre dann "EXCEL", dann fehlt noch die Freigabe --> \\Excel\Freigabe\w4atoexcel.cmd"

WshShell.Run """\\Excel\w4atoexcel.cmd"" " & Join(args) , 0

Danke, korrekt heißt der Pfad:
"\\Servername\Ordner\Excel\w4atoexcel.cmd"
Ich habe es nun mit " " ausprobiert.
Leider besteht das Problem immer noch. Excel startet, aber der Parameter wird nicht ausgegeben. Unter Windows 7 funktioniert es aber.

falls es an Excel selbst liegt, hier noch der VBA Code:

Modul

Option Explicit

Declare PtrSafe Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As Long  
Declare PtrSafe Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long  
Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (MyDest As Any, MySource As Any, ByVal MySize As Long)  

Function CmdToSTr(Cmd As Long) As String
Dim Buffer() As Byte
Dim StrLen As Long

If Cmd Then
StrLen = lstrlenW(Cmd) * 2
If StrLen Then
ReDim Buffer(0 To (StrLen - 1)) As Byte
CopyMemory Buffer(0), ByVal Cmd, StrLen
CmdToSTr = Buffer
End If
End If
End Function

Arbeitsmappe

Private Sub Workbook_Open()
Dim CmdRaw As Long
Dim CmdLine As String
CmdRaw = GetCommandLine
CmdLine = CmdToSTr(CmdRaw)
If InStr(1, CmdLine, "/e/") > 0 Then Sheets("Projekt-Status").[D4] = Split(CmdLine, "/e/")(1)  
End Sub


Private Sub Workbook_POpen()
Dim CmdRaw As Long
Dim CmdLine As String
Dim myParam As String

CmdRaw = GetCommandLine
CmdLine = CmdToSTr(CmdRaw)

myParam = Right(CmdLine, 6)

Selection.AutoFilter Field:=1, Criteria1:=myParam

End Sub

Moin,
oh man wer hat diesen Murks denn konstruiert?? Das ist ja vollkommen umständlich um 10 Ecken gedacht, da reicht doch das folgende VBS als einziges Skript vollkommen aus. Die Sub in dem Excelfile kannst du dann ebenfalls komplett rauslöschen, das macht in diesem Fall ebenfalls die VBS ...
Du brauchst also nur noch dieses VBS und das reine Excelfile ohne den Makro-Code im Sheet.

set objExcel = CreateObject("Excel.Application")  
objExcel.DisplayAlerts = False
set wb = objExcel.Workbooks.Open("\\Excel\Einzelansicht.xlsm")  
wb.Sheets("Projekt-Status").Range("D4").Value = WScript.Arguments(0)  
wb.Save
objExcel.DisplayAlerts = True
objExcel.Quit

Gruß jodel32

Hallo Jodel!

Dein Code entpricht auch meiner Vorstellung von silent

Allerdings ist der Paramter /e/ hier völlig überflüssig. Der wird ja erst im Cmd-Script generiert und sollte ja nur dazu dienen, im VBA-Code den an das VB-Script übergebene Argument aus der Command-Line zu extrahieren...

Gruß Dieter

Seh ich gerade auch, Danke Dieter

jodel

Hallo Zusammen,

erstmal sorry für die späte Antwort, ich war etwas erkältet und lag im Bett.

Vielen Dank für die Hilfe, der Paramter wird korrekt übergeben. Nun möchte ich nur noch erreichen, dass das Workbook nicht gespeichert wird, sondern stattdessen direkt geöffnet wird.

Quasi eine VB Variante von START excel "\\Excel\Einzelansicht.xlsm"

Zitat von @DerHulk:
Vielen Dank für die Hilfe, der Paramter wird korrekt übergeben. Nun möchte ich nur noch erreichen, dass das Workbook nicht gespeichert wird, sondern stattdessen direkt geöffnet wird.

Quasi eine VB Variante von START excel "\\gs05\Work4All\Excel\Einzelansicht.xlsm"

Kein Problem:

set objExcel = CreateObject("Excel.Application")  
set wb = objExcel.Workbooks.Open("\\gs05\Work4All\Excel\Einzelansicht.xlsm")  
wb.Sheets("Projekt-Status").Range("D4").Value = WScript.Arguments(0)  
objExcel.Visible = True

Jetzt klappts super, vielen lieben Dank :D

Nö, musst du nicht. Du hattest bestimmt noch irgendein anderes Excel-Object in der Prozessliste "hängen", das musst du erst abschiessen, das ist 100% deinen diversen Versuchen geschuldet, das ist normal wenn dann das dann Excel verrückt spielt.

Könnte man es noch hinkriegen, dass die Datei direkt im Vordergrund, am besten im Vollbildmodus erscheint? Im Moment liegt die Ansicht hinter der momentan aktiven Applikation