Сохранить вкладку как новый файл без изменений (Excel) - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день! Помогите с макросом, который будет: 1) Удалять все строки в который есть формула, но нет значений (сейчас код просто скрывает их) 2) Удалять все формулы в листе (он уже написан см. ниже) 3) Сохранить вкладку как новый файл с определенным именем файла "Файл 1" + дата (сейчас при открытии нового файла пишет, что коррупирован и открытие его может быть не безопасно (почему?)). 4) Все это будет происходить без затрагивания исходного файла (будет создаваться временный файл или другим образом)

Решение задачи: «Сохранить вкладку как новый файл без изменений (Excel)»

textual
Листинг программы
Private Sub Testv2() 'Для примера Book2.xlsm
    Dim iFileName$, iRow&
    iFileName = ThisWorkbook.Path & "\Файл1_" & Date & ".xls"
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlManual
    
    ThisWorkbook.Sheets(2).Copy
    With ActiveWorkbook.ActiveSheet
         .Buttons.Delete '.Shapes("Button 1").Delete
         .UsedRange.Value = .UsedRange.Value
         For iRow = .Cells(.Rows.Count, 2).End(xlUp).Row To 5 Step -1
             If Application.CountA(.Rows(iRow)) = 1 Then .Rows(iRow).Delete
         Next
         .SaveAs iFileName, xlExcel8: .Parent.Close
    End With
    
    Application.Calculation = xlAutomatic
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы