VBA转VSTO运行错误

dagang13

请教各位大神了 ，VBA转VSTO 运行时 提示如下错误，该怎么处理呀？

1. 
   
2. <div>Set loadlist = Application.ActiveWorkbook
   
3. With Range("A4:I500")</div>

复制代码

VBA转VSTO修改为：

1. 
   
2. <div>loadlist = xlapp.ActiveWorkbook
   
3. With xlapp.Range("A4:I500")</div>

复制代码

System.InvalidCastException
  HResult=0x80004002
  Message=无法将类型为“System.__ComObject”的 COM 对象强制转换为接口类型“Microsoft.Office.Tools.Excel.Workbook”。此操作失败的原因是对 IID 为“{B74CBB86-9C9F-4172-9AE7-3CE4A7BFA5EB}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 不支持此接口 (异常来自 HRESULT:0x80004002 (E_NOINTERFACE))。
  Source=ExcelAddIn2
  StackTrace:
   at ExcelAddIn2.Form1.Button1_Click(Object sender, EventArgs e) in C:\Users\zhangxianggang\source\repos\ExcelAddIn2\ExcelAddIn2\Form1.vb:line 26

临沂-枸杞

类型声明错了,别用tools里的类型,用excel.workbook

micch

range的parent不是应该是sheet吗

dagang13

临沂-枸杞 发表于 2022-8-3 22:25
类型声明错了,别用tools里的类型,用excel.workbook

谢谢大佬。