Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на сохранение листа в отдельный файл, удаление формул (Макросы/Sub)
Макрос на сохранение листа в отдельный файл, удаление формул
Artem9222 Дата: Среда, 02.03.2022, 18:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Всем привет!
Нужна помощь знающих
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]
 
Ответить
СообщениеВсем привет!
Нужна помощь знающих
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]

Автор - Artem9222
Дата добавления - 02.03.2022 в 18:28
RAN Дата: Среда, 02.03.2022, 19:59 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5630
Репутация: 1143 ±
Замечаний: 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]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[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]

Автор - RAN
Дата добавления - 02.03.2022 в 19:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на сохранение листа в отдельный файл, удаление формул (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!