Подскажите, пожалуйста, как сохранить столбцы в отдельный файл?
Что поправить в коде, чтобы в файл сохранялся не весь лист, а столбцы A:F ?
Что поправить в коде, чтобы в файл сохранялся не весь лист, а столбцы A:F ?
Код |
---|
Sub Сохранить_НД_в_лист() Application.ScreenUpdating = False Dim path As String, iLinks As Variant, i As Long vopros = MsgBox("Сохранить форму загрузки НД?", vbYesNo, "Сохранение") If vopros = vbYes Then path = ThisWorkbook.path ActiveSheet.Copy iLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(iLinks) Then For i = 1 To UBound(iLinks) ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks Next i End If ActiveWorkbook.SaveAs path & Application.PathSeparator & ActiveSheet.Name & " " & Range("B10") & " " & Range("B11") & ".xlsx" ActiveWorkbook.Close (False) MsgBox "Форма сохранена в папку", vbInformation, "Важное сообщение:" End Sub |