Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
19<br />
представляющ<strong>и</strong>м поз<strong>и</strong>ц<strong>и</strong>ю рабочего л<strong>и</strong>ста в кн<strong>и</strong>ге — с первого по<br />
Worksheets.Count, с учетом скрытых л<strong>и</strong>стов.<br />
Дв<strong>и</strong>гаясь в глубь объектной <strong>и</strong>ерарх<strong>и</strong><strong>и</strong>, программ<strong>и</strong>ст может<br />
ман<strong>и</strong>пул<strong>и</strong>ровать самым<strong>и</strong> разным<strong>и</strong> объектам<strong>и</strong>. С помощью методов <strong>и</strong>л<strong>и</strong><br />
свойств объекта, стоящего выше в <strong>и</strong>ерарх<strong>и</strong>ческом ряду, в вызывающую<br />
подпрограмму возвращается объект н<strong>и</strong>жеследующего уровня.<br />
Пр<strong>и</strong>меры<br />
Sub СтандартныйД<strong>и</strong>алог ()<br />
Application.Dialogs (xlDialogSaveAs).Show<br />
End Sub<br />
Sub Функц<strong>и</strong>я<strong>Excel</strong> ()<br />
MsgBox "Округленное з<strong>на</strong>чен<strong>и</strong>е ч<strong>и</strong>сла ПИ: " & _<br />
Application.Round (Application.Pi (), 3)<br />
End Sub<br />
Sub РабочаяКн<strong>и</strong>га ()<br />
Workbooks.Open ("Кн<strong>и</strong>га1")<br />
Workbooks.Add<br />
<strong>и</strong>мя = "Новая кн<strong>и</strong>га"<br />
Workbooks (2).SaveAs (<strong>и</strong>мя)<br />
MsgBox "В кн<strong>и</strong>ге " & Workbooks (2).Name & " всего " _<br />
& Sheets.Count & " л<strong>и</strong>стов"<br />
Workbooks (1).Activate<br />
MsgBox "Открыты кн<strong>и</strong>г<strong>и</strong> " & ActiveWorkbook.Name _<br />
& " <strong>и</strong> " & Workbooks (2).Name<br />
ActiveWorkbook.Save<br />
Workbooks.Close<br />
End Sub<br />
Sub Кол<strong>и</strong>чествоЛ<strong>и</strong>стов ()<br />
Sheets.Add<br />
MsgBox "В кн<strong>и</strong>ге " & Sheets.Count & " л<strong>и</strong>стов"<br />
End Sub<br />
Sub Пере<strong>и</strong>менован<strong>и</strong>еЛ<strong>и</strong>стов ()<br />
Л<strong>и</strong>ст1.Name = "Первый"<br />
Л<strong>и</strong>ст2.Name = "Второй"<br />
Л<strong>и</strong>ст3.Name = "Трет<strong>и</strong>й"<br />
End Sub<br />
Sub Рабоч<strong>и</strong>йЛ<strong>и</strong>ст ()<br />
Worksheets.Add Count:=2<br />
Worksheets (1).Name = "Первый л<strong>и</strong>ст"<br />
Sheets ("Первый л<strong>и</strong>ст").Activate<br />
ActiveSheet.PageSetup.Orientation = xlLandscape<br />
ActiveSheet.PrintOut<br />
ActiveSheet.Visible = False<br />
MsgBox Worksheets (1).Name & " скрыт"<br />
Sheets ("Первый л<strong>и</strong>ст").Visible = True
Change language