2013-08-21 3 views
0

У меня есть скрипт, который я хочу использовать для перемещения папки для архива это мой код:VBA Access Compile переменная ошибки не определен

Public Function modbalsmovearhive() 
Set FSO = CreateObject("Scripting.FileSystemObject") 
FSO.MoveFile "H:\Credit_Bals*.xls", "H:\Bals_Archive\" 

End Function 

Теперь, когда я иду, чтобы запустить его я получаю переменные ошибки компиляции не определены. Может ли кто-нибудь помочь мне с наилучшим способом решить эту ошибку.

+1

Добавить 'Dim FSO As Object' перед строкой' Set ... '. –

+0

Спасибо, теперь это сработало. – ELS31987

ответ

0

Я думаю, что вы, возможно, забыли размерности объекта, я предполагаю, что с помощью:

Dim FSO As FileSystemObject 

Кроме того, убедитесь, что у вас есть ссылки проверены на Microsoft выполнения сценариев.

+0

Хорошо, я добавил измерение, и оно сработало. Спасибо – ELS31987

1

Я только что проверил код, и он работает. Убедитесь, что Option Explicit не включен, а также убедитесь, что включены все библиотеки, которые вы используете в коде.

РЕДАКТИРОВАТЬ: Неправильно использовать опцию Explicit Off, поэтому, если вы хотите сохранить ее, убедитесь, что все ваши переменные объявлены и включены ваши библиотеки.

+0

Хорошо спасибо, я проверю Option Explicit. – ELS31987

0

Также обратите внимание, что после установки опции определения переменной OFF существующий модуль не изменится, то есть существующий модуль будет продолжать использовать Option Explicit. В этом случае вам нужно скопировать код в новый модуль.

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