Application.CommandBars("File").Controls("Open").Execute "", "", ,
时间: 2024-01-15 22:19:56 浏览: 30
`Application.CommandBars("File").Controls("Open").Execute` 是一个用于执行 Microsoft Access VBA(Visual Basic for Applications)代码的方法。这个方法允许你在 Access 数据库中运行宏或操作,例如打开一个表单、查询或报表。
参数解释如下:
1. `""`:表示不指定宏或操作的名称。如果提供了名称,那么将执行该名称对应的宏或操作。
2. `""`:表示不指定任何参数。如果宏或操作需要参数,可以在括号内提供相应的值。
3. `,`:表示不使用任何默认的应用程序对象。如果你需要在特定的应用程序上下文中执行宏或操作,可以使用这个参数。
示例用法:
```vba
Application.CommandBars("File").Controls("Open").Execute "", "", , acViewNormal
```
这个示例代码将在 Access 数据库中执行名为 "Open" 的宏或操作,并使用 "acViewNormal" 参数以正常模式打开它。
相关问题
Application.CommandBars.Add() 举例
下面是一个简单的例子,演示如何使用 `Application.CommandBars.Add()` 函数在 Excel 中添加一个自定义命令栏:
```
Sub AddCustomCommandBar()
Dim cb As CommandBar
Set cb = Application.CommandBars.Add(Name:="My CommandBar", _
Position:=msoBarTop, MenuBar:=False, Temporary:=True)
' 添加一个按钮到命令栏上
With cb.Controls.Add(Type:=msoControlButton)
.Caption = "My Button"
.OnAction = "MyMacro"
End With
End Sub
Sub MyMacro()
' 这里是你的宏代码
MsgBox "Hello World"
End Sub
```
该宏会在 Excel 的顶部添加一个名为 "My CommandBar" 的自定义命令栏,并向其中添加一个名为 "My Button" 的按钮。当用户点击该按钮时,会执行名为 "MyMacro" 的宏,弹出一个消息框显示 "Hello World"。需要注意的是,这里将 `Temporary` 参数设置为 `True`,这意味着该命令栏只会在当前 Excel 会话中存在,关闭 Excel 后会被自动删除。如果想要让命令栏一直存在,可以将 `Temporary` 参数设置为 `False` 或省略该参数。
commandbars.controls中的combobox怎么设置默认值
在 CommandBars.Controls 中的 ComboBox 控件中设置默认值,可以使用以下代码:
```
CommandBars.FindControl(ID:=controlID, Recursive:=True).ComboBox.Text = "默认值"
```
其中,controlID 是你要设置默认值的 ComboBox 控件的 ID,"默认值" 则是你想要设置的默认值。
需要注意的是,这行代码应该放在 ComboBox 控件的初始化代码中,以确保在程序运行时 ComboBox 控件能够正确显示默认值。另外,由于 CommandBars.Controls 中的 ComboBox 控件并没有 Value 属性,因此需要使用 ComboBox.Text 属性来设置默认值。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)