-
VBA示例之 求人不如自已动手 取得当前激活窗口句柄及标题
2019-10-26 16:49:58VBA示例之 求人不如自已动手 取得当前激活窗口句柄及标题,供初学者参考,大牛勿进~~~~~~~ -
vba模拟键盘鼠标操作和窗口激活
2020-05-01 17:51:09Public 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 "u...键盘鼠标操作
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的返回值
-
vb 修改webbrowser中head代码_什么是VBA工程浏览窗口、属性窗口、代码窗口
2020-12-14 16:27:51了解工程窗口工程窗口显示当前打开的工程和它的组成部分清单。VBA工程包括下列组成:1、工作表2、图表3、当前工作簿——工程储存的工作簿4、模块5、类模块——特殊的模块让你可以创建自己的对象6、窗体7、引用到其它...了解工程窗口
工程窗口显示当前打开的工程和它的组成部分清单。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编辑器里的窗口清单。你将在接下来的章节中学习如何使用这些窗口。
-
Excel VBA语句
2021-04-18 16:52:39激活一个应用程序窗口 Beep 通过计算机扬声器发出一个音调 Call 将控制权转移到另一个过程 ChDir 改变当前目录 ChDrive 改变当前驱动器 Close 关闭一个文本文件 Const 声明一个...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 #向顺序文本文件中写入数据 -
关闭输入法及格式化VBA代码工具
2013-11-18 15:29:05关闭输入法及格式化VBA代码工具 运行本程序后, 1.切换到VBA编程环境窗口时自动关闭输入法. 2.单击代码, 激活代码窗口后,按F10格式化VBA代码. -
Excel_VBA教程
2014-09-22 11:36:34一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 循环语句 3 第十节 其他类语句和... -
Excel 2010 VBA 入门 009 VBE编辑器
2021-03-22 14:28:21目录 VBE各窗口简介 ... 属性窗口:当前激活的工程部件的主要属性。 监视窗口:显示被监视的指定表达式的值。 立即窗口:执行单行的语句或显示Debug. Pring所打印的表达式的值。 本地窗口...目录
VBE各窗口简介
工程资源管理器:显示当前VBA工程中包含的所有部件(工作簿、工作表、窗体、模块、类模块等)及所有引用的工程。
代码窗口:显示和编辑VBA程序代码。各个VBA工程部件均有独立的代码窗口。
属性窗口:当前激活的工程部件的主要属性。
监视窗口:显示被监视的指定表达式的值。
立即窗口:执行单行的语句或显示Debug. Pring所打印的表达式的值。
本地窗口:显示当前运行的过程中所包含的变量的值。
VBE各窗口位置的调整
开发者可以根据自己的需要随意移动每个窗口,只需用鼠标左键拖曳窗口的标题栏即可。也可以通过双击标题栏快速切换窗口悬浮或者停靠的状态,如图所示。
VBE各窗口的显示或隐藏
可以通过单击“视图”菜单下各个窗口的按钮显示窗口,或者单击各个窗口标题栏右上角的“×”关闭窗口。
-
VBA常用技巧
2014-12-21 16:39:28190-5 少用激活或选择语句 12 技巧191 取得文件的基本名称 12 技巧192 防止用户中断代码运行 12 技巧193 加班费计算表 12 技巧194 制作发放条 12 技巧195 费用统计表 12 技巧196 职工花名册 12 技巧197 收据系统 12 ... -
ExcelVBA之 sheet隐藏
2020-05-28 23:57:02此时可以打开 VBA 编辑器,打开"工程资源管理器",双击该工作表,现在出现的是设置该表的属性的编辑窗口,单击窗口左上的下拉列表框,选择 worksheet ,这时再从该窗口右上方的列表框中选择Active("激活"),这时自动... -
VBA 帮助文档(摘自Office2000 VBA帮助)
2010-08-24 21:59:41一、VBA入门知识 1、激活工作簿 2、创建新工作簿 3、打开工作簿 4、用编号引用工作表 5、用名称引用工作表 6、将文档保存为 Web 页 7、用 A1 样式的记号引用单元格和单元格区域 ...22、用户窗体窗口 -
excel2007中VBA的工作原理
2011-10-28 23:49:26到目前为止,VBA是Excel中最复杂的功能,你很容易被它难倒。在这里先简要介绍一下VBA的工作原理: ...要查看或编辑VBA 模块,必须激活VB编辑器窗口(按Alt+F11键可以在Excel和VB编辑器窗口间切换) 。 -
Excel VBA 基础教程
2019-01-01 18:51:06目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符.................................................... -
vba 教程1
2009-04-14 16:41:001、激活工作簿用 Activate 方法激活工作簿后,该工作簿将放在活动窗口中。下述过程激活已打开的工作簿“MyBook.xls”。Sub MakeActive()Workbooks("MyBook.xls").ActivateEnd Sub2、创建新工作簿如果要用 Visual ... -
WshShell对象实例(VBA)
2017-09-28 07:21:37shShell对象实例(VBA)WshSell作为WSH对象一个组成部分,主要可以实现如下功能:1....操纵环境变量(如WINDIR、PATH或PROMPT)先来看一下WshShell都有哪些方法和属性AppActivate方法激活一应用程序窗口CreateShor... -
ExcelVBA程序设计.doc
2011-04-05 21:32:51一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 循环语句 3 第十节 其他类语句和... -
VBA编程技巧大全
2013-08-05 09:03:19190-5 少用激活或选择语句 468 技巧191 取得文件的基本名称 469 技巧192 防止用户中断代码运行 470 技巧193 加班费计算表 472 技巧194 制作发放条 498 技巧195 费用统计表 501 技巧196 职工花名册 516 技巧197 收据... -
Excel VBA程序设计.doc
2009-07-06 22:16:12Excel VBA程序设计.doc 目 录 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 ... -
Excel VBA技巧实例手册
2016-07-28 22:29:39第1篇 ExcelVBA基础 第1章 了解Excel宏 1.1 创建宏 技巧001显示“开发工具”选项卡 技巧002录制第一个宏 技巧003在VBE中创建宏 1.2 管理宏 技巧004运行宏 技巧005编辑宏 技巧006保存宏 技巧007设置宏的安全性 第2... -
Excel_VBA程序设计.pdf
2009-08-31 23:05:20非常详尽的Excel_VBA程序设计,好不容易才整理搜索到的。 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第... -
【VBA编程】11.Application对象
2019-10-01 15:42:55Application对象常用属性【ActiveCell属性】ActiveCell属性返回一个Range对象,表示当前窗口或指定窗口中的单元格。如果窗口没显示工作表,则此属性无效。【代码区域】 Sub 激活单元格() Worksheets("sheet1").... -
EXCEL编程VBA高级教程
2015-04-16 11:40:55一、VBA语言基础...................................................................................................................1 第一节标识符........................................................... -
Excel 之 VBA 入门学习代码详解笔记(2)
2021-01-03 11:05:17'2-1激活窗口(Activate 方法) Sub SelectWindow() Dim iWin As Long, i As Long, bWin '定义i为long MsgBox "依次切换已打开的窗口" iWin = Windows.Count '工作表的数量 MsgBox "您已打开的窗口数量为:" &... -
Excel VBA程序设计 CHM格式 带全文检索
2008-11-26 23:40:05《Excel VBA程序设计》 CHM电子书目录 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2... -
Excel——VBA之移动文本框圆形操作
2020-06-03 10:30:044. 按下Alt+F11激活VB编辑器窗口,并且选择工程浏览器窗口的Personal (Personal.xls) 5. 选择“插入”-“模块”,增加一个新的模块 6.在属性窗口,给该模块重命名:Manipulations 7.选择“视图”-“对象浏览器”,... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2401015获取在Excel主窗口中一个窗口所能占有的最大高度和宽度 01016获取当前打印机名称 01017获取MicrosoftExcel剩余内存 01018获取MicrosoftExcel的总内存 01019获取计算机被Excel占用的内存 01020改变Excel窗口大小...