excel如何多表一起选？（已解决）

weineng · 发表于 2018-5-15 13:46:14

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

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

zch11230 · 发表于 2018-5-15 14:03:54

#include <Excel.au3>
Local $oExcel = _Excel_Open()
Local $sWorkbook = "test.xlsx"
$oWorkbook = _Excel_BookAttach($sWorkbook, "filename")
Local $array=[1,2]
$oWorkbook.Sheets($array).Select

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

weineng · 发表于 2018-5-15 16:26:05

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

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

zch11230 · 发表于 2018-5-15 16:46:08

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

回复 3# weineng

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

weineng · 发表于 2018-5-15 17:14:49

回复 4# zch11230

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

zch11230 · 发表于 2018-5-15 17:21:13

应该是附加失败了，你得先打开一个名为test.xls的文档。或者自己新建


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

For $i = 1 To 10
        _Excel_SheetAdd($oWorkbook)
Next

Sleep(1000)
Local $array = [2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
$oWorkbook.Sheets($array).Select
Sleep(1000)
$oWorkbook.Sheets($array).Delete

weineng · 发表于 2018-5-15 17:41:25

回复 6# zch11230

试了几次终于可以了（主要是没有加上sleep的关系），真是太感谢了！！

kk_lee69 · 发表于 2018-5-15 23:44:48

留下腳印 MacGyver

zxxputian2 · 发表于 2018-5-24 20:00:34

有特色，谢谢楼主

		自动登录	找回密码
密码			加入

[效率算法] excel如何多表一起选？（已解决）

本帖子中包含更多资源

本帖子中包含更多资源