返回列表 发帖

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

本帖最后由 weineng 于 2018-5-15 18:13 编辑

请问以下在excel的VBA语句,在au3中应该如何书写?
Sheets(Array(1, 2, 3, 4, 5)).Select
如果不用循环语句可否达到目的?

  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

复制代码 高亮切换

都是调用的对象,命令都是一样的。

TOP

本帖最后由 weineng 于 2018-5-15 16:27 编辑

@zch11230,试过了,肯定不能用

TOP

本帖最后由 zch11230 于 2018-5-15 17:01 编辑

回复 3# weineng


    我也试过了,可以用才发的.
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

TOP

回复 4# zch11230

是不是我的win和office的版本有问题
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

TOP

应该是附加失败了,你得先打开一个名为test.xls的文档。或者自己新建
  1. #include <Excel.au3>

  2. Local $oExcel = _Excel_Open()

  3. Local $oWorkbook = _Excel_BookNew($oExcel, 1)

  4.  

  5. For $i = 1 To 10

  6.         _Excel_SheetAdd($oWorkbook)


  7.  

  8. Sleep(1000)

  9. Local $array = [2, 3, 4, 5, 6, 7, 8, 9, 10, 11]

  10. $oWorkbook.Sheets($array).Select

  11. Sleep(1000)

  12. $oWorkbook.Sheets($array).Delete

复制代码 高亮切换

TOP

回复 6# zch11230

试了几次终于可以了(主要是没有加上sleep的关系),真是太感谢了!!

TOP

留下腳印 MacGyver
改簽名 協助 宣传论坛捐助事业:http://www.autoit3.cn/thread-56447-1-1.html

TOP

有特色,谢谢楼主

TOP

返回列表