Byte, Integer, Long, Single, Double StringVBA Object. Object VBA , host-, Excel- Workbook, Worksheet Range Word- Document, Range, Paragraph.
VBA, , Object, :
Dim myObject As Object
Object , :
Dim InstBook As Workbook
InstBook, Dim, Workbook. InstBook Range WorksheetVBA .
VBA, . ( ); VBA.
, , :
Application | : |
Application.ActiveSheet | , : |
Application.Workbooks | , : |
ABook | : Set, |
Object , . , , , , , , . , , .
, . ; , Set.
Set :
Set Var = Object
Var Variant;
Object ; .
Var , - (, Range Workbook), , Object.
|
|
Dim InstSheet As Worksheet
Set InstSheet = Application.ActiveSheet
, , , ActiveWorkbook ActiveSheet Application Cells Worksheet( Excel).
(<, <=, >, >=, , =) , VBA , Is:
Objectl Is Object2
Object1 Object2 . Is , . Is True, , False.
6.
Sub SaveActiveBook()
' ,
' SaveCopyAs. "_bp"
Dim FName As String ' -
Dim OldComment As String '
'
OldComment = ActiveWorkbook.Comments
' backup-
ActiveWorkbook.Comments = " " & ActiveWorkbook.Name & ", SaveActiveBook"
'
FName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1) & "_bp.xls"
'
FName = ActiveWorkbook.Path & "\" & FName
ActiveWorkbook.SaveCopyAs Filename:=FName
ActiveWorkbook.Comments = OldComment '
End Sub
Excel, . ActiveWorkbook Excel- Application, .
OldComment = Comments ActiveWorkbook OldComment. ActiveWorkbook.Comments = Comments ActiveWorkbook( ). Comments , Properties( ), Excel File | Properties( | ).