2015-02-08 3 views
0

Есть ли способ использовать функцию workbooks.add и немедленно создать эту книгу в указанном каталоге?Путь Переменная и workbooks.add в каталог пути

Workbooks.Add 
ActiveWorkbook.SaveAs Filename:=Application.ActiveWorkbook.Path & Name2 

Что происходит, что вторая линия выше должна перейти в папку Dropbox, однако, workbooks.add автоматически будет создаваться в папке Мои документы, которые перекрывает вторую строку кода, так как Application.ActiveWorkbook. Путь затем станет «Мои документы». Когда открыт исходный файл, в котором находится макрос, он находится в папке, где будет получен этот код, чтобы получить правильный путь, если workbooks.add отсутствует.

+0

'Thisworkbook.Path' даст вам путь для книги, которая содержит макрос - если это где вы хотите сохранить новый затем используйте эту книгу. –

ответ

0

Как насчет сохранения пути к файлу заранее?

Нечто подобное (спасибо за отзывы в комментарии):

String path = Application.ActiveWorkbook.Path 
Workbooks.Add 
ActiveWorkbook.SaveAs Filename:=path & "/" & Name2 
+0

Изменено на путь & "/" * Название 2, и это сработало! –

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