CATIA VBA引用Excel对象库触发运行时错误'91'求助

核心原因 #

勾选「Microsoft Excel Object Library」后，VBA名称空间中同时存在CATIA的Selection对象和Excel的Selection对象，引发命名冲突。当代码中直接使用Selection时，VBA会优先绑定到Excel的Selection，但此时你并未初始化Excel应用程序对象，导致该对象未被设置，触发「Run-time error '91'」。未勾选Excel库时，Selection默认指向CATIA的Selection对象，因此代码正常运行。

解决方法 #

• 显式限定CATIA Selection对象
  不要直接使用Selection，而是明确指定其所属的CATIA对象，消除命名歧义：

  ' 声明并绑定CATIA的Selection对象
  Dim catSelection As Selection
  Set catSelection = CATIA.ActiveDocument.Selection
  
  ' 后续操作使用catSelection，例如：
  catSelection.Clear
  catSelection.Add CATIA.ActiveDocument.Part.Bodies.Item(1)
  

• 改用Excel后期绑定（无需勾选引用库）
  如果不需要Excel库的智能提示功能，可以通过后期绑定创建Excel对象，既避免命名冲突，又能正常读取Excel数据：

  Dim xlApp As Object
  Dim xlWorkbook As Object
  Dim xlWorksheet As Object
  
  ' 创建Excel应用实例
  Set xlApp = CreateObject("Excel.Application")
  ' 打开目标工作簿
  Set xlWorkbook = xlApp.Workbooks.Open("C:\YourFilePath\Data.xlsx")
  ' 指定工作表
  Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")
  
  ' 读取数据示例
  Dim cellValue As Variant
  cellValue = xlWorksheet.Range("A1").Value
  
  ' 清理资源
  xlWorkbook.Close SaveChanges:=False
  xlApp.Quit
  Set xlWorksheet = Nothing
  Set xlWorkbook = Nothing
  Set xlApp = Nothing
  

• 调整引用优先级（不推荐）
  在VBA编辑器的「工具-引用」窗口中，将CATIA相关的库（如CATIA V5 Object Library）拖动到Excel库的上方，让VBA优先识别CATIA的Selection对象。但这种方法依赖引用顺序，后续修改引用可能再次触发冲突，稳定性较差。

内容的提问来源于stack exchange，提问作者Hung Pham Vu