Tja, von welchem Programm aus, willst du denn auf Excel
zugreifen?
solltest du deinen Code innerhalb von Excel ausführen, brauchst du
das alles nicht. Dann reicht nur Workbooks("MA2016.xlsm").Activate
die Api-Funktionen solltest du am besten direkt nach GetObject
einsetzen. Also so:
Set xlApp = GetObject(, "Excel.Application")
hWnd = FindWindow("XLMain", 0)
SendMessage(hWnd, 1042, 0, 0)
xlApp.visible = True
xlApp.Workbooks("MA2016.xlsm").Activate
Was deinen Fehler angeht, bin ich etwas ratlos, da das (mal wieder)
bei mir einwandfrei funktioniert. Probier aber mal als Alternative:
SendMessage hWnd, 1042, 0, 0
oder
x = SendMessage(hWnd, 1042, 0, 0)
Vielleicht reicht das schon aus.
Mr. K.