复制下面的代码到快表VBA编辑器中，生成DLL后应用于系统。不支持3.9.0以下版本，使用前请将快表升级至3.9.0版本以上。

1. Imports SpreadsheetGear
   
2. Imports System.Windows.forms
   
3. Namespace ExcelViewVBDotnet
   
4.     Public Class StandardInterface '自定义名称
   
5.         '预留位置1
   
6.         '预留位置2
   
7.         Dim AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
   
8.                 Dim CF,TS,VW As Object
   
9.         Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Forms.WorkbookView)
   
10.            Excel.GetLock()
    
11.            AW = Excel.ActiveWorkbook
    
12.            Range = AW.ActiveWorksheet.Range
    
13.            Excel.ReleaseLock()
    
14.                   
    
15.            CF = OldRoot.Children(1)  '绑定工具条触发，不能测试运行
    
16.                    TS = OldRoot.Children(5)         '绑定工具条区域，不能测试运行
    
17. 
    
18.                 '工具条添加第一个按钮
    
19.                    Dim BT1 As New Button
    
20.            BT1.Name = "BT_AN1"       '按钮名，不能与其他按钮名称重复，下同。
    
21.            BT1.Content = "第一个按钮"     '按钮显示的名称，自定义写入欲显示的名称。下同
    
22.                    BT1.Margin= New Thickness(0, 2, 0, 2)
    
23.                    BT1.Padding= New Thickness(13, 3, 13, 3)
    
24.                    BT1.Style = Application.Current.Resources("ButtonStyle3")
    
25.                    BT1.Foreground =  Application.Current.Resources("Foreground1")
    
26.                    TS.Children.Insert(16, BT1)    '插入按钮的位置，多个按钮时顺序往下排
    
27.                
    
28.                  '位置：2保存3新增4提交5退回6打印7预览8导出9捕获10上传图片11上传附件12插入行13插多行14删除行15查找16最后
    
29.                
    
30.                 '工具条添加第二个按钮
    
31.                    Dim BT2 As New Button
    
32.            BT2.Name = "BT_AN2"
    
33.            BT2.Content = "第二个按钮"
    
34.                    BT2.Margin= New Thickness(0, 2, 0, 2)
    
35.                    BT2.Padding= New Thickness(13, 3, 13, 3)
    
36.                    BT2.Style = Application.Current.Resources("ButtonStyle3")
    
37.                    BT2.Foreground =  Application.Current.Resources("Foreground1")
    
38.                    TS.Children.Insert(17, BT2)
    
39.                
    
40.                
    
41.                                 
    
42.                 '工具条添加第三个按钮，点击按钮时执行提取公式
    
43.                    Dim BT3 As New Button
    
44.            BT3.Name = "BT_TQ"
    
45.            BT3.Content = "执行提取公式"
    
46.                    BT3.Margin= New Thickness(0, 2, 0, 2)
    
47.                    BT3.Padding= New Thickness(13, 3, 13, 3)
    
48.                    BT3.Style = Application.Current.Resources("ButtonStyle3")
    
49.                    BT3.Foreground =  Application.Current.Resources("Foreground1")
    
50.                    AddHandler BT3.Click, Sub()
    
51.                    CF.Tag="1,缴费查询"     '公式类型：1为提取，2为传递。逗号后加执行的公式名称，与表间公式中的显示的名称一致
    
52.                    CF.Text="#执行公式"   '执行提取公式写入"#执行公式",执行SQL语句写入"#执行SQL"
    
53.                                  End Sub
    
54.                    TS.Children.Insert(18, BT3)
    
55. 
    
56.                 '工具条添加第四个按钮，点击按钮时执行SQL语句
    
57.                    Dim BT4 As New Button
    
58.            BT4.Name = "BT_SQL"
    
59.            BT4.Content = "执行SQL语句"
    
60.                    BT4.Margin= New Thickness(0, 2, 0, 2)
    
61.                    BT4.Padding= New Thickness(13, 3, 13, 3)
    
62.            BT4.Style = Application.Current.Resources("ButtonStyle3")
    
63.                    BT4.Foreground =  Application.Current.Resources("Foreground1")
    
64.                    AddHandler BT4.Click, Sub()
    
65.                    CF.Tag="Delete From T_33 Where F_117 = '张建斌'|删除完毕！"   '执行的SQL语句，语句后竖线分隔符及后面显示的文字为在语句执行完成后弹出提示内容。
    
66.                    CF.Text="#执行SQL"
    
67.            End Sub
    
68.                    TS.Children.Insert(19, BT4)
    
69.                
    
70.                 '工具条添加第五个按钮，点击按钮时执行公式或SQL时加入IF判断示例
    
71.                    Dim BT5 As New Button
    
72.            BT5.Name = "BT_SQL2"
    
73.            BT5.Content = "有条件执行语句"
    
74.                    BT5.Margin= New Thickness(0, 2, 0, 2)
    
75.                    BT5.Padding= New Thickness(13, 3, 13, 3)
    
76.            BT5.Style = Application.Current.Resources("ButtonStyle3")
    
77.                    BT5.Foreground =  Application.Current.Resources("Foreground1")
    
78.                    AddHandler BT5.Click, Sub()
    
79.                         AW.WorkbookSet.GetLock()
    
80.                                     IF Range("E2").Value <> "2015" Then        '执行公式或语句时，可以自由写入相关代码，这里以IF作示例。
    
81.                                                         Messagebox.show("对不起！当前年份不允许删除，请更改年份后执行！")
    
82.                                                 Else
    
83.                                                         CF.Tag="Delete From T_33 Where F_117 = '张建斌'|删除完毕！"
    
84.                                                            CF.Text="#执行SQL"
    
85.                                                 End if
    
86.                         AW.WorkbookSet.ReleaseLock()
    
87.            End Sub
    
88.                    TS.Children.Insert(20, BT5)
    
89.                
    
90.                 '工具条添加第六个按钮，点击按钮时执行提取公式
    
91.                    Dim BT6 As New Button
    
92.            BT6.Name = "BT_TQ2"
    
93.            BT6.Content = "传递填报收款凭证"
    
94.                    BT6.Margin= New Thickness(0, 2, 0, 2)
    
95.                    BT6.Padding= New Thickness(13, 3, 13, 3)
    
96.                    BT6.Style = Application.Current.Resources("ButtonStyle3")
    
97.                    BT6.Foreground =  Application.Current.Resources("Foreground1")
    
98.                    AddHandler BT6.Click, Sub()
    
99.                    CF.Tag="2,传递填报收款凭证"     '公式类型：1为提取，2为传递。逗号后加执行的公式名称，与表间公式中的显示的名称一致
    
100.                    CF.Text="#执行公式"   '执行提取公式写入"#执行公式",执行SQL语句写入"#执行SQL"
     
101.                    End Sub
     
102.                    TS.Children.Insert(21, BT6)
     
103.                
     
104.                    '位置：2保存3新增4提交5退回6打印7预览8导出9捕获10上传图片11上传附件12插入行13插多行14删除行15查找16最后
     
105.         End Sub'打开时执行事件
     
106. 
     
107.         Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
     
108. 
     
109.         End Sub'单元格选择后执行的事件
     
110. 
     
111.         Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)
     
112.            
     
113.         End Sub'单元格编辑完成后执行事件
     
114. 
     
115.         Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
     
116. 
     
117.         End Sub'按钮/标签点击事件
     
118. 
     
119.         Public Sub FollowHyperlink(sender As Object)
     
120.            
     
121.         End Sub '暂不支持
     
122. 
     
123.     End Class
     
124.     '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
     
125. 
     
126. End Namespace
     
127. 
     

复制代码

支持一下，应用场景广泛,

msg::::Option Strict On 不允许后期绑定

杨晨颖 发表于 2015-10-20 16:59
msg::::Option Strict On 不允许后期绑定

截图，看看你代码怎么写的。

杨晨颖 发表于 2015-10-20 16:59
msg::::Option Strict On 不允许后期绑定

不用点击编辑并运行，直接点击右上角的 生成最终DLL文件

收藏了，不错的例子

这样的例子太好了，希望都出。

例里再加个一个如何在VBA中调用系统的按钮，如保存按钮，这样在系统保存完后，再执行自己的代码，就更好了。

7314564 发表于 2016-11-8 14:55
例里再加个一个如何在VBA中调用系统的按钮，如保存按钮，这样在系统保存完后，再执行自己的代码，就更好了 ...

其他帖子已经有示例可以直接下载  
参考：http://www.kuaibiao.cn/forum.php?mod=viewthread&tid=3212

admin 发表于 2016-11-9 08:52
其他帖子已经有示例可以直接下载  
参考：http://www.kuaibiao.cn/forum.php?mod=viewthread&tid=3212

您提供的例子，我看懂了，谢谢。

支持一下，应用场景广泛,

msg::::Option Strict On 不允许后期绑定

杨晨颖 发表于 2015-10-20 16:59
msg::::Option Strict On 不允许后期绑定

截图，看看你代码怎么写的。

杨晨颖 发表于 2015-10-20 16:59
msg::::Option Strict On 不允许后期绑定

不用点击编辑并运行，直接点击右上角的 生成最终DLL文件

收藏了，不错的例子

这样的例子太好了，希望都出。

例里再加个一个如何在VBA中调用系统的按钮，如保存按钮，这样在系统保存完后，再执行自己的代码，就更好了。

7314564 发表于 2016-11-8 14:55
例里再加个一个如何在VBA中调用系统的按钮，如保存按钮，这样在系统保存完后，再执行自己的代码，就更好了 ...

其他帖子已经有示例可以直接下载  
参考：http://www.kuaibiao.cn/forum.php?mod=viewthread&tid=3212

admin 发表于 2016-11-9 08:52
其他帖子已经有示例可以直接下载  
参考：http://www.kuaibiao.cn/forum.php?mod=viewthread&tid=3212

您提供的例子，我看懂了，谢谢。