VBA作业（2014-10-16）

一、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 = "=1+1"
.Range("A5:C10").Formula = "=1+2+3"
End With
‘当前文档另存为“D:\test\1.xlsx”，注意FileFormat
wkb.SaveAs "D:\test\1.xlsx" ,xlWorkbookNormal
‘关闭当前文档 ,退出ET进程
wkb.Close
app.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