Ik heb een VB6/VBA-toepassing die inhaakt op Excel en een werkmap laadt. Het werkt al vele jaren geweldig. We hebben nu een upgrade naar Excel 2010 uitgevoerd en zijn enkele problemen tegengekomen. Na het oplossen van problemen lijkt het erop dat als ik de PowerPivot COM-invoegtoepassing uitschakel, het proces zonder problemen kan worden uitgevoerd zoals voorheen. Terwijl ik naar de exacte oorzaak zoek, wilde ik zien of ik die invoegtoepassing alleen voor mijn app kan uitschakelen. Ik laad Excel als volgt:
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Op een test Excel-werkboek heb ik deze code om de invoegtoepassingen weer te geven. Alleen Excel-invoegtoepassingen zijn echter de enige die worden vermeld. "COM-invoegtoepassingen" worden niet weergegeven.
Sub ListAddIns()
Dim CurrAddin As Excel.AddIn
Dim r As Long
Dim ws As Excel.Worksheet
Set ws = ActiveSheet
Cells.Select
Selection.ClearContents
Range("A1").Select
r = 1
For Each CurrAddin In Excel.Application.AddIns
ws.Cells(r, 1).Value = CurrAddin.FullName
ws.Cells(r, 2).Value = CurrAddin.Installed
ws.Cells(r, 3).Value = CurrAddin.Name
ws.Cells(r, 4).Value = CurrAddin.Path
ws.Cells(r, 5).Value = CurrAddin.progID
ws.Cells(r, 6).Value = CurrAddin.CLSID
r = r + 1
Next CurrAddin
MsgBox "Its done.", vbInformation
End Sub
Nadat ik een manier heb gevonden om naar de COM-invoegtoepassing te verwijzen, moet ik voorkomen dat deze wordt geladen in het Excel-object in mijn app. Alle hulp of suggesties welkom.
Bedankt