Question

excel VBA 提示“用户定义类型未定义”？

excel vba中，运行提示：“用户定义类型未定义”，并指向下面这句，请问应该怎么弄啊，这是我参考的别人的代码。
Private Sub BoxKey(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Answer 1

　对象未定义时将产生此类错误：

　　一种典型的情况就是在定义对象时未正确创建对象本身而导致在编译时产生“用户定义类型未定义”的错误提示。

　　对此小编物提供以下通用定义外部对象的方法：

　　Sub 定义并引用外部对象() 'Word后期绑定示例

　　Dim wdapp As Object

　　Dim wd As Object

　　Dim tb As Object

　　Set wdapp = CreateObject("word.application") '打开一个word运用环境

　　wdapp.Visible = True '允许word文件可见

　　Set wd = wdapp.Documents.Add '新建一个word文档

　　Set tb = wd.Tables.Add(wd.Range(0, 0), 3, 6)

　　'在文档开始处加入一个3行6列的表格!!

　　End Sub