Question

在excel vba中运行正确，在access vba中却提示“编译错误，方法和数据成员未找到”，为什么？

我在excel vba中设计一窗体，里面放一按钮，按钮事件代码如下：
Dim Mycmd As Control
Private Sub CommandButton1_Click()
x = Sheet1.UsedRange.Rows.Count
For i = 1 To x
Set Mycmd = Controls.Add("Forms.textbox.1", CommandButton2, Visible)
Mycmd.Left = 18
Mycmd.Top = 25 * i
Mycmd.Width = 50
Mycmd.Height = 15
Mycmd.Text = "b" & i
Next
End Sub
我在access vba中也同样设置，代码一样。结果却不一样。如题。
这段代码是从vba帮助中移过来的。
在access vba中，提示的同时“.add”被选中。

Answer 1

ACCESS中哪来的Sheet1？这是EXCEL中的单元表，ACCESS中没有这个的，所以
x = Sheet1.UsedRange.Rows.Count
就会出错了。

Answer 2

如果是在EXCEL中能运行，可以在ACCESS的VBA编辑界面上执行：
工具——引用，找到并勾上“Microwoft Excel 12.0 Object Library
” 试试