Как получить текущий рабочий каталог, используя VBA?

У вас есть несколько вариантов в зависимости от того, что вы ищете. Workbook.Path возвращает путь к сохраненной книге. Application.Path возвращает путь к исполняемому файлу Excel. CurDir возвращает текущий рабочий путь, вероятно, по умолчанию используется папка "Мои документы" или аналогичная.

Вы также можете использовать свойство оболочки оболочки сценариев .CurrentDirectory.

Set wshell = CreateObject("WScript.Shell")
Debug.Print wshell.CurrentDirectory

Но это должно получить тот же результат, что и просто

Debug.Print CurDir

Казалось бы, что ActiveWorkbook не был сохранен...

Попробуйте CurDir().

Ваш код: path = ActiveWorkbook.Path

возвращает пустое значение, так как вы еще не сохранили свою книгу.

Чтобы решить проблему, вернитесь к листу Excel, сохраните свой листок и снова запустите свой код.

На этот раз он не будет отображаться пустым, но покажет вам путь, где он находится (текущая папка)

Я надеюсь, что это помогло.

Используйте Application.ActiveWorkbook.Path только для самого пути (без имени книги) или Application.ActiveWorkbook.FullName для пути с именем книги.

Используйте эти коды и наслаждайтесь им.

Public Function GetDirectoryName(ByVal source As String) As String()
Dim fso, oFolder, oSubfolder, oFile, queue As Collection
Set fso = CreateObject("Scripting.FileSystemObject")
Set queue = New Collection

Dim source_file() As String
Dim i As Integer        

queue.Add fso.GetFolder(source) 'obviously replace

Do While queue.Count > 0
    Set oFolder = queue(1)
    queue.Remove 1 'dequeue
    '...insert any folder processing code here...
    For Each oSubfolder In oFolder.SubFolders
        queue.Add oSubfolder 'enqueue
    Next oSubfolder
    For Each oFile In oFolder.Files
        '...insert any file processing code here...
        'Debug.Print oFile
        i = i + 1
        ReDim Preserve source_file(i)
        source_file(i) = oFile
    Next oFile
Loop
GetDirectoryName = source_file
End Function

И здесь вы можете вызвать функцию:

Sub test()
Dim s
For Each s In GetDirectoryName("C:\New folder")
Debug.Print s
Next
End Sub