代码执行后打开excel工作簿

Question

我知道以前曾经问过这个问题，但对于我的生活，我无法让这个简单的代码工作。我一直收到编译错误＆＃34;未定义的用户定义类型＆＃34;在Dim wbopen As Workbook 线。我知道工作簿必须是开放的来定义它，文件路径应该是Z：\ Manufacturing \ 02- Schedules \ 01- Buffer Prep 而文件名是文件夹中唯一的.xls。为什么会这样？此外，这是在Word文件中执行。不确定是否重要。谢谢大家！

Sub fileopen()

Dim wbopen As Workbook
Dim strFileName As String
Dim strFilePath As String

strFilePath = "Z:\Manufacturing\02- Schedules\01- Buffer Prep\"

strFileName = Dir(strFilePath & "*.xls")

Set wbopen = Workbook.Open(strFileName)

End Sub

Answer 1

它是Word文档很重要。您必须添加对Microsoft Excel对象库的引用。从顶部栏：
Tools -> References ->找到Microsoft Excel [version number] Object Library并进行检查。