找回密码  加入

AUTOIT CN

搜索
查看: 215|回复: 8

[效率算法] excel如何多表一起选?(已解决)

[复制链接]
发表于 2018-5-15 13:46:14 | 显示全部楼层 |阅读模式
本帖最后由 weineng 于 2018-5-15 18:13 编辑

请问以下在excel的VBA语句,在au3中应该如何书写?
Sheets(Array(1, 2, 3, 4, 5)).Select
如果不用循环语句可否达到目的?
发表于 2018-5-15 14:03:54 | 显示全部楼层
  1. #include <Excel.au3>
  2. Local $oExcel = _Excel_Open()
  3. Local $sWorkbook = "test.xlsx"
  4. $oWorkbook = _Excel_BookAttach($sWorkbook, "filename")
  5. Local $array=[1,2]
  6. $oWorkbook.Sheets($array).Select
复制代码

都是调用的对象,命令都是一样的。
 楼主| 发表于 2018-5-15 16:26:05 | 显示全部楼层
本帖最后由 weineng 于 2018-5-15 16:27 编辑

@zch11230,试过了,肯定不能用
发表于 2018-5-15 16:46:08 | 显示全部楼层
本帖最后由 zch11230 于 2018-5-15 17:01 编辑

回复 3# weineng


    我也试过了,可以用才发的.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
 楼主| 发表于 2018-5-15 17:14:49 | 显示全部楼层
回复 4# zch11230

是不是我的win和office的版本有问题

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x
发表于 2018-5-15 17:21:13 | 显示全部楼层
应该是附加失败了,你得先打开一个名为test.xls的文档。或者自己新建

  1. #include <Excel.au3>
  2. Local $oExcel = _Excel_Open()
  3. Local $oWorkbook = _Excel_BookNew($oExcel, 1)

  4. For $i = 1 To 10
  5.         _Excel_SheetAdd($oWorkbook)
  6. Next

  7. Sleep(1000)
  8. Local $array = [2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
  9. $oWorkbook.Sheets($array).Select
  10. Sleep(1000)
  11. $oWorkbook.Sheets($array).Delete
复制代码
 楼主| 发表于 2018-5-15 17:41:25 | 显示全部楼层
回复 6# zch11230

试了几次终于可以了(主要是没有加上sleep的关系),真是太感谢了!!
发表于 2018-5-15 23:44:48 | 显示全部楼层
留下腳印 MacGyver
发表于 2018-5-24 20:00:34 | 显示全部楼层
有特色,谢谢楼主
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2018-8-16 00:21 , Processed in 0.102133 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表