键盘鼠标操作
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Const MOUSEEVENTF_MOVE = &H1
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_ABSOLUTE = &H8000

Type POINTAPI
    x As Long
    y As Long
End Type

Sub saveTextFile()
    Dim Cp As POINTAPI
    GetCursorPos Cp							'save now cursor's address to Cp
    SetCursorPos Cp.x, Cp.y                 'move cursor to Cp's address
    For i = 1 To 2                          'Click 2 times
        mouse_event &H2, 0, 0, 0, 0         'mouse_event &H2 + &H4,left click and up
        mouse_event &H4, 0, 0, 0, 0
    Next
    Application.SendKeys "abc"
    'Debug.Print 1
    Application.Wait (Now + TimeValue("0:00:01"))		'sleep 1s
    ' Debug.Print 2
    Application.SendKeys "xyz"
    Application.Wait (Now + TimeValue("0:00:01"))
    For i = 1 To 22
        Application.SendKeys "^v"			'ctrl+v , paste 20 times
    Next
  
    Application.SendKeys "^s"				'ctrl+s, save file
    Application.SendKeys "^p"               'ctrl+p-->print
    'mouse_event &H8 + &H10, 0, 0, 0, 0     'MOUSEEVENTF_RIGHTDOWN and MOUSEEVENTF_RIGHTUP
End Sub

打开窗口
SHELL的第二个参数




常数
值
描述




vbHide
0
窗口是隐藏的，并且焦点被传递给隐藏窗口。


vbNormalFocus
1
窗口拥有焦点，并且恢复到原来的大小与位置。


vbMinimizedFocus
2
窗口缩小为图符并拥有焦点。


vbMaximizedFocus
3
窗口最大化并拥有焦点。


vbNormalNoFocus
4
窗口被恢复到最近一次的大小与位置。当前活动窗口仍为活动窗口。


vbMinimizedNoFocus
6
窗口缩小为图符。当前活动窗口仍为活动窗口。


'''打开3个记事本，写点内容，再按打开的顺序关闭，不保存。
Sub testAppActivate()
    Dim windowCodeList As New Collection
    For i = 1 To 3
        a = Shell("notepad", 1)
        Application.SendKeys a
        windowCodeList.Add (a)
        Debug.Print a
    Next i
    For Each i In windowCodeList
        Debug.Print i
        'Application.Wait (Now + TimeValue("00:00:01"))
        AppActivate i, False
        Application.Wait (Now + TimeValue("00:00:01"))
        Application.SendKeys "%{f4}"
        Application.SendKeys "n"
    Next i
End Sub

激活窗口
参数是窗口的标题(可以是本来就打开的窗口)或者shell的返回值(只能是vba用shell打开并拿到返回值)

AppActivate “1.txt - 记事本”
AppActivate shell的返回值

了解工程窗口
工程窗口显示当前打开的工程和它的组成部分清单。VBA工程包括下列组成：
1、工作表
2、图表
3、当前工作簿——工程储存的工作簿
4、模块
5、类模块——特殊的模块让你可以创建自己的对象
6、窗体
7、引用到其它工程
通过工程浏览器，你可以管理你的工程，容易地在当前打开的工程中切换。
你可以通过三种途径激活工程浏览器：
1、通过视图菜单，选择工程浏览器
2、通过键盘，按下Ctrl+R
3、通过工具栏，点击工程浏览器按钮，如下图所示
标准工具栏上的按钮提供了快速的方式进入许多VB特征
工程浏览器有三个按钮。左边第一个按钮(查看代码)显示当前选中的模块(或者窗体)里的代码窗口。中间那个按钮(查看对象)显示Excel界面当前工作表，或者窗体文件夹里面的窗体。右边的按钮(切换文件夹)隐藏或者显示工程浏览器里的文件夹。
了解属性窗口
属性窗口让你查看你工程里的对象和设置它们的属性。当前选中的对象的名称就显示在属性窗口的
标题栏下面的对象栏。对象的属性可以按照字母顺序查看，也可以按类别查看，如下图所示：
属性窗口显示的是当前被选中的对象的属性设置
1、字母顺序——按字母顺序地列出被选择的对象的所有属性。通过选择属性名，并且输入或者选择新的设置，来更改属性设置。
2、类别——按类别列出被选中的对象的所有属性。你可以将清单折叠起来，查看类别，你也可以展开类别查看属性。类别名称左边的加号(＋)说明这个类别可以展开。减号(－)说明这个类别已经展开。
有三种方式可以进入属性窗口：
1、视图菜单，选择属性窗口
2、从键盘，按下F4
3、从工具栏，点击属性窗口按钮
了解代码窗口
代码窗口是用来VB编程的，也是用来查看，修改录制的宏代码和现存的VBA工程的。每个模块会以一个专门的窗口打开。有好几个方法可以激活代码窗口：
1、从工程浏览器窗口，选择你要的用户窗体或者模块，然后点击查看代码按钮
2、从菜单，选择“视图”－“代码”
3、从键盘，按下F7
在代码窗口的上面，有两个下拉清单列表，如下图所示，方便你快速地移动到任意代码处。
代码窗口有几个部分，使得定位过程和查看代码变得很轻松
在代码窗口左上角的对象列表框，你可以选择你想查看代码的对象。你可以在代码窗口右上角的列表框里选择一个过程或者事件过程查看代码。当你打开这个列表框，这个模块里的所有过程名按字母顺序排列在那儿。如果你选择了一个过程，光标就会跳到那个过程的第一行处。将列分工具条(如上图所示)拖曳下列，你就可以将代码窗口分为两半了，如下图所示：
你可以将代码窗口列分为两个窗口来查看长过程
你可以查看不同的代码部分了。这样设置代码窗口，目的是方便在同一个模块内的过程里复制或剪切，并且粘贴代码片断。只要简单地将列分工具条拖曳至代码窗口上面就行。代码窗口的底部有两个图标。
点击“过程查看”图标，代码窗口里一次只显示一个过程，可以通过过程/事件列表框选择另外的过程。点击“全部模块查看”则可以显示这个模块里的所有过程。使用竖向滚动条可以在代码中滚动。页边指示工具条是在修改代码和调试是提供一些帮助指示的。
VB编辑器里的其它窗口
除了代码窗口，VB环境下还有很多其它窗口频繁地被使用：窗体窗口用来创建自定义对话框和用户窗体。
在选项里，你可以选择显示哪些窗口
上图中显示了一些可以显示了VB编辑器里的窗口清单。你将在接下来的章节中学习如何使用这些窗口。

VBA语句
		
语句
			
动作
		
AppActivate
			
激活一个应用程序窗口
		
Beep
			
通过计算机扬声器发出一个音调
		
Call
			
将控制权转移到另一个过程
		
ChDir
			
改变当前目录
		
ChDrive
			
改变当前驱动器
		
Close
			
关闭一个文本文件
		
Const
			
声明一个常量值
		
Date
			
设置当前系统日期
		
Declare
			
将以 声明对动态链接库（Dynamic Link Library，DLL）中外部过程的引用
		
DefBool
			
指定字母开头的变量的默认数据类型设置为Boolean
		
DefByte
			
将以指定字母开头的变量的默认数据类型设置为Byte
		
DefCur
			
将以指定字母开头的变量的默认数据类型设置为Currency
		
DefDate
			
将以指定字母开头的变量的默认数据类型设置为 Date
		
DefDec
			
将以指定字母开头的变量的默认数据类型设置为Decimal
		
DefDbl
			
将以指定字母开头的变量的默认数据类型设置为Double
		
DefInt
			
nt将以指定字母开头的变量的默认数据类型设置为 Integer
		
DefLng
			
将以指定字母开头的变量的默认数据类型设置为Long
		
DefLngLng
			
将以指定字母开头的变量的默认数据类型设置为LongLong
		
DefLngPtr
			
将以指定字母开头的变量的默认数据类型设置为LongPtr
		
DefObj
			
将以指定字母开头的变量的默认数据类型设置为Object
		
DefSng
			
将以指定字母开头的变量的默认数据类型设置为Single
		
DefStr
			
将以指定字母开头的变量的默认数据类型设置为String
		
DefVar
			
将以指定字母开头的变量的默认数据类型设置为 Variant
		
DeleteSetting
			
在 Windows 注册表中，从应用程序项目中删除区域或注册表项设置
		
Dim
			
声明变量及其数据类型（可选）
		
Do-Loop
			
遍历一组指令
		
End
			
程序本身使用，用来退出程序；也用来结束一个以If、With、Sub、Function、Property、Type或Select开头的语句块
		
Enum
			
声明枚举类型
		
Erase
			
重新初始化一个数组
		
Error
			
模拟一个特定的错误条件
		
Event
			
声明一个用户定义的事件
		
Exit Do
			
退出 Do-Loop代码块
		
Exit For
			
退出 For-Next代码块
		
Exit Function
			
退出Function过程
		
Exit Property
			
退出一个属性过程
		
Exit Sub
			
退出一个子过程
		
FileCopy
			
复制一个文件
		
For Each-Next
			
遍历序列中每个成员的指令集
		
For-Next
			
按指定次数遍历一个指令集
		
Function
			
声明 Function 过程的名称和参数
		
Get
			
从文本文件中读取数据
		
GoSub...Return
			
从一个过程跳到另一个过程执行，执行后返回
		
GoTo
			
跳到过程中指定的语句
		
If-Then-Else
			
有条件地执行语句
		
Implements
			
指定将在类模块中实现的接口或类
		
Input #
			
从顺序文本文件中读取数据
		
Kill
			
从磁盘中删除文件
		
Let
			
将表达式的值赋给一个变量或属性
		
Line Input #
			
从顺序文本文件中读取一行数据
		
Load
			
加载一个对象，但是不进行显示
		
Lock...Unlock
			
控制访问一个文本文件
		
Lest
			
左对齐一个字符串变量中的字符
		
Mid
			
串用其他字符代替字符串中的字符
		
MkDir
			
创建一个新目录
		
Name
			
重命名一个文件或目录
		
On Error
			
在出现错误时给出具体指示
		
On...GoSub
			
根据条件转到特定行执行
		
On...GoTo
			
根据条件转到特定行执行
		
Open
			
打开一个文本文件
		
Option Base
			
修改数组的默认下限
		
Option Compare
			
比较字符串时声明默认比较方式
		
Option Explicit
			
强制声明模块中的所有变量
		
Option Private
			
指明整个模块都是私有的
		
Print #
			
向顺序文件中写入数据
		
Private
			
声明一个本地数组或变量
		
Property Get
			
声明一个Property Get 过程的名称和参数
		
Property Let
			
声明一个Property Let 过程的名称和参数
		
Property Set
			
声明一个Property Set 过程的名称和参数
		
Public
			
声明一个公共数组或变量
		
Put
			
向文本文件中写入一个变量
		
RaiseEvent
			
引发一个用户定义的事件
		
Randomize
			
初始化随机数字生成器
		
ReDim
			
修改数组的维度
		
Rem
			
包含一个注释行（与单引号［］相同）
		
Reset
			
关闭所有打开的文本文件
		
Resume
			
当错误处理程序结束后，恢复运行
		
RmDir
			
删除一个空目录
		
RSet
			
右对齐一个字符串变量中的字符串
		
SaveSetting
			
在Windows 注册表中保存或创建应用程序记录
		
Seek
			
设置文本文件中下一个访问的位置
		
Select Case
			
有条件地执行语句
		
SendKeys
			
将按键发送到活动窗口中
		
Set
			
将对象引用赋值给一个变量或属性
		

			
SetAttr
			
			

			
修改文件的属性信息
			
		

			
Static
			
			

			
在过程级别中声明变量，以便在代码运行过程中始终保存变量的值
			
		

			
Stop
			
			

			
暂停程序的执行
			
		

			
Sub
			
			

			
声明Sub过程的名称和参数
			
		

			
Time
			
			

			
设置系统时间
			
		

			
Type
			
			

			
定义一个自定义数据类型
			
		

			
Unload
			
			

			
从内存中删除一个对象
			
		

			
While...Wend
			
			

			
只要指定条件为真，遍历一个指令集
			
		

			
Width #
			
			

			
设置文本文件的输出行宽度
			
		

			
With
			
			

			
设置一个对象的一系列属性
			
		

			
Write #
			
			

			
向顺序文本文件中写入数据
			
		

目录

VBE各窗口简介

​

VBE各窗口位置的调整

VBE各窗口的显示或隐藏

VBE各窗口简介



    工程资源管理器：显示当前VBA工程中包含的所有部件（工作簿、工作表、窗体、模块、类模块等）及所有引用的工程。

    代码窗口：显示和编辑VBA程序代码。各个VBA工程部件均有独立的代码窗口。

   属性窗口：当前激活的工程部件的主要属性。

   监视窗口：显示被监视的指定表达式的值。

   立即窗口：执行单行的语句或显示Debug. Pring所打印的表达式的值。

  本地窗口：显示当前运行的过程中所包含的变量的值。

VBE各窗口位置的调整

    开发者可以根据自己的需要随意移动每个窗口，只需用鼠标左键拖曳窗口的标题栏即可。也可以通过双击标题栏快速切换窗口悬浮或者停靠的状态，如图所示。


VBE各窗口的显示或隐藏

    可以通过单击“视图”菜单下各个窗口的按钮显示窗口，或者单击各个窗口标题栏右上角的“×”关闭窗口。