快表VBA动态加载dll

适用版本：企业版、高级企业版
说明：
1.如果是自定义类名，如print，把Dim KB As Object = TryCast(assembly.CreateInstance("ExcelViewVBDotnet.ExcelViewVBDotnet.StandardInterface"), Object)改成Dim KB As Object = TryCast(assembly.CreateInstance("ExcelViewVBDotnet.ExcelViewVBDotnet.print"), Object)；如果是第三方，写第三方的全部名称。
2.以下用快表中dll为例，代码1：模版vba，代码2：调用模版vba。

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports Microsoft.VisualBasic
   
8. Imports System.IO
   
9. Imports System.Text
   
10. Imports System.Net
    
11. Imports System.Windows.forms
    
12. Namespace ExcelViewVBDotnet
    
13.    Public Class StandardInterface
    
14.        '预留位置1
    
15.        '预留位置2
    
16.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
17.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.            EV = Excel
    
19.            Excel.GetLock()
    
20.            AW = Excel.ActiveWorkbook
    
21.            Range = AW.ActiveWorksheet.Range
    
22.            Excel.ReleaseLock()
    
23.                   
    
24. 
    
25.        End Sub'打开时执行事件
    
26. 
    
27.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
28. 
    
29.        End Sub'单元格选择后执行的事件
    
30. 
    
31.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
32. 
    
33.        End Sub'单元格编辑完成后执行事件
    
34. 
    
35.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
36.                 Call loadDll()
    
37.        End Sub'按钮/标签点击事件
    
38. 
    
39.        Public Sub FollowHyperlink(sender As Object)
    
40. 
    
41.        End Sub '暂不支持
    
42.           
    
43.                    Public Sub LoadDll()
    
44.             Dim client As New WebClient()
    
45.             AddHandler client.OpenReadCompleted, AddressOf OnDllDownloaded
    
46.             '加载快表编译的DLL（DLL放在服务器的DLL目录中）
    
47.             client.OpenReadAsync(New Uri("DLL\文件名.dll", UriKind.Relative))
    
48.         End Sub
    
49. 
    
50.         Private Sub OnDllDownloaded(sender As Object, e As OpenReadCompletedEventArgs)
    
51.             If e.Error Is Nothing Then
    
52.                 Dim part As New AssemblyPart()
    
53.                 Dim assembly As Reflection.Assembly = part.Load(e.Result)
    
54.                 Try
    
55.                      Dim KB As Object = TryCast(assembly.CreateInstance("ExcelViewVBDotnet.ExcelViewVBDotnet.print"), Object)
    
56.                     '执行加载DLL中的方法。
    
57.                     kb.test2()
    
58.                 Catch ex As Exception
    
59.                     '忽略错误'兼容旧版
    
60.                 End Try
    
61.             End If
    
62.                        
    
63.                        
    
64.         End Sub
    
65. 
    
66.    End Class
    
67. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
68. End Namespace
    

复制代码

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports Microsoft.VisualBasic
   
8. Imports System.IO
   
9. Imports System.Text
   
10. Imports System.Net
    
11. Imports System.Windows.forms
    
12. Namespace ExcelViewVBDotnet
    
13.    Public Class StandardInterface
    
14.        '预留位置1
    
15.        '预留位置2
    
16.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
17.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.            EV = Excel
    
19.            Excel.GetLock()
    
20.            AW = Excel.ActiveWorkbook
    
21.            Range = AW.ActiveWorksheet.Range
    
22.            Excel.ReleaseLock()
    
23.        End Sub'打开时执行事件
    
24. 
    
25.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
26. 
    
27.        End Sub'单元格选择后执行的事件
    
28. 
    
29.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
30. 
    
31.        End Sub'单元格编辑完成后执行事件
    
32. 
    
33.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
34.                 If e.Shape.Name = "Button 1" Then
    
35.                         '填写符合条件后执行的代码
    
36.                         C1MessageBox.Show("你好aa！", "提示", OK, C1MessageBoxIcon.Information)
    
37.                 End If
    
38.        End Sub'按钮/标签点击事件
    
39. 
    
40.        Public Sub FollowHyperlink(sender As Object)
    
41. 
    
42.        End Sub '暂不支持
    
43.           
    
44.            Public Sub test()
    
45.                    C1MessageBox.Show("快表你好！", "提示", OK, C1MessageBoxIcon.Information)
    
46.            End Sub
    
47.           
    
48.            Public Sub testaa()
    
49.                    C1MessageBox.Show("快表2你好！", "提示", OK, C1MessageBoxIcon.Information)
    
50.            End Sub
    
51.           
    
52.            Public Sub testbb()
    
53.                    C1MessageBox.Show("快表3你好！", "提示", OK, C1MessageBoxIcon.Information)
    
54.            End Sub
    
55.           
    
56.    End Class
    
57.    
    
58.               Public Class print
    
59.         Public Sub test2()
    
60.             C1MessageBox.Show("你好！", "提示", OK, C1MessageBoxIcon.Information)
    
61.         End Sub
    
62.     End Class
    
63. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
64. End Namespace
    

复制代码

快表VBA动态加载dll

适用版本：企业版、高级企业版
说明：
1.如果是自定义类名，如print，把Dim KB As Object = TryCast(assembly.CreateInstance("ExcelViewVBDotnet.ExcelViewVBDotnet.StandardInterface"), Object)改成Dim KB As Object = TryCast(assembly.CreateInstance("ExcelViewVBDotnet.ExcelViewVBDotnet.print"), Object)；如果是第三方，写第三方的全部名称。
2.以下用快表中dll为例，代码1：模版vba，代码2：调用模版vba。

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports Microsoft.VisualBasic
   
8. Imports System.IO
   
9. Imports System.Text
   
10. Imports System.Net
    
11. Imports System.Windows.forms
    
12. Namespace ExcelViewVBDotnet
    
13.    Public Class StandardInterface
    
14.        '预留位置1
    
15.        '预留位置2
    
16.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
17.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.            EV = Excel
    
19.            Excel.GetLock()
    
20.            AW = Excel.ActiveWorkbook
    
21.            Range = AW.ActiveWorksheet.Range
    
22.            Excel.ReleaseLock()
    
23.                   
    
24. 
    
25.        End Sub'打开时执行事件
    
26. 
    
27.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
28. 
    
29.        End Sub'单元格选择后执行的事件
    
30. 
    
31.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
32. 
    
33.        End Sub'单元格编辑完成后执行事件
    
34. 
    
35.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
36.                 Call loadDll()
    
37.        End Sub'按钮/标签点击事件
    
38. 
    
39.        Public Sub FollowHyperlink(sender As Object)
    
40. 
    
41.        End Sub '暂不支持
    
42.           
    
43.                    Public Sub LoadDll()
    
44.             Dim client As New WebClient()
    
45.             AddHandler client.OpenReadCompleted, AddressOf OnDllDownloaded
    
46.             '加载快表编译的DLL（DLL放在服务器的DLL目录中）
    
47.             client.OpenReadAsync(New Uri("DLL\文件名.dll", UriKind.Relative))
    
48.         End Sub
    
49. 
    
50.         Private Sub OnDllDownloaded(sender As Object, e As OpenReadCompletedEventArgs)
    
51.             If e.Error Is Nothing Then
    
52.                 Dim part As New AssemblyPart()
    
53.                 Dim assembly As Reflection.Assembly = part.Load(e.Result)
    
54.                 Try
    
55.                      Dim KB As Object = TryCast(assembly.CreateInstance("ExcelViewVBDotnet.ExcelViewVBDotnet.print"), Object)
    
56.                     '执行加载DLL中的方法。
    
57.                     kb.test2()
    
58.                 Catch ex As Exception
    
59.                     '忽略错误'兼容旧版
    
60.                 End Try
    
61.             End If
    
62.                        
    
63.                        
    
64.         End Sub
    
65. 
    
66.    End Class
    
67. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
68. End Namespace
    

复制代码

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports Microsoft.VisualBasic
   
8. Imports System.IO
   
9. Imports System.Text
   
10. Imports System.Net
    
11. Imports System.Windows.forms
    
12. Namespace ExcelViewVBDotnet
    
13.    Public Class StandardInterface
    
14.        '预留位置1
    
15.        '预留位置2
    
16.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
17.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.            EV = Excel
    
19.            Excel.GetLock()
    
20.            AW = Excel.ActiveWorkbook
    
21.            Range = AW.ActiveWorksheet.Range
    
22.            Excel.ReleaseLock()
    
23.        End Sub'打开时执行事件
    
24. 
    
25.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
26. 
    
27.        End Sub'单元格选择后执行的事件
    
28. 
    
29.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
30. 
    
31.        End Sub'单元格编辑完成后执行事件
    
32. 
    
33.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
34.                 If e.Shape.Name = "Button 1" Then
    
35.                         '填写符合条件后执行的代码
    
36.                         C1MessageBox.Show("你好aa！", "提示", OK, C1MessageBoxIcon.Information)
    
37.                 End If
    
38.        End Sub'按钮/标签点击事件
    
39. 
    
40.        Public Sub FollowHyperlink(sender As Object)
    
41. 
    
42.        End Sub '暂不支持
    
43.           
    
44.            Public Sub test()
    
45.                    C1MessageBox.Show("快表你好！", "提示", OK, C1MessageBoxIcon.Information)
    
46.            End Sub
    
47.           
    
48.            Public Sub testaa()
    
49.                    C1MessageBox.Show("快表2你好！", "提示", OK, C1MessageBoxIcon.Information)
    
50.            End Sub
    
51.           
    
52.            Public Sub testbb()
    
53.                    C1MessageBox.Show("快表3你好！", "提示", OK, C1MessageBoxIcon.Information)
    
54.            End Sub
    
55.           
    
56.    End Class
    
57.    
    
58.               Public Class print
    
59.         Public Sub test2()
    
60.             C1MessageBox.Show("你好！", "提示", OK, C1MessageBoxIcon.Information)
    
61.         End Sub
    
62.     End Class
    
63. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
64. End Namespace
    

复制代码