Добрый день.
Задача:
По нажатию кнопки сохранять диапазон листа со значениями(только значений без формул) в новый файл.
Проблема в том, примеры которые я находил сохраняют или весь лист без диапазона, либо диапазон со значениями но без свойств ячеек (цвета форматы)
Вот пример кода который делает почти как надо, но сохраняет всю область листа. Сюда бы добавить выбор диапазона.
Помогите.
Задача:
По нажатию кнопки сохранять диапазон листа со значениями(только значений без формул) в новый файл.
Проблема в том, примеры которые я находил сохраняют или весь лист без диапазона, либо диапазон со значениями но без свойств ячеек (цвета форматы)
Вот пример кода который делает почти как надо, но сохраняет всю область листа. Сюда бы добавить выбор диапазона.
Помогите.
Код |
---|
Private Sub CommandButton1_Click() Dim FileN$, wb As Workbook FileN = ThisWorkbook.Path & "\" & "Test_" & Range("B1") & ".xlsm" ThisWorkbook.SaveCopyAs FileN Set wb = Workbooks.Open(FileN) ActiveSheet.DrawingObjects.Delete 'óäàëåíèå âñåõ êíîïîê ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value ActiveSheet.Copy wb.Close SaveChanges:=False Kill FileN Mid(FileN, Len(FileN), 1) = "x" ActiveWorkbook.SaveAs FileN, 51 ActiveWorkbook.Close SaveChanges:=False MsgBox "Òåêóùèé ëèñò ñîõðàíåí â íîâîé êíèãå" & FileN End Sub |