Я создал надстройку Excel, которая используется в книге с импортированными данными. Мне нужно добавить код, который будет делать следующее:

Проверьте, существует ли папка C: \ Users \\ Мои документы \ Извлечь файлыСоздайте папку, если она не существует\Сохраните файл в эту папку с текущей датой и временем (сейчас) в имени файла с расширением .xlsx.Пример: C: \ Users \ jdoe \ Мои документы \ Извлечь файлы \ Extract - 01-15-2016 15: 15.xlsx

Я нашел это, но мне нужно знать, как включить мои критерии выше в этот код:

Я не знаю достаточно о VBA, чтобы создать папку, если она не существует (если вы можете сделать это с VBA). Я посмотрел, но не смог найти ничего полезного. Запрашиваемая некоторые указания здесь. Благодарю.

ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlOpenXMLWorkbook

Я только заметил, что полный путь не в моем OP. Я должен добавить, что разные пользователи будут запускать это со своего рабочего стола и должны сохранить этот файл в соответствующей папке «Мои документы». В моем OP это должно было сказать: C: \ Users \ username \ My Documents \ Extract Files \. Извлечь файлы - это папка, которую мне нужно создать, если она еще не существует.