一、Application基本操作

1、创建Excel进程，并把程序界面设置为可见

2、新建一个文档

3、给单元格“A1”的公式赋值“=1+1”

4、给单元格“A5:C10”的数组公式赋值“=1+2+3“

5、当前文档另存为“D:\test\1.xlsx”，注意FileFormat

6、关闭当前文档

7、退出ET进程

8、弹出对话框，内容显示“Done”

9、以上代码保存为 1.vbs

‘创建Excel进程，并把程序界面设置为可见Set app = CreateObject("ket.application")app.visible = True‘新建一个文档Set wkb = app.Workbooks.Add‘给单元格“A1”的公式赋值“=1+1” 给单元格“A5:C10”的数组公式赋值“=1+2+3“With wkb.Worksheets("Sheet1").Range("A1").Value = http://www.mamicode.com/"=1+1".Range("A5:C10").Formula = "=1+2+3"End With‘当前文档另存为“D:\test\1.xlsx”，注意FileFormatwkb.SaveAs "D:\test\1.xlsx" ,xlWorkbookNormal‘关闭当前文档 ,退出ET进程wkb.Closeapp.application.quit‘弹出对话框，内容显示“Done”MsgBox"Done"

二、菜单基本操作

1、创建Excel进程，并把程序界面设置为可见

2、用代码点击“打开”菜单按钮

3、以上代码保存为 2vbs

4、自己练习其他菜单按钮的操作

‘创建Excel进程，并把程序界面设置为可见Set app = CreateObject("ket.Application")app.visible = True‘用代码点击“打开”菜单按钮app.CommandBars("Worksheet Menu Bar").Controls("文件(&F)").Controls("打开").Execute‘app.CommandBars("Worksheet Menu Bar").Controls(1).Controls(2).Execute

三、AutoIt基本操作

1、手动启动ET，并打开“打开”对话框，这一步不用写代码，手动操作

2、创建AutoIt对象（ProgID：AutoItX3.Control）

3、给“打开”对话框中的文本框赋值，写一个样张的路径

4、休眠3秒之后，点击“打开”按钮（AutoIt有休眠的函数，查帮助文档）

5、获取ET进程，把当前文档另存为“D:\test\1.xlsx”，注意FileFormat

6、退出ET进程

7、以上代码保存为3.vbs（2~6步都用代码实现）

8、自己熟悉AutoIt帮助文档中的“函数参考”下的“窗口管理”中的所有API，并写相应脚本练习

‘创建AutoIt对象Set autoIt = CreateObject("AutoItX3.Control")‘给“打开”对话框中的文本框赋值，写一个样张的路径    autoIt.ControlSetText "打开", "", "Edit1", "C:\Program Files\Kingsoft\QTSpyAutoTest\AutoTool\Resource\Files\ET\DW\定位-样张.et"    ‘休眠3秒之后，点击“打开”按钮    autoIt.Sleep "3000"    autoIt.ControlClick "打开", "", "打开(&O)"    ‘获取ET进程，把当前文档另存为“D:\test\1.xlsx”    Set app = GetObject(,"ket.application")    app.ActiveWorkbook.SaveAs "D:\test\1.xlsx" , xlOpenXMLWorkbook    ‘退出ET进程    app.ActiveWorkbook.Close    app.quit

VBA作业（2014-10-16）