Question

VB2010如何控制Excel VBA的按钮？

我打算使用VB2010控制Excel里面的一个按钮。当VB界面上的一个按钮被点击时，相当于对目标Excel文件里的按钮执行了点击操作，然后再执行里面相应的代码？请问该如何实现？有代码可参考吗？我在网上参考了一段使用VB6.0写的代码，无法实现该功能。抱歉哈，没什么分了，还请不吝赐教。

Answer 1

很简单，给你个示例，你按照操作：
1，新建一个Excel文档，另存为AA.xlsm
2，在AA.XLSM文件中添加一个按钮CommandButton1
3，在设计模式下双击Commandbutton1按钮，那么进入VBe窗口，并且得到Private Sub COmmandbutton1_Click()事件
4，将Private修改为Public
5，给单击事件添加代码：Msgbox "我被点击了呢！！！！！！"
代码如下：
Public Sub CommandButton1_Click()
MsgBox "我呗点击了！"
End Sub
不要关闭工作簿，然后接下来继续操作
6，打开VB，添加一个按钮
7，给按钮添加如下代码：
Private Sub Command1_Click()
Dim xxapp
Set xxapp = GetObject(, "Excel.application") '
Set wb = xxapp.workbooks("AA.xlsm")

Call wb.sheets(1).CommandButton1_Click '调用Commandbutton1的单击事件
End Sub

那么弹出结果："我被点击了！！！！！！"

追问

谢谢你的帮助。可是我使用了你的代码之后，VB界面弹出了以下的错误提示：“未找到类型"Worksheet"的公共成员“Text_Click””。我也已经将VBA事件的代码属性改为“Public”了。为什么会这样子呢？我是在VB2010下运行的。

追答

检查你的控件名称，你命名为了Text?
EXCEL中的代码贴出来看看！

追问

控件名称我检查了，没有错的

追答

上附件，或者贴代码！
肯定是你EXCEL中的代码有问题！

追问

这是我的VBA程序

追答

那你的这个按钮是在工作表里面的，还是窗体里面的？按钮所在工作表是否为第一顺序工作表？

你稍微改下代码：

call wb.sheets("Sheet1").Text_Click

或者下载我的附件测试一下！

追问

太神奇了，你的VBA程序我竟然可以控制了。我的VB代码跟之前的一样，只是修改了控件名：

非常感谢你。你帮了我一个大忙。谢谢！谢谢！

追答

工作表有三种表示方法，Sheets(1)表示排列在工作簿的第一位置的worksheet，Sheets("Sheet1")表示工作表名称为"Sheet1"的工作表，还有一种表示方法是sheet1，这个使用的是VBPROJECT工程里面的Worksheet.CodeName。
所以，你要清楚你引用的工作表到底是哪一个，很有可能你创建的按钮不在Sheets(1)里面也有可能的！