Sub GetExcel()
'使用这段代码，可以打开一个Excel实例或者引用已经打开的Excel实例

Const ERR_APP_NOTRUNNING As Long = 429
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
If Err = ERR_APP_NOTRUNNING Then
Set MyXL = New Excel.Application
End If
MyXL.Application.Visible = True
End Sub

编译错误 提示用户定义类型未定义

什么原因，请高手指点阿

是不是没有导入这个东西？

刚刚出了一个跟你一样的问题，首先需要在工程-引用里面引用一个东西
：你的VB工程要引用“Microsoft Excel xx.x Object Library”才行。

或者不引用，而改成下面这样也行：

Dim objXLApp As Object

下面那个objWorkBook也要改为：

Dim objWorkBook As Object

Set objWorkBook = CreateObject("Excel.WorkBook")