Adinn führt unter WIN Xp keinen Code aus, unter Win7 aber schon

Question

Hallo allerseits,

 

ich habe eine Excel 2007 Addin mittels VSTO erstellt. Nun habe ich das Addin auf einem Win XP-Rechner installiert und folgendes festgestellt:

Im Ribbon wird mein Button geladen, über welchen die Funktionalität abgerufen werden soll, egal welche Windowsversion genutzt wird.

Unter Windows Xp jedoch wird kein Code ausgeführt, außer man öffnet und schlißet den VBA-Editor.

Unter Windows7 läuft das Addin ohne probleme.

 

Was kann ich machen, damit das Addin läuft? Das Verhalten ist auf jedem XP-Rechner mit Office 2007 zu finden. Also gehe ich davon aus, dass es mit dem Betriebssystem zusammenhängt.

 

Ich bin für jeden Hilfe dankbar

---

Cheers, Jörn Bosse
Microsoft Studentpartner

Answer 1

Hallo,

 

habe den Fehler mittleweile gefunden, aber ich konnte ihn noch nicht beheben.

Try
            Dim exc As Object = New Object

            exc = Marshal.GetActiveObject("Excel.Application")

            Dim rec As Datensatz = New Datensatz(exc.Workbooks(exc.ActiveWorkbook.Name), exc)
            rec.ReadData()
        Catch Ausnahme As Exception
            MsgBox(Ausnahme.Message.ToString)
        End Try

 

Bei exc = Marshal.GetActiveObject("Excel.Application")

wird ein HRESULT error geworfen, jedoch nur unter Windows XP.

---

Cheers, Jörn Bosse
Microsoft Studentpartner

Answer 2

Hallo,

 

das Problem lag daran, dass Excel noch nicht in der ROT verfügbar war. Das setzten des Fokus auf den Startbutton erbrachte das gewünschte Resultat, denn wenn Excel den Fokus verliert, wird es in die ROT eingetragen.

---

Cheers, Jörn Bosse
Microsoft Studentpartner