VBS脚本操作Excel出错提示：意外地调用了方法或属性访问

湘喑

很简单的一段代码啊，用VBSEDIT运行未提示错误，保存成VBS执行后就提示当面页面的脚本发生错误
行：1  char:1 错误：意外地调用了方法或属性访问。 代码：0
以下是代码原文，虽然提示出错，但还是执行完了，搞不明白什么情况：

1. Dim app,wb,arr,sh
   
2. Set app = GetObject(,"excel.application")
   
3. Set wb = app.activeworkbook
   
4. Set sh = wb.activesheet
   
5. Set rng = app.selection
   
6. app.ScreenUpdating = False
   
7. arr = rng
   
8.   For i = 1 To UBound(arr)
   
9.         arr(i,1) = rng(i,1).text
   
10.   next
    
11.         For i = 1 To UBound(arr)       
    
12.           wb.worksheets.add(,wb.activesheet).name = arr(i,1)       
    
13.         Next
    
14.         sh.activate
    
15. app.ScreenUpdating = True
    
16. 
    
17. Dim wsh
    
18.     Set wsh = CreateObject("WScript.Shell")
    
19.     wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"已执行完毕"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
    
20.     set wsh=Nothing

复制代码