Не могу прописать путь GetObject

[Ант@н]

Мне нужно открыть папку с Excel документам. Я вроде прописал к ней путь, но мне выдаётся ошибка 432(объек с указаным путём и именем файла не существует). Вот то что я писал

Dim papka As Object
papka = GetObject("C:\Документы\Учебные материалы\Программирование\Vba\Дома шняя работа\Папки\ первая")


первая - это номер заключительной папки где хранится Excel документ.

[dexterua]

Может пробел перед первая убрать надо?
И в домашней работе тоже пробел...

Это так надо?)

[Ант@н]

убрал ничего не изменилось...у меня есть подозрения что переменная papka должна быть каким то образом связана с "путём", но как связана я не знаю((

[Ант@н]

Дело в том что перед "первая" у меня и не было пробела, а в "домашней работе" пробел это случайный косяк, при исправлении ничего не изменилось(

[SAS888]

Вместо

papka =...

нужно использовать

Set papka = ...

[Ант@н]

Sub Работа()
Dim papka As Object
Set papka = GetObject("C:\Документы\Учебные материалы\Программирование\Vba\Дома шняя работа\Папки\ первая")
End Sub

всё равно ошибку пишет(

[EducatedFool]

А кто Вам сказал, что можно открыть папку через GetObject?

GetObject предназначен для других целей. Например:

Sub Пример()
    Dim file As Object
    Set file = GetObject("C:\Documents and Settings\Игорь\Рабочий стол\Книга1.xls")
    Debug.Print file.Name, file.Worksheets.Count
End Sub

Мне нужно открыть папку с Excel документам

Делается проще:

Sub Пример()
    ПутьКПапке = """C:\Documents and Settings\Игорь\Рабочий стол\пример"""
    CreateObject("wscript.shell").Run ПутьКПапке
End Sub

Обратите внимание, что, если в пути к папке присутствуют пробелы, надо в строке ПутьКПапке = ... ставить по 3 кавычки вместо одной.

[Ант@н]

Спасибо это работает, но дело в том что нам нужно два способа. Вы бы не могли мне подсказать ещё один способ который позволит мне открыть папку с Ecxel документом возможно даже с помощью этой же функции но каким-нибудь другим способом. Заранее большое спасибо)

[EducatedFool]

что нам нужно два способа

Зачем?????
Этот способ отлично работает. К чему изобретать другой способ?

Ну, раз так надо, пожалуйста:

Sub Пример2()
    ПутьКПапке = """C:\Documents and Settings\Игорь\Рабочий стол\пример"""
    Shell "explorer.exe " & ПутьКПапке, vbNormalFocus
End Sub

[Ант@н]

Дело в том что у моего одногруппника сделано примерно таким же способом. Подумают что списал.((Понимаю что наверное глупо звучит.
Надеюсь вас не затруднит написать ещё один возможный способ, даже может с применением этой функции но другой.