|
Guten Abend Karl-Heinz,
da habe ich etwas in der Glasgoogle gefunden was auf beiden Systemen keinen Fehler verursacht. Respektive auf dem Mini PC mit Win10 64 Bit und Excel 2016 32 Bit nunmehr läuft. Das scheint mit so eine Art Universal-Declaration zu sein (??). Habe aber keine Ahnung. Ich schreibe das, bevor du dir unnötig Arbeit machst. Solltest du aber darin noch einen Pferdefuß entdecken und eine kleverere Lösung haben würde ich diese gerne annehmen. Für mich sind es so viele Böhmische Dörfer auf einem Haufen. Jedenfalls funzt es momentan.
#If Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Else
Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Noch einen schönen Abend
Harald
|