键盘鼠标操作
 
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的返回值

1 如何打开其他非VBA程序，shell()
 
如何打开其他程序，多种方法
 
点 "运行"时，输入程序的名字，打开
Windows菜单的图形化图标打开程序
VBA里可以用 shell 打开其他程序
如果是系统自带的程序，可以直接用程序名如 notepad.exe，否则就用 完整路径更保险。
 
Shell(pathname[,windowstyle])
 Shell 函数的语法含有下面这些命名参数：
 
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量 Windowstyle
可选参数。Variant (Integer)，表示在程序运行时窗口的样式。
如果 windowstyle省略，则程序是以具有焦点的最小化窗口来执行的。
所以一般要带参数 ,1 或者 vbNormalFocus
下面是常用参数
 
经过测试: 非系统性文件需要有完整的路径
系统程序可以用关键词打开，或完整路径都可以 '但是要注意，要带激活的参数，否则可能在后台最小化。
因为QQ等不是windows系统文件，所以需要写完整路径到.exe，不能简写程序名 '后面这种写法是错误的，shell “QQ.EXE”,vbNormalFocus
 
Sub test11()
 '经过测试，系统程序可以用关键词打开，或完整路径都可以
 '但是要注意，要带激活的参数，否则可能在后台最小化。
 
  Shell "notepad", 1
 'Shell "notepad.exe", vbNormalFocus
 'Shell "C:\Windows\winsxs\wow64_microsoft-windows-notepad_31bf3856ad364e35_6.1.7600.16385_none_d5642974be118415\notepad.exe", vbNormalFocus
 
 'Shell "calc"
 'Shell "calc.exe"
 'Shell "C:\Windows\winsxs\x86_microsoft-windows-calc_31bf3856ad364e35_6.1.7601.17514_none_abc56b2678fe1108\calc.exe"

 'Shell "control"
 'Shell "control.exe"
 
  Shell "C:\Program Files (x86)\Tencent\QQ\Bin\QQ", 1
  '因为QQ等不是windows系统文件，所以需要写完整路径，不能简写程序名
  '后面这种写法是错误的，shell "QQ.EXE", vbNormalFocus
  

End Sub
 
shell打开的程序，可以作为函数返回值，被调用
 Dim RetVal
 RetVal = Shell(“C:\WINDOWS\CALC.EXE”, 1) ’
 
2 激活和其他其他程序 (中文操作系统，注意程序名) AppActivate()
 
VBA.AppActivate title [, wait ]
 
https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/appactivate-statement
 AppActivate 语句语法具有下列命名参数：
 title 必需。
 
titile 是必须的，是文本 “” ，而且支持模糊查询。
比如 “WORD” 或 “Microsoft word”
也支持用目标程序的线程ID，Shell函数有一个Double型的返回值。这个返回值里存的是目标程序的线程ID，可以 配合Appactive。
 
时间 可选。 毫秒？
 特点：
 
这个是激活已经启动的程序，而不会自动开启程序
这里的title需要以 字符串的形式 “” 出现，并且支持模糊查找，多个只会任意激活1个。
被激活的程序，之前是最大化还是最小化，还会保持原状，不会直接放大,会选中在任务栏里的小APP图标
而在桌面的程序，会被激活后选中在前台。
 
实测发现的问题
 
实测发现，AppActivate “calc” AppActivate “calc.exe” 都不行
但是AppActivate “计算器” 可行
估计原因是，因为电脑是中文WIN7，所以系统的执行程序还是 calc.exe,系统的进程名也是calc.exe，但是电脑里的程序命名为中文的 计算器。
 
Sub test12()
  AppActivate "计算器"   'AppActivate "calc"  AppActivate "calc.exe" 都不行
  AppActivate "记事本"   'AppActivate "notepad" AppActivate "notepad.exe"  都不行
  AppActivate "QQ"       '或"QQ"，可模糊，不想模糊就提供精确名字, 不能是QQ.EXE
  
  '这也不行 C:\Windows\winsxs\wow64_microsoft-windows-notepad_31bf3856ad364e35_6.1.7600.16385_none_d5642974be118415\notepad.exe
  '这也不行 AppActivate "C:\Windows\winsxs\wow64_microsoft-windows-notepad_31bf3856ad364e35_6.1.7600.16385_none_d5642974be118415\notepad.exe"

End Sub

 
3 发送按键操作其他程序 sendkeys()
 
sendkeys string [,wait]
 实测发现的问题
 
 
首先需要打开程序，shell “calc.exe”
 
 
打开程序后不能马上调用AppActivate “计算器”，否则会报错
 
 
我现在是加了个延迟 Application.Wait (Now + TimeValue(“00:00:02”))
 
 
或者先用其他过程打开 "calc.exe"也行
 
 
一个是AppActivate “计算器”, 需要用中文，而不能用 AppActivate “calc”
 
 
参数[,wait] 可以是true，也可以是毫秒数？
 
 
如果 AppActivate “计算器”，5000 并不是只等5秒。。。好像需要点击VBE才激活？
 
 
而写 AppActivate “计算器” 就会马上执行
 
 
'这个是MSDN官方例子，实际不好用，估计是因为作者是用的英文windows，所以可以
Dim ReturnValue, I 
ReturnValue = Shell("CALC.EXE", 1)    ' Run Calculator. 
AppActivate ReturnValue     ' Activate the Calculator. 
For I = 1 To 100    ' Set up counting loop. 
    SendKeys I & "{+}", True    ' Send keystrokes to Calculator 
Next I    ' to add each value of I. 
SendKeys "=", True    ' Get grand total. 
SendKeys "%{F4}", True    ' Send ALT+F4 to close Calculator.
 

Sub test1301()

Shell "calc.exe", 1
Application.Wait (Now + TimeValue("00:00:02"))

Dim i
AppActivate "计算器"

SendKeys "C", True

For i = 1 To 10
    SendKeys i & "{+}", True
    Debug.Print i
Next

End Sub
 
或者这样也可以
 
Sub test1300()

   Shell "calc.exe", 1
   Application.Wait Now() + VBA.TimeValue("00:00:03")
   Call test1301
End Sub

Sub test1301()
Dim i
AppActivate "计算器"

SendKeys "C", True

For i = 1 To 10
    SendKeys i & "{+}", True
    Debug.Print i
Next

End Sub
 
实测按键
 计算器的按键 C 不是 “c” ，但是试了 "clear"也不行，没做到计算前清除计算器的内容。
 SendKeys “clear”, True
 SendKeys “{clear}”, True
 
sendkeys的按键
 https://docs.microsoft.com/zh-cn/office/vba/api/excel.application.sendkeys
 
Keys 参数可指定任何单个键或与 Alt、Ctrl 或 Shift 的组合键（或者这些键的组合）。 每个键均可用一个或多个字符表示，例如，“a” 表示字符 a，"{ENTER}" 表示 Enter 键。
 
单键输入
 字母键等，一般用 “a” “k” “5”
 功能键，一般用 “{enter}” “{clear}” “{esc}” “{F1}”
 
组合输入：般是指顺次输入
 Application.SendKeys (“1234{Enter}”) '表示顺次输入 1 2 3 4 enter
 
组合键：表示同时按下
 shift+c, 使用 “+c” '表示同时输入 按下 shift+c+e
 ctrl+c, 使用 “^c”
 alt+c, 使用 “%c”
 
复合组合键：优先识别组合键，包括()内的，然后顺次执行
 shift+C+E, 使用 “+(ce)” '表示同时输入 按下 shift+c+e
 shift+C+E, 使用 “+ce” '表示同时输入 按下 shift+c，然后执行e
 
重复按键：使用 {key number} 的形式，中间加空格，{D 9} 表示重复按9次D
 {D 9} 表示重复按9次D
 {down 9} 表示重复按9次down箭头
 
Sub 退出()
  Application.Quit
  Application.SendKeys "Y"
End Sub

1、修改并获取当前窗口标题
 
Private Sub test()
 
   Windows(1).Caption = "My Excel"
 
   MsgBox ("当前窗口标题：" & ActiveWindow.Caption)
 
End Sub
 
注：活动窗口总是Windows(1)，当前（活动）窗口也可以用ActiveWindow表示。
 
2、显示单元格中的公式
 
Private Sub test()
 
   ActiveWindow.DisplayFormulas = True
 
End Sub
 
注：该属性适用于当前指定的工作表或宏工作表。
 
3、隐藏网格线及工作标签
 
Private Sub test()
 
    Worksheets("sheet1").Activate   '设置活动窗口
 
    ActiveWindow.DisplayGridlines = False   '隐藏网格线
 
    ActiveWindow.DisplayWorkbookTabs = False    '隐藏工作标签
 
End Sub
 
注：网格线的设置仅适用于当前或指定的工作表和宏工作表。
 
4、调整窗口显示比例
 
Private Sub test()
 
   Windows(1).Zoom = 50 '设置为50%
 
End Sub
 
5、显示窗口标尺
 
Private Sub test()
 
   Windows(1).DisplayRuler = False
 
End Sub
 
6、隐藏窗口中的零值
 
Private Sub test()
 
   Windows(1).DisplayZeros = False
 
End Sub
 
7、选择合适的视图方式
 
Private Sub test()
 
   Windows(1).View = xlPageLayoutView
 
End Sub
 
Window.View属性取值如下
 
 
值
 
 
说明
 
 
xlNormal
 
 
普通视图
 
 
xlPageBreakPreview
 
 
分页预览视图
 
 
xlPageLayoutVIew
 
 
页面布局视图
 
8、保存并关闭工作薄窗口
 
Private Sub test()
 
   Windows(1).Close (True)      ‘设置为false则不保存更改
 
End Sub

一 VBE编辑器
 
1.0VBE也有好多菜单
 
值得去仔细研究一遍：开始我是这么想的，看了看，实际上，初期重视下 “视图” 这个菜单下的内容就行了
其他的好像都是ms的通用的菜单模板的感觉。
 
 
 
1.2 excel里 VBE相关的各种层级
 
VBA的对象层级和引用
 
语法： 工程.模块.过程（或函数）.属性/方法
如果是工程，还需要先设置引用关系？
VBE     （编辑器-对应EXCEL程序 ） ：包含多个工程
类模块，可以跨工程用？
工程名  （一个完整的项目：1个EXCEL表）： 包含多个sheet，1个workbook, 多个模块，多个窗体
模块      （workbook下的模块，独立于worksheet）：包含很多过程，函数
过程 / 函数
 
 
 
 
二 视图可以打开的各种窗口
 
视图 菜单下 可以打开各种窗口，工具箱等
 
 
 
 
 
2.1  VBE的6个视窗---都可以从视图菜单打开
 
VBE的窗口界面大约有六个窗口，他们调出和关闭都可以通过视图找到
 
 
 
 
 
 
 
 
 
工程资源管理器：
 
显示当前VBA工程中包含的所有部件（对象工作簿，工作表，窗体，模块，类模块等）及所有引用的工程；
工程里的对象：工作簿，工作表*N，工作簿*1，模块*N，类模块*？
工程里的各种材料
一个EXCEL工作簿文件就是一个工程的主要部分
实际上一个工程大于一个工作簿
 
 
 
代码窗口：
 
显示和编辑VBA程序代码，这个是最常用的代码窗口；
可以认为是施工的图纸
 
 
 
属性窗口：
 
当前激活的工程部件的主要属性；
详细属性，说明书
比如，worksheet的visible属性，这样设置为2--xlsheetVeryHidden的无法被取消隐藏
 
 
 
 
 
监视窗口：
 
显示被监视的指定表达式的值。
可以右键选择 要监视的变量
 
 
 
立即窗口：
 
执行单行的语句或者显示debug.print所打印的表达式的值。
测试，试验，反馈
 
 
 
本地窗口：
 
显示当前运行过程中所包含变量的值
但代码执行结束会自动清除显示
所以本地窗口像查看的话，需要加断点
 
 
2.2 其他几个窗口
 
 
对象窗口
 
还有些 对象浏览器，可以查看所有对象，还有用户窗体菜单等等?!
 
 
 
 
（用户窗体的）工具箱
 
打开用户窗体的工具栏
 
 
2.2 VBE的模块可以导入和导出为VBS脚本文件
 
 
VBS文件模块导入导出
 
 
 
2.3 VBE窗口的对象选择框和过程事件选择框
 
 
左边是 ：对象选择框
右边是： 过程事件选择框
过程分隔线---不同的过程/函数之间会进行分割
边界标识
 
 
 
 
 
三 VBE里的工程，EXCEL文件等基本概念
 
3.1 VBE相关的各种层级
 
VBE            ： VB编辑器（包含多个工程）
Application  ：EXCEL，我认为VBE还可以编辑其他软件，如word?
工程名          :一个工程就是一个EXCEL表
工程内容：对象，模块 ，用户窗体等  
 
 
3.2 VBA的对象层级和引用
 
语法也是： 工程.模块.过程（或函数）
如果是工程，还需要先设置引用关系？
 excel的跨表 和 跨 sheet引用格式，
跨表引用       [] 
跨sheet引用   !
=[121.xlsx]Sheet1!$A$1
 
 
四 工程窗口
 
显示工程内的各种资源：工作簿，工作表，模块，类模块，用户窗体等
工作簿
工作表
模块：   模块可以在同一个表内的，多个sheet之间共用
类模块：类模块可以在多个 EXCEL表内共用的
用户窗体
 
 
 
4.1  工程窗口内容
 
但是对象只能到sheet层？ Range  cells呢？
模块和类模型，就是模板？类？
用户窗体
 
 
 
4.1 模块是通用的脚本，对象脚本是特殊的
 
模块，我认为其实也就相当于一个脚本文件
模块，就是存好的代码脚本，文件等，并且是通用的，可以重复调用
而对象默认附带的脚本，则是和对象绑定的
 
 
五 属性窗口
 
显示对象的详细属性，并且支持UI可视化修改
如果是文件夹层次，一般没有属性
如果是文件层次，一般会有属性
 
有不少很好玩的属性，比如针对 sheet的
 
visible
-1 显示
0 隐藏
2 隐藏且不能取消
 
 
 
六 代码窗口
 
6.1 代码窗口构成
 
对象列表框：没有选中显示通用，有对象的脚本，可以选不同的对象
脚本列表框：这个对象可选的事件！！
切换 过程视图 完整全模块视图
 
 
 
边界标识条—用于调试的，加断点
 
 
 
 
左边是 ：对象选择框
右边是： 过程事件选择框
 
 
6.2 为什么除了模块，还需要对象脚本？
 
可以在每个对象下，直接加脚本
每个对象下，默认关联着一个脚本，这些脚本是专用的，不是模块化通用的
VBE编辑器，每个对象都有一个自己的独特脚本，还可以加无限的模块通用脚本。
VBE的窗体对象，还支持绑定在窗体层次的，更细的对象绑定脚本，比如一个小控件，小button

  
 
7 用户窗体—加内容
 
工具箱---也可以点 视图调出来
 
 
 
 
 
 
 
 
 
8  怎么把代码保存在 personal.xlsb 里？
 
参考文档 http://www.360doc.com/content/16/0901/23/27686207_587650572.shtml
 
8.1 怎么弄出来？
 
录制宏的菜单
保存时可以选择 个人宏工作簿
然后，实际随便录个宏
然后就能再工程窗口看到这个 personal.xls了
 
 
 
 
 
 
8.2 作用？?
 
这个文件，是在excel内的，跨越多个工程。
让所有电脑里都可以用这些 vba 已经写好的脚本？
VBA可以放在通用地方，所有EXCEL都可以用
 
 
 
 
九 其他
 
变量声明：模块级的变量声明等
 
删除前导出模块为单独的bas文件
 
宏的使用相对引用问题，录制时，可以使得是相对的，这样更有适用性？
 
 
 
 
这里面还有不少有用的东西