精华内容
下载资源
问答
  • VBA示例之 求人不如自已动手 取得当前激活窗口句柄及标题,供初学者参考,大牛勿进~~~~~~~
  • vba模拟键盘鼠标操作和窗口激活

    千次阅读 2020-05-01 17:51:09
    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 "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的返回值
    展开全文
  • 了解工程窗口工程窗口显示当前打开的工程和它的组成部分清单。VBA工程包括下列组成:1、工作表2、图表3、当前工作簿——工程储存的工作簿4、模块5、类模块——特殊的模块让你可以创建自己的对象6、窗体7、引用到其它...

    了解工程窗口

    工程窗口显示当前打开的工程和它的组成部分清单。VBA工程包括下列组成:

    1、工作表

    2、图表

    3、当前工作簿——工程储存的工作簿

    4、模块

    5、类模块——特殊的模块让你可以创建自己的对象

    6、窗体

    7、引用到其它工程

    通过工程浏览器,你可以管理你的工程,容易地在当前打开的工程中切换。

    你可以通过三种途径激活工程浏览器:

    1、通过视图菜单,选择工程浏览器

    2、通过键盘,按下Ctrl+R

    3、通过工具栏,点击工程浏览器按钮,如下图所示

    01698a853fcf6bbb0808c6b501c24a86.png

    标准工具栏上的按钮提供了快速的方式进入许多VB特征

    工程浏览器有三个按钮。左边第一个按钮(查看代码)显示当前选中的模块(或者窗体)里的代码窗口。中间那个按钮(查看对象)显示Excel界面当前工作表,或者窗体文件夹里面的窗体。右边的按钮(切换文件夹)隐藏或者显示工程浏览器里的文件夹。

    了解属性窗口

    属性窗口让你查看你工程里的对象和设置它们的属性。当前选中的对象的名称就显示在属性窗口的

    标题栏下面的对象栏。对象的属性可以按照字母顺序查看,也可以按类别查看,如下图所示:

    fc4b80d740afc75b16771f76aaeff581.png

    属性窗口显示的是当前被选中的对象的属性设置

    1、字母顺序——按字母顺序地列出被选择的对象的所有属性。通过选择属性名,并且输入或者选择新的设置,来更改属性设置。

    2、类别——按类别列出被选中的对象的所有属性。你可以将清单折叠起来,查看类别,你也可以展开类别查看属性。类别名称左边的加号(+)说明这个类别可以展开。减号(-)说明这个类别已经展开。

    有三种方式可以进入属性窗口:

    1、视图菜单,选择属性窗口

    2、从键盘,按下F4

    3、从工具栏,点击属性窗口按钮

    了解代码窗口

    代码窗口是用来VB编程的,也是用来查看,修改录制的宏代码和现存的VBA工程的。每个模块会以一个专门的窗口打开。有好几个方法可以激活代码窗口:

    1、从工程浏览器窗口,选择你要的用户窗体或者模块,然后点击查看代码按钮

    2、从菜单,选择“视图”-“代码”

    3、从键盘,按下F7

    在代码窗口的上面,有两个下拉清单列表,如下图所示,方便你快速地移动到任意代码处。

    b65d1480647bf458ffa9dd8838131da7.png

    代码窗口有几个部分,使得定位过程和查看代码变得很轻松

    在代码窗口左上角的对象列表框,你可以选择你想查看代码的对象。你可以在代码窗口右上角的列表框里选择一个过程或者事件过程查看代码。当你打开这个列表框,这个模块里的所有过程名按字母顺序排列在那儿。如果你选择了一个过程,光标就会跳到那个过程的第一行处。将列分工具条(如上图所示)拖曳下列,你就可以将代码窗口分为两半了,如下图所示:

    c8434d037ef4626e1633362acd9377a8.png

    你可以将代码窗口列分为两个窗口来查看长过程

    你可以查看不同的代码部分了。这样设置代码窗口,目的是方便在同一个模块内的过程里复制或剪切,并且粘贴代码片断。只要简单地将列分工具条拖曳至代码窗口上面就行。代码窗口的底部有两个图标。

    点击“过程查看”图标,代码窗口里一次只显示一个过程,可以通过过程/事件列表框选择另外的过程。点击“全部模块查看”则可以显示这个模块里的所有过程。使用竖向滚动条可以在代码中滚动。页边指示工具条是在修改代码和调试是提供一些帮助指示的。

    VB编辑器里的其它窗口

    除了代码窗口,VB环境下还有很多其它窗口频繁地被使用:窗体窗口用来创建自定义对话框和用户窗体。

    42be8fc8354066439e6d6c769a87efc9.png

    在选项里,你可以选择显示哪些窗口

    上图中显示了一些可以显示了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代码工具 运行本程序后, 1.切换到VBA编程环境窗口时自动关闭输入法. 2.单击代码, 激活代码窗口后,按F10格式化VBA代码.
  • Excel_VBA教程

    2014-09-22 11:36:34
    一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2 第九节 循环语句 3 第十节 其他类语句和...
  • 目录 VBE各窗口简介 ... 属性窗口:当前激活的工程部件的主要属性。 监视窗口:显示被监视的指定表达式的值。 立即窗口:执行单行的语句或显示Debug. Pring所打印的表达式的值。 本地窗口...

    目录

    VBE各窗口简介

    VBE各窗口位置的调整

    VBE各窗口的显示或隐藏


    VBE各窗口简介

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

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

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

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

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

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

    VBE各窗口位置的调整

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

    VBE各窗口的显示或隐藏

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



     

     

    展开全文
  • VBA常用技巧

    2014-12-21 16:39:28
    190-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入门知识 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:00
    1、激活工作簿用 Activate 方法激活工作簿后,该工作簿将放在活动窗口中。下述过程激活已打开的工作簿“MyBook.xls”。Sub MakeActive()Workbooks("MyBook.xls").ActivateEnd Sub2、创建新工作簿如果要用 Visual ...
  • shShell对象实例(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:19
    190-5 少用激活或选择语句 468 技巧191 取得文件的基本名称 469 技巧192 防止用户中断代码运行 470 技巧193 加班费计算表 472 技巧194 制作发放条 498 技巧195 费用统计表 501 技巧196 职工花名册 516 技巧197 收据...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    Excel 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 第...
  • Application对象常用属性【ActiveCell属性】ActiveCell属性返回一个Range对象,表示当前窗口或指定窗口中的单元格。如果窗口没显示工作表,则此属性无效。【代码区域】 Sub 激活单元格() Worksheets("sheet1")....
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    一、VBA语言基础...................................................................................................................1 第一节标识符...........................................................
  • '2-1激活窗口(Activate 方法) Sub SelectWindow() Dim iWin As Long, i As Long, bWin '定义i为long MsgBox "依次切换已打开的窗口" iWin = Windows.Count '工作表的数量 MsgBox "您已打开的窗口数量为:" &...
  • 《Excel VBA程序设计》 CHM电子书目录 一、VBA语言基础 1 第一节 标识符 1 第二节 运算符 1 第三节 数据类型 1 第四节 变量与常量 1 第五节 数组 2 第六节 注释和赋值语句 2 第七节 书写规范 2 第八节 判断语句 2...
  • 4. 按下Alt+F11激活VB编辑器窗口,并且选择工程浏览器窗口的Personal (Personal.xls) 5. 选择“插入”-“模块”,增加一个新的模块 6.在属性窗口,给该模块重命名:Manipulations 7.选择“视图”-“对象浏览器”,...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01015获取在Excel主窗口中一个窗口所能占有的最大高度和宽度 01016获取当前打印机名称 01017获取MicrosoftExcel剩余内存 01018获取MicrosoftExcel的总内存 01019获取计算机被Excel占用的内存 01020改变Excel窗口大小...

空空如也

空空如也

1 2 3 4
收藏数 71
精华内容 28
热门标签
关键字:

vba激活窗口