сохранить книгу на диске С в папке название которое указывается в textBox1

[ScOrpi]

а как можно сохранить книгу на диске С в папке название которое указывается в textBox1 (и если нет такой папки то создать ее) и с именем которое указывается в другом textBox2???

[Pavel55]

Ничего не понял про TextBox2. Поэтому напишу про TextBox1

Private Sub CommandButton1_Click()
Dim iPath As String
Dim iName As String
    
    iPath = Me.TextBox1.Text 'например, C:\Temp
    iName = "Book1.xls" 'имя файла
    If Right(iPath, 1) <> "\" Then iPath = iPath & "\"
    If Dir(iPath, vbDirectory) = "" Then
        MkDir (iPath)
        ActiveWorkbook.SaveAs Filename:=iPath & iName
    Else
        ActiveWorkbook.SaveAs Filename:=iPath & iName
    End If
    MsgBox "Активная книга сохранена в папке: " & iPath
End Sub

[ScOrpi]

спасибо за то что направили мои мысли в нужное направление,.. все сделал что надо было... ))))

[Alar]

ScOrpi, неплохо было бы показать, что получилось.