-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathInterop.vb
48 lines (25 loc) · 1.17 KB
/
Interop.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Imports Extensibility
Imports Microsoft.Office.Interop
Partial Public Class Functions
Implements IDTExtensibility2
Private EXCEL As Excel.Application
Public Sub OnConnection(Application As Object, ConnectMode As ext_ConnectMode, AddInInst As Object, ByRef custom As Array) Implements IDTExtensibility2.OnConnection
If TypeOf Application Is Excel.Application Then
EXCEL = Application
Else
Throw New NotImplementedException()
End If
End Sub
Public Sub OnDisconnection(RemoveMode As ext_DisconnectMode, ByRef custom As Array) Implements IDTExtensibility2.OnDisconnection
Throw New NotImplementedException()
End Sub
Public Sub OnAddInsUpdate(ByRef custom As Array) Implements IDTExtensibility2.OnAddInsUpdate
Throw New NotImplementedException()
End Sub
Public Sub OnStartupComplete(ByRef custom As Array) Implements IDTExtensibility2.OnStartupComplete
Throw New NotImplementedException()
End Sub
Public Sub OnBeginShutdown(ByRef custom As Array) Implements IDTExtensibility2.OnBeginShutdown
Throw New NotImplementedException()
End Sub
End Class