[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 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. Dim wsh
  17.     Set wsh = CreateObject("WScript.Shell")
  18.     wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"已执行完毕"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
  19.     set wsh=Nothing
复制代码

返回列表