Sub AutoADDAutoCADTypeLib() Dim Ref As Variant Dim hasAutoTypeLib As Boolean, hasAXDBLib As Boolean, acadName As String hasAutoTypeLib = False: hasAXDBLib = False For Each Ref In ThisWorkbook.VBProject.References If Ref.Name = "AutoCAD" Then has…
错误提示信息 格式太旧或是类型库无效. (Exception from HRESULT: 0x80028019 (TYPE_E_UNSUPFORMAT)) . Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD)). 出现时间 并行大批量数据处理操作时随机出现(使用的是ArcGIS COM库). 原因: 这是网络中找到的使用Excel进行COM对象互操作时的解释:…