Задание переменной для адреса Set Drive с ThisWorkbook.path

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Задание переменной для адреса Set Drive с ThisWorkbook.path (Макросы/Sub)

Amon

Дата: Четверг, 24.05.2018, 16:43 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день коллеги
Есть макрос который создает папку в той же директории что и сам документ. Внутри каталога создается папка с значением с ячейки d3, и потом еще папка
с названием текущего листа.
Есть форма которая с папки показывает все изображения в директории. Можно ли каким-то образом путь указать динамическим?
Сейчас указано так [vba]

Код

Set Drive = FSO.GetFolder("C:\Users\worker\Desktop\MFO mk2.Decompozition обогащение\Скриншоты\456\Поступление оплаты")

[/vba]
папка скриншоты это первая создаваемая директория, 456 это значение ячейки d3, поступление оплаты это имя листа.
Даже таким образом не получается [vba]

Код

Dim sh As Worksheet
                    Set sh = Workbooks("Primer.xlsm").Sheets("Поступление оплаты")
                    org = Workbooks("primer.xlsm").Sheets("Поступление оплаты").Range("d3")
        Set Drive = FSO.GetFolder("ThisWorkbook.path & " \ Скриншоты \ " & org & " \ " & sh.Name")

[/vba]
Есть ли возможность назначить какую-либо переменную или что-то вроде того чтобы когда значение переменной менялось менялся и путь к папке с рисунками? ( Для того чтобы одну форму использовать как просмотровщик )
Пример во вложении. Спасибо.

К сообщению приложен файл: primer.zip (36.4 Kb)

Сообщение отредактировал Amon - Четверг, 24.05.2018, 16:48

Ответить

_Boroda_

Дата: Четверг, 24.05.2018, 17:09 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Попробуйте так
[vba]

Код

Set Drive = FSO.GetFolder(ThisWorkbook.Path & "\Скриншоты\" & org & "\" & sh.Name)

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Amon

Дата: Четверг, 24.05.2018, 17:14 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 24.05.2018 в 17:09, в сообщении № 2 ()

Попробуйте так

Спасибо, так работает.
Но мне нужно как-то в переменную что-ли занести, чтобы я мог с другого макроса менять это значение и соответственно путь менялся.
Пробую так тоже не пашет
[vba]

Код

Dim Dest As folder
Set Dest = (ThisWorkbook.path & "\Скриншоты\" & org & "\" & sh.Name)
Set Drive = FSO.GetFolder("Dest")

[/vba]

Ответить

_Boroda_

Дата: Четверг, 24.05.2018, 17:16 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Код

FSO.GetFolder(Dest)

[/vba]
Переменную не нужно брать в кавычки. В кавычках пишется текст

Ответить

Amon

Дата: Четверг, 24.05.2018, 17:28 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 24.05.2018 в 17:16, в сообщении № 4 ()

не нужно брать в кавычки

[vba]

Код

Dim Dest As Folder
org = Workbooks("Resultati.xlsm").Sheets("Поступление оплаты").Range("d3")
Set sh = Workbooks("Resultati.xlsm").Sheets("Поступление оплаты")
Set Dest = (ThisWorkbook.path & "\Скриншоты\" & org & "\" & sh.Name)
Set Drive = FSO.GetFolder(Dest)

[/vba]
Все равно ругается Object required 424
на строку [vba]

Код

Set Dest = (ThisWorkbook.path & "\Скриншоты\" & org & "\" & sh.Name)

[/vba]
я уже и так пробовал все равно [vba]

Код

Set Dest = ThisWorkbook.path & "\Скриншоты\" & org & "\" & sh.Name

[/vba] без кавычек