.Sheets("AAA").Range(.Selection.Address).Clear 在VSTO中无法运行

zaojiashi75

.Sheets("AAA").Range(.Selection.Address).Clear

上面这一语句，VBA中运行没有问题，到VSTO运行却是提醒以下异常！！

System.Runtime.InteropServices.COMException:“找不到成员。 (异常来自 HRESULT:0x80020003 (DISP_E_MEMBERNOTFOUND))”

VSTO的语法结构与VBA怎么差别那么大？？？
请大佬告诉我，如何将上面的VBA语句改成VSTO，谢谢！！！

一执成念

.Selection.Address  缺少指定吧，vsto要写全

zaojiashi75

一执成念 发表于 2023-12-7 15:13
.Selection.Address  缺少指定吧，vsto要写全

代码没贴全，vsto又不方便上传收件。
.sheets("AAA&)   和    .selection.address   是包含在with excel.application   和   end  with 之间的，应该算是有所指定吧？

prcstone

Range(.Selection.Address)中的“.Selection.Address”前面须指明对象

zaojiashi75

prcstone 发表于 2023-12-10 12:44
Range(.Selection.Address)中的“.Selection.Address”前面须指明对象

Range(.Selection.Address)中的“.Selection.Address”前面　已经指明了”Excel.Application“对象。
“.Selection.Address”，就是.Sheets("AAA")的Selection。

zaojiashi75

经反复调试，问题已得到解决。

VBA中的代码如下：.Sheets("AAA").Range(.Selection.Address).Clear
VSTO中的代码如下：.Sheets("AAA").Range(Replace(.Selection.Address, "$", "")).Clear

解决的办法就是，将Selection.Address字符串中的字符“$”替换掉，真是莫名其妙＋匪夷所思。。。。。

希望我这个办法，能帮助到其他需要的人。