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

excel如何多表一起选?(已解决)

本帖最后由 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=
$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 =
$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

有特色,谢谢楼主
页: [1]
查看完整版本: excel如何多表一起选?(已解决)