Макрос на сохранение листа в отдельный файл, удаление формул

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос на сохранение листа в отдельный файл, удаление формул (Макросы/Sub)

Artem9222

Дата: Среда, 02.03.2022, 18:28 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 40% ±

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

просьба помочь с решением моего вопроса)) заранее спасибо

мои макросы следующие:
[vba]

Код

Sub SaveFile()
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String
   Application.DisplayAlerts = False
   Path = ThisWorkbook.Path & "\"
   CellValue = Range("D3")
   FinalFileName = Path & CellValue & ".xlsb"
   ActiveWorkbook.SaveCopyAs Filename:=FinalFileName

   Application.DisplayAlerts = True
   MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"
  End Sub

[/vba]

[vba]

Код

Sub удаление_формул()
    Range( _
        "D4:G5,H11,H12,A21:C21,D21:E21,G21,G22,G23,G24,G25,K22,K23,K24,K25,K36,M21,D33:E33,G33,K34,C62:D62,C63:D63,C64:D64,H62:I62,H63:I63,H64:I64,N71,G73:N74" _
        ).Select
For Each cell In Selection
cell.Formula = cell.Value
Next
End Sub

[/vba]

[vba]

Код

Sub кнопка()
Dim IShape As Object

For Each IShape In ActiveSheet.Shapes
If IShape.AlternativeText = "SAVE AS..." Then IShape.Delete
'End If
Next IShape
End Sub

[/vba]

Код

[/vba]

[vba]

Код

[/vba]

[vba]

Код

Sub кнопка()
Dim IShape As Object

For Each IShape In ActiveSheet.Shapes
If IShape.AlternativeText = "SAVE AS..." Then IShape.Delete
'End If
Next IShape
End Sub

[/vba]Artem9222

Ответить

СообщениеВсем привет!
Нужна помощь знающих
1. имеется книга, в нее через формулы с другого файла тянутся определенные значения, т.е. файл в котором работаю это некий шаблон
2. после того, как все значения подтянулись, нужно заполненный лист сохранить в отдельный файл рядом с основным, при этом удалить частично с него формулы (заменить на значения), удалить макрос и удалить созданную кнопку.
3. Итого на все эти действия есть свои макросы и все прекрасно работает, но не могу понять, как сделать так, чтобы основной файл остался без изменений, а в копии произошло все то, что написал в п.2

просьба помочь с решением моего вопроса)) заранее спасибо

мои макросы следующие:
[vba]

Код

[/vba]

[vba]

Код

[/vba]

[vba]

Код

Sub кнопка()
Dim IShape As Object

For Each IShape In ActiveSheet.Shapes
If IShape.AlternativeText = "SAVE AS..." Then IShape.Delete
'End If
Next IShape
End Sub

[/vba]

Автор - Artem9222
Дата добавления - 02.03.2022 в 18:28

RAN

Дата: Среда, 02.03.2022, 19:59 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub SaveFile()
Dim CellValue As String
Dim Path As String
Dim FinalFileName As String
Application.DisplayAlerts = False
Path = ThisWorkbook.Path & "\"
CellValue = Range("D3")
FinalFileName = Path & CellValue & ".xlsb"
ActiveSheet.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveAs Filename:=FinalFileName, FileFormat:=xlExcel12
ActiveWorkbook.Close False
Application.DisplayAlerts = True
MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Макрос на сохранение листа в отдельный файл, удаление формул (Макросы/Sub)

Страница 1 из 1
1