如何修复VBScript操作Excel时的Selection属性不支持错误

错误提示 #

Windows Script Host #

Script: C:\Applic\Server\DBNode\4.0.1\htdocs\admin\Get_TO.vbs
Line: 107
Char: 5
Error: Object doesn't support this property or method: 'Selection'
Code: 800A01B6
Source: Microsoft VBScript runtime error #

OK

原问题代码 #

With objSheet
    .Rows("1:14").Select
    .Selection.Delete
End With

修复方案 #

直接对目标行范围调用Delete方法，无需通过Select和Selection中转：

With objSheet
    .Rows("1:14").Delete
End With

原因说明 #

Selection是Excel应用程序（Application）或窗口对象的属性，不属于Worksheet对象（即代码中的objSheet）。原代码试图通过objSheet.Selection访问该属性，触发了属性不支持的错误。跳过选择操作直接删除目标行，不仅解决了错误，还提升了代码执行效率。

内容的提问来源于stack exchange，提问作者Luc Snoekx