Мне нужно установить путь к листу Excel, чтобы я мог использовать относительный путь для загрузки DLL

Question

Моя таблица Excel отлично работает, когда DLL имеет абсолютный путь, но когда он находится в том же каталоге, и я не указываю путь, просто введите имя библиотеки DLL, он не может ее найти.

Когда я пытаюсь

Debug.Print CurDir
C:\TEMP\TestAPSOutput\Simple2Room 

Но это не так. Как я могу сбросить это, чтобы указать на каталог фактической электронной таблицы, и, следовательно, мы надеемся загрузить DLL?

Спасибо, Джеймс

Answer 1

Попробуйте:

 Dim PathCrnt As String

 PathCrnt = Application.ActiveWorkbook.Path

Я использую это все время, чтобы найти файлы, которые я поместил в ту же папку, что и рабочая книга.