Vba 执行代码后打开excel工作簿

Vba 执行代码后打开excel工作簿,vba,excel,Vba,Excel,我知道以前有人问过这个问题,但就我个人而言,我无法让这个简单的代码正常工作。我一直在Dim wbopen As WORKING 线路。我知道必须打开工作簿才能定义它,文件路径应该是Z:\Manufacturing\02-Schedules\01-Buffer Prep 而文件名是文件夹中唯一的.xls。为什么会这样?此外,这是在Word文件中执行的。不知道这是否重要。谢谢大家 Sub fileopen() Dim wbopen As Workbook Dim strFileName As St

我知道以前有人问过这个问题,但就我个人而言,我无法让这个简单的代码正常工作。我一直在
Dim wbopen As WORKING
线路。我知道必须打开工作簿才能定义它,文件路径应该是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

它是Word文档确实很重要。您必须添加对Microsoft Excel对象库的引用。从顶部栏:

Tools->References->
找到
microsoftexcel[version number]对象库
并检查它。

哦……好吧,这太尴尬了!谢谢现在,我在集合wbopen=Workbook.Open(strFileName)的行中遇到一个“objectrequired”错误。Open(strFileName)应该是
Workbooks.Open
。我想你错过了“哦,伙计”。小错误。再次感谢。它找到了正确的位置,然后告诉我它找不到文件,但它告诉了我文件名!我得弄清楚现在发生了什么。