Pozdravujem,

potreboval by som pomôcť s kódom VBA:
       .
       .
       .
        Dim oInventorApp As Inventor.Application
        Set oInventorApp = GetObject(, "Inventor.Application")
       
        oInventorApp.Documents.Open ("D:\Skuska.ipt")
  
        Dim oPartDocument As PartDocument
        Set oPartDocument = oInventorApp.ActiveDocument na tomto riadku hlási chybu
  
        Dim oParameters As Inventor.Parameters
        Set oParameters = oPartDocument.ComponentDefinition.Parameters
        .
        .
        .

Chybové hlásenie
 Run-time error '13': Type mismatch

Neviem či to má vplyv, ale kód bol vytvorený v Exceli a zapisuje parametre do Inv2014.
Spustil som ho s Inv2015 a naskočila táto hláška. Migroval som súbor do Inv2015 a kód fungoval.
No po zatvorení Inventora a následnom spustení je tu opäť táto hláška a neviem kde je chyba.
Ďakujem za každú radu.

To, že dokument nie je aktívny, to by som výlučil. V Inventori je jediný otvorený dokument, ktorý otváram príkazom oInventorApp.Documents.Open ("D:\Skuska.ipt").