Sub save()
    Dim strPath As String
    Dim strFileName As String
    Dim strFileExtension As String
    
    strPath = "C:\#СПЕЦИФИКАЦИИ\"
    strFileName = ThisWorkbook.Worksheets( 3 ).Range("G1").Value
    strFileExtension = ".xls"
        
    If Len(Dir(strPath, vbDirectory)) =  0  Then
    MkDir "C:\#СПЕЦИФИКАЦИИ"
    End If
    
    ThisWorkbook.SaveAs strPath & strFileName & strFileExtension

End Sub

Dim strPath As String
strPath = "C:\#СПЕЦИФИКАЦИИ\"

If Dir(strPath, vbDirectory) = "" Then
    MkDir "C:\#СПЕЦИФИКАЦИИ"
Else
    MsgBox "Каталог уже существует"
End If

strPath = "C:\#СПЕЦИФИКАЦИИ\"

strPath = "C:\#СПЕЦИФИКАЦИИ"

Sub test()
    MkDir "C:\#СПЕЦИФИКАЦИИ"
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы