Save as

[and150382]

Добавил вроде всё заработало

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Dim FName As String, ws As Worksheet
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Укажите папку для сохранения"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub Else FilePath = .SelectedItems(1) & "\"
        For Each ws In ThisWorkbook.Sheets
        FName = .SelectedItems(1) & "\Шипмент" & Range("FM6") & ".xls": ws.Copy
        ActiveWorkbook.SaveAs Filename:=FName
        ActiveWorkbook.Close SaveChanges:=False
        Next
    End With
End Sub

Только почему он сохраняет третий лист? как сделать чтобы только первый или все?

[IgorGO]

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False: Application.DisplayAlerts = False
    Dim FName As String, ws As Worksheet
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Укажите папку для сохранения"
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub Else FilePath = .SelectedItems(1) & "\"
        FName = .SelectedItems(1) & "\Шипмент" & Range("FM6") & ".xls"
        worksheets(1).Copy
        ActiveWorkbook.SaveAs Filename:=FName
        ActiveWorkbook.Close SaveChanges:=False
    End With
End Sub

[and150382]

Спасибо работает. Только при открывании сохраненного листа в ячейках где стояли формулы теперь отображается имя. Подскажите как сделать чтобы данные сохранялись

[and150382]

Разобрался. В ячейках в которых появляется имя стоит формула которая преобразует число в текст( написано макросом), поэтому и появляется ошибка,т.к.файл сохраняется с расширением xls. Меняю в коде xls на xlsm - не работает. Скажите как тогда сохранить с макросами.

[IgorGO]

у меня сразу два варианта:
1. сохраняйте весь файл под другим именем
2. пройдитесь по "строптивым" ячейкам и специальной вставкой скопируйте их сами на себя "только значения"

[and150382]

А нельзя сделать чтобы сохранялось с расширением xlsm

[IgorGO]

как-то так:

ActiveWorkbook.SaveAs Filename:="ФайлФайлФайл", FileFormat:=xlOpenXMLWorkbookMacroEnabled

вообще, почитайте справку по Workbook.SaveAs - там все написано.

[and150382]

Спасибо работает, только записывает лист ТТН, а макрос с формулой находится в модуле. Получается что макросы не сохраняются. Нужно сохранять всю книгу. Не подскажите как?

[IgorGO]

закомментируйте или удалите эту строку:
worksheets(1).Copy

[and150382]

Если коментировать строку

worksheets(1).Copy

, то исходный файл остаётся пустым(без листов).
Нужно чтобы в исходном файле тоже всё осталось.
И когда открываю сохраненный файл, то данные занесённые через листбоксы почему то удаляются( то есть ячейки пустые, хотя там должны быть данные)
Помогите решить эти проблемы