Сохранение файла

[yuresku]

Всем доброго времени суток! Имеется форма для выписки счет- фактуры . После формирования документа требуется сохранять счет в виде файла "счета №_" в папку СЧЕТ, которая находится на рабочет столе. Как прописать макрос.

[yuresku]

Высылаю Файл

[Казанский]

Код кнопки 4 в форме. Папка должна существовать.

Private Sub CommandButton4_Click()
ThisWorkbook.SaveAs CreateObject("wscript.shell").specialfolders("Desktop") & _
  "\СЧЕТ\счета №_" & TextBox1 & ".xls"
End Sub

[yuresku]

Казанский спасибо. Создал папку "СЧЕТ" файл в ней создался ,но мне надо что бы он сохранился в таком виде ,что бы можно было сразу открыть и распечатать . в папке есть файл пример "Книга11".
заранее благодарен.

[Казанский]

Попробуйте такой код кнопки

Private Sub CommandButton4_Click()
Dim x
With Sheets("счет").Range("B21")
  x = .Formula
  .Value = .Value
  .Worksheet.Copy
  .Formula = x
End With
Columns("B").EntireColumn.AutoFit
Rows(17).EntireRow.AutoFit
For Each x In ActiveSheet.OLEObjects: x.Delete: Next
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs CreateObject("wscript.shell").specialfolders("Desktop") & _
  "\СЧЕТ\счета №_" & TextBox1 & ".xls", 56 'xlExcel8
ActiveWorkbook.Close 0
Application.DisplayAlerts = True
End Sub

[yuresku]

Добрый день . Попробовал код кнопки : выдает ошибку в этих строках кода :ActiveWorkbook.SaveAs CreateObject("wscript.shell").speci alfolders("Desktop") & _
"\СЧЕТ\счета№_" & TextBox1 & ".xls", 56 'xlExcel8

Код ошибки 1004.Method Save As of object_Workbook failed.

[Казанский]

Какой Excel?
Попробуйте без указания формата

ActiveWorkbook.SaveAs CreateObject("wscript.shell").specialfolders("Desktop") & _
  "\СЧЕТ\счета №_" & TextBox1 & ".xls"

А может, файл уже существует и открыт.

[yuresku]

Казанский ,спасибо все работает