2015-05-04 4 views
0

Я знаю, что это было задано раньше, но для жизни меня я не могу заставить этот простой код работать. Я продолжаю получать ошибку компиляции «Определенный пользователем тип не определен» на Dim wbopen As Workbook линия. Я знаю, что рабочая книга должна быть открытой для ее определения, а путь к файлу должен быть Z: \ Manufacturing \ 02- Schedules \ 01- Buffer Prep , в то время как имя файла является единственным .xls в папке. Почему это происходит? Кроме того, это выполняется в файле Word. Не уверен, если это имеет значение. Всем спасибо!Открыть книгу excel после выполнения кода

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 

ответ

2

Имеет значение, что это документ Word. Вы должны добавить ссылку на библиотеку объектов Microsoft Excel. Из верхнего бара:
Tools -> References -> найти Microsoft Excel [version number] Object Library и проверить его.

+0

Ох ... приветствую, что это смущает! Благодаря! Теперь я получаю ошибку «объект обязательный» в строке Установить wbopen = Workbook.Open (strFileName) –

+0

Должно быть 'Workbooks.open'. Я думаю, что вам не хватает 's' – Sobigen

+0

Oh man. Крошечные ошибки. Еще раз спасибо. Он отправился в нужное место, а потом сказал, что не может найти файл, но он сказал мне имя файла! Теперь нужно выяснить, что происходит сейчас. –

Смежные вопросы