乐博网lob.cn提示：调试环境为 vs2008 +  windows2003 / windows2008 / xp / vista

Imports Microsoft.Office.Tools.Ribbon
Public Class Ribbon1
    Private MyActionsPane As New ActionsPaneControl1()
    Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
        Globals.ThisWorkbook.ActionsPane.Controls.Add(MyActionsPane)
        MyActionsPane.Hide()
        Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = False
    End Sub
    '显示操作窗格
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
        Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True
        MyActionsPane.Show()
    End Sub
    '显示雇员数据表
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button2.Click
        Globals.Sheet1.ImportDataFromAccess()
    End Sub
    '隐藏操作窗格 '更多.net源码和实例，来自乐博网 www.lob.cn
    Private Sub ToggleButton1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles ToggleButton1.Click
        If (ToggleButton1.Checked = True) Then
            Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = False
        Else
            Globals.ThisWorkbook.Application.DisplayDocumentActionTaskPane = True
        End If
    End Sub
End Class