2015-10-14 5 views
0

Я использую следующие действия для создания папки:каталога Сделаны в VBscript относительно УПРАЖНЕНИЯ запуска макроса

Dim oFSO 
Set oFSO = CreateObject("Scripting.FileSystemObject") 
' Create a new folder 
oFSO.CreateFolder "C:\MyFolder" 

Но я хотел бы расположение папки, чтобы быть в том же месте рабочей книги бега первенствовать код.

ответ

2

Вы можете использовать

ThisWorkbook.Path 

Чтобы вернуть путь к текущей рабочей книги.

Что-то вроде этого:

Dim oFSO As Object 

Set oFSO = CreateObject("Scripting.FileSystemObject") 

oFSO.CreateFolder ThisWorkbook.Path & "\MyFolder" 
+0

большое спасибо :-) – RobH

+2

Нет проблем! Если бы это ответили на ваш вопрос, не могли бы вы нажать на зеленую галочку, чтобы принять это как ответ? Это добавляет мою точку зрения, которая помогает построить мою репутацию здесь. Буду признателен! – Soulfire

+0

сделано. У меня есть еще один вопрос о перемещении этого файла ... Должен ли я опубликовать его заново или добавить к нему? – RobH

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

  • Нет связанных вопросов^_^