Сохранение данных в разные файлы
В VBA сохранение данных в разные файлы осуществляется проще чем в ООО. Здесь можно обойтись без удаления листов с последующей отменой, а заняться прямым копированием нужных листов во вновь создаваемую книгу, с последующим ее сохранением. Рассмотрим аналогичный код получения файла ГМ Месяц списания из файла Данные для проводок. Нам из второго файла нужны два первых листа, затем перенеся их в новый файл. сохраним с именем по данным ячеек A1 и B1:
Sub SaveSheet()
Dim NewWb As Workbook
'Заносим имя текущей книги в переменную
n = ActiveWorkbook.Name
'Создаем новую книгу с 1-м пустым листом
Set NewWb = Workbooks.Add(1)
'Активируем старую книгу
Windows(n).Activate
'Указываем массивом листы, которые хотим скопировать
Sheets(Array("Списание ГП", "Списание сырья")).Copy Before:=Workbooks(NewWb.Name).Sheets(1)
' Отключаем любые окна предупреждений
Application.DisplayAlerts = False
' Удаляем существовавший пустой лист
Sheets("Лист1").Delete
' Сохраняем книгу по данным первых ячеек, с нужным именем
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A1") & " " & Range("B1") & " " & "списания.xls"
'Закрываем книгу
ActiveWorkbook.Close
'Далее можно повторить код для следующих файлов....
End Sub
Sub SaveSheet()
Dim NewWb As Workbook
'Заносим имя текущей книги в переменную
n = ActiveWorkbook.Name
'Создаем новую книгу с 1-м пустым листом
Set NewWb = Workbooks.Add(1)
'Активируем старую книгу
Windows(n).Activate
'Указываем массивом листы, которые хотим скопировать
Sheets(Array("Списание ГП", "Списание сырья")).Copy Before:=Workbooks(NewWb.Name).Sheets(1)
' Отключаем любые окна предупреждений
Application.DisplayAlerts = False
' Удаляем существовавший пустой лист
Sheets("Лист1").Delete
' Сохраняем книгу по данным первых ячеек, с нужным именем
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A1") & " " & Range("B1") & " " & "списания.xls"
'Закрываем книгу
ActiveWorkbook.Close
'Далее можно повторить код для следующих файлов....
End Sub
Комментарии
Отправить комментарий