Шаг 9 - Еще о Sheets

Один из полезный методов это метод Copy. Он позволяет создавать новый лист на основе существующего, то есть использовать лист как шаблон для других листов. Переименуйте любой лист в имя Test. Это можно сделать нажав правую кнопку мыши на названии листа и выбрав пункт меню Переименовать. Создайте на листе любое форматирование. after это лист, после которого произойдет вставка.

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		Sheets("Test").Copy , after:=Sheets("Лист3")
	End With
End Sub

У метода Copy есть особенность. Если не указывать параметры, то будет создана новая книга с копируемым листом.

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		Sheets("Test").Copy
	End With
End Sub

При необходимости передвинуть лист есть метод Move:

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		Sheets("Test").Move , after:=Sheets("Лист3")
	End With
End Sub

Так как коллекция эта содержит обьекты листа у неё есть несколько полезных методов. Один из них PrintPreview позволяющий вызывать предварительный просмотр.

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		Sheets("Test").PrintPreview
	End With
End Sub

Программным путем можно и выделять листы. Это метод Select. У него один параметр типа BOOL, если он установлен в TRUE, то происходит выделения листа, а если FALSE, то выделение объединяющее. Выделите другой лист и запустите следующий макрос.

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		Sheets("Test").Select (False)
	End With
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.