#眉標=Office開發
#副標=Office 2007開發系列（2）
#大標=初探Office開發物件模型
#作者=文／圖	沈炳宏
#引言=


==========程式=========
程式1
Dim myWorkbooks As Excel.Workbooks = 
Application.Workbooks
Dim myWorkbook As Excel.Workbook = 
myWorkbooks.Item(1)
Dim myWorksheets As Excel.Sheets = 
myWorkbook.Worksheets
Dim myWorksheet As Excel.Worksheet
myWorksheet = 
CType(myWorksheets.Item(1), Excel.Worksheet)

==========程式=========

==========程式=========
程式2
        Dim myWorkbook As Excel.Workbook = 
Application.ActiveWorkbook
        Dim myCollection As New ArrayList
        For Each name As Excel.NamedRange 
In myWorkbook.Names
            myCollection.Add(name)
        Next
        For Each name As 
Excel.NamedRange In myCollection
            name.Delete()
        Next
==========程式=========

==========程式=========
程式3
Public WithEvents app As Excel.Application
    Private Sub app_NewWorkbook(ByVal Wb As Microsoft.Office.Interop.Excel.Workbook) _
    Handles app.NewWorkbook
    End Sub
    Private Sub app_WorkbookOpen(ByVal Wb As Microsoft.Office.Interop.Excel.Workbook) _
    Handles app.WorkbookOpen
    End Sub
  End Sub

==========程式=========

==========程式=========
程式4
Public app As Excel.Application
Private Sub Sheet1_Startup(ByVal sender As Object, _
    ByVal e As System.EventArgs) 
Handles Me.Startup
    app = Me.Application
    MsgBox("加入事件.")
    AddHandler app.WindowActivate, _
      AddressOf Me.MyWindowActivateHandler
  End Sub
Private Sub MyWindowActivateHandler(ByVal Wb As _
    Excel.Workbook, ByVal Wn As Excel.Window)
    MsgBox("移除事件.")
    RemoveHandler app.WindowActivate, _
      AddressOf Me.MyWindowActivateHandler
End Sub


==========程式=========

==========程式=========
程式5
Dim app As 
Microsoft.Office.Interop.Excel.Application = _
New Microsoft.Office.Interop.Excel.Application
Select Case app.WindowState
Case Microsoft.Office.Interop.Excel.
XlWindowState.xlMaximized
MsgBox("最大化")
Case Microsoft.Office.Interop.Excel.
XlWindowState.xlMinimized
MsgBox("最小化")
Case Microsoft.Office.Interop.Excel.
XlWindowState.xlNormal
MsgBox("標準")
End Select

==========程式=========

==========程式=========
程式6
Dim app As 
Microsoft.Office.Interop.Excel.Application = _
New Microsoft.Office.Interop.Excel.Application
Try
Dim aw As Excel.Workbook
If app.Workbooks.Count > 0 Then
aw = app.ActiveWorkbook
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

==========程式=========

==========程式=========
程式7
Dim r1 As Excel.Range = app.Range("a1")
Dim r2 As Excel.Range = app.Range("a1", "z2")
==========程式=========