如果只要 获取一个确定名字的窗口标题 ，在VBA中使用，比如切换窗口。打开任务管理器，看看就对了。懒人做法。
 
如下： 
 

 
 
以下仅供参考，为了找放映窗口标题，实现在PPT放映窗口与其他窗口间切换，百度N久，基本是垃圾信息，一怒之下自己贴了一个，希望对后来人有用。
 
注：没做优化，有没用的代码。
 

 
 
Sub Main() '启动定时切换
     lngTimerID = SetTimer(0, 0, 1000, AddressOf Update)
     IngTimer1 = SetTimer(0, 1, 10000, AddressOf SwitchWindow)
 End Sub
 
 
 Sub stopA()  '关闭定时切换，需要手工按ALT+F8 运行，不会自己运行的
     lngTimerID = KillTimer(0, lngTimerID)
     lngTimerID = KillTimer(1, lngTimerID)
 End Sub
 
 
Sub SwitchWindow()
     Dim app1, app2 As Object
     Dim str1, str2 As String
     Dim sBuffer As String
     Dim lHwnd_1 As Long
     Dim caption1 As String
     Dim cnt As Integer
     
     cnt = 0
     str1 = "无标题 - 记事本" '此处放普通窗口标题名
     str2 = "PowerPoint 幻灯片放映 - [时间更新及窗口切换V100]" '此处放放映窗口标题名
     On Error GoTo EE
     If (bSwitch) Then
         bSwitch = False
         AppActivate str1
     Else
         bSwitch = True
         AppActivate str2
     End If
 EE:    cnt = 1
     
 End Sub
 

 


 菜单栏：位于标题栏的下方，包括「文件」、「编辑」等菜单项，每个菜单项都包含若干个菜单命令，分别选择菜单项中的相关命令就可以执行相应的操作。



 

 代码窗口：提供有「标准」、「编辑」、「调试」和「用户窗体」4种工具栏，默认情况下，显示的是「标准」工具栏，用户可以单击菜单栏或工具


 



 栏的空白处，在弹出的快捷菜单中选择「编辑」、「调试」或「用户窗体」选项，即可打开相应的工具栏。
 

 


 



 工程窗口：以树形图示的形式显示了 Excel 2010 工作簿和工作表等对象，其中也有插入的窗体和编制的模块。可以把每一个打开的 Excel 2010 工作簿都作为一个工程，且工程的默认名称为「VBAProject(工作簿名称)」。
 

 


 



 属性窗口：类似于产品说明书，从中列出了所选 Excel 2010 对象的属性及其当前设置。当选定多个控件时，属性窗口则包含全部已选定控件的属性设置，可以分别切换到「按字母序」或「按分类序」选项卡查看控件的属性，也可以在属性窗口中编辑对象的属性。
 



 



 代码窗口：编辑和存放VBA代码，相当于文字编辑器。
 

 


 



 立即窗口、本地窗口：主要是为调试和运行应用程序提供的，用户可以在这些窗口中看到程序运行中的错误点或某些特定的数据值。例如，在立即窗口中可以对测试的代码马上给出结果，以供程序设计者参考。 

参考：https://jingyan.baidu.com/article/5d368d1ef559d43f61c05772.html








参考：https://jingyan.baidu.com/article/ff42efa91f40bac19e2202f6.html


代码：
Sub 按钮5_Click()
UserForm1.Show
End Sub

 
 
 
  
Sub ModelChange()

    If Me.Form.CurrentView = 2 Then
        DoCmd.RunCommand acCmdSubformFormView  ''''就这句
        Me.Form.AllowEdits = True
        '        ModelLock   '设置窗体是否可以编写
        
    ElseIf Me.Form.CurrentView = 1 Then
        DoCmd.RunCommand acCmdSubformDatasheet   ''''就这句acCmdSubformDatasheet
        
        Me.Form.AllowEdits = False
        Me.Form.AllowAdditions = False
        Me.Form.AllowDeletions = False
    End If
        Me.Form.Refresh
''0
''"设计"视图
''1
''"窗体"视图
''2
''"数据表"视图
End Sub
 
 
 
 
 
 
 
我是用于在表单和列表之间切换。
 
 
 
 
 
转载于:https://www.cnblogs.com/brucebear/p/6638071.html