VBA填报从Excel中导入数据

版本：企业版

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 System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.         Dim CF As TextBox, VW As Object
    
14.         Dim TS As StackPanel
    
15.            Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
16.            EV = Excel
    
17.            Excel.GetLock()
    
18.            AW = Excel.ActiveWorkbook
    
19.            Range = AW.ActiveWorksheet.Range
    
20.            Excel.ReleaseLock()
    
21.                        
    
22.                     CF = CType(OldRoot.Children(1), TextBox)
    
23.             TS = CType(OldRoot.Children(5), StackPanel)
    
24. 
    
25.             Dim BT1 As New Button
    
26.             BT1.Name = "BT_DR"
    
27.             BT1.Content = "导入EXCEL数据"
    
28.             BT1.Margin = New Thickness(0, 2, 0, 2)
    
29.             BT1.Padding = New Thickness(13, 3, 13, 3)
    
30.             BT1.Style = CType(Application.Current.Resources("ButtonStyle3"), Style)
    
31.             BT1.Foreground = CType(Application.Current.Resources("Foreground1"), System.Windows.Media.Brush)
    
32.             AddHandler BT1.Click, Sub()
    
33.                                       ActiveWorkbook.WorkbookSet.GetLock()
    
34.                                       Dim dialog As New OpenFileDialog
    
35.                                       dialog.Filter = "Excel2003文件(*.xls)|*.xls|Excel2007文件(*.xlsx)|*.xlsx|Excel2007启用宏文件(*.xlsm)|*.xlsm"
    
36.                                       dialog.Multiselect = False
    
37.                                       '实例化接口
    
38.                                       Dim ns As IWorkbookSet = Factory.GetWorkbookSet(Globalization.CultureInfo.CurrentCulture)
    
39.                                       Try
    
40.                                           If dialog.ShowDialog() = True Then
    
41.                                               ns.GetLock()
    
42.                                               Dim nw As IWorkbook = ns.Workbooks.OpenFromStream(dialog.File.OpenRead)
    
43.                                               Dim nr As IRange = nw.ActiveWorksheet.Range
    
44.                                               ActiveWorkbook.ActiveWorksheet.WorkbookSet.GetLock()
    
45.                                               Range("C5:I2000").Value = nr("A2:G2000").Value
    
46.                                               ActiveWorkbook.ActiveWorksheet.WorkbookSet.ReleaseLock()
    
47.                                               ns.ReleaseLock()
    
48.                                               nw.Close()
    
49.                                               ns = Nothing
    
50.                                           End If
    
51.                                       Catch ex As Exception
    
52.                                           ns.ReleaseLock()
    
53.                                           C1MessageBox.Show("文件无法打开，请检查是否被占用或者损坏！", "提示", OK, Information)
    
54.                                           'MessageBox.Show(ex.Message)
    
55.                                       End Try
    
56.                                       ActiveWorkbook.WorkbookSet.ReleaseLock()
    
57.                                   End Sub
    
58.             TS.Children.Insert(18, BT1)
    
59. 
    
60.             '位置：2保存3新增4提交5退回6进度7打印8预览9导出10捕获11上传图片12上传附件13插入行14插多行15删除行16查找17最后
    
61.        End Sub'打开时执行事件
    
62. 
    
63.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
64. 
    
65.        End Sub'单元格选择后执行的事件
    
66. 
    
67.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
68. 
    
69.        End Sub'单元格编辑完成后执行事件
    
70. 
    
71.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
72. 
    
73.        End Sub'按钮/标签点击事件
    
74. 
    
75.        Public Sub FollowHyperlink(sender As Object)
    
76. 
    
77.        End Sub '暂不支持
    
78. 
    
79.    End Class
    
80. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
81. End Namespace

复制代码

VBA填报从Excel中导入数据

版本：企业版

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 System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.         Dim CF As TextBox, VW As Object
    
14.         Dim TS As StackPanel
    
15.            Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
16.            EV = Excel
    
17.            Excel.GetLock()
    
18.            AW = Excel.ActiveWorkbook
    
19.            Range = AW.ActiveWorksheet.Range
    
20.            Excel.ReleaseLock()
    
21.                        
    
22.                     CF = CType(OldRoot.Children(1), TextBox)
    
23.             TS = CType(OldRoot.Children(5), StackPanel)
    
24. 
    
25.             Dim BT1 As New Button
    
26.             BT1.Name = "BT_DR"
    
27.             BT1.Content = "导入EXCEL数据"
    
28.             BT1.Margin = New Thickness(0, 2, 0, 2)
    
29.             BT1.Padding = New Thickness(13, 3, 13, 3)
    
30.             BT1.Style = CType(Application.Current.Resources("ButtonStyle3"), Style)
    
31.             BT1.Foreground = CType(Application.Current.Resources("Foreground1"), System.Windows.Media.Brush)
    
32.             AddHandler BT1.Click, Sub()
    
33.                                       ActiveWorkbook.WorkbookSet.GetLock()
    
34.                                       Dim dialog As New OpenFileDialog
    
35.                                       dialog.Filter = "Excel2003文件(*.xls)|*.xls|Excel2007文件(*.xlsx)|*.xlsx|Excel2007启用宏文件(*.xlsm)|*.xlsm"
    
36.                                       dialog.Multiselect = False
    
37.                                       '实例化接口
    
38.                                       Dim ns As IWorkbookSet = Factory.GetWorkbookSet(Globalization.CultureInfo.CurrentCulture)
    
39.                                       Try
    
40.                                           If dialog.ShowDialog() = True Then
    
41.                                               ns.GetLock()
    
42.                                               Dim nw As IWorkbook = ns.Workbooks.OpenFromStream(dialog.File.OpenRead)
    
43.                                               Dim nr As IRange = nw.ActiveWorksheet.Range
    
44.                                               ActiveWorkbook.ActiveWorksheet.WorkbookSet.GetLock()
    
45.                                               Range("C5:I2000").Value = nr("A2:G2000").Value
    
46.                                               ActiveWorkbook.ActiveWorksheet.WorkbookSet.ReleaseLock()
    
47.                                               ns.ReleaseLock()
    
48.                                               nw.Close()
    
49.                                               ns = Nothing
    
50.                                           End If
    
51.                                       Catch ex As Exception
    
52.                                           ns.ReleaseLock()
    
53.                                           C1MessageBox.Show("文件无法打开，请检查是否被占用或者损坏！", "提示", OK, Information)
    
54.                                           'MessageBox.Show(ex.Message)
    
55.                                       End Try
    
56.                                       ActiveWorkbook.WorkbookSet.ReleaseLock()
    
57.                                   End Sub
    
58.             TS.Children.Insert(18, BT1)
    
59. 
    
60.             '位置：2保存3新增4提交5退回6进度7打印8预览9导出10捕获11上传图片12上传附件13插入行14插多行15删除行16查找17最后
    
61.        End Sub'打开时执行事件
    
62. 
    
63.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
64. 
    
65.        End Sub'单元格选择后执行的事件
    
66. 
    
67.        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
68. 
    
69.        End Sub'单元格编辑完成后执行事件
    
70. 
    
71.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
72. 
    
73.        End Sub'按钮/标签点击事件
    
74. 
    
75.        Public Sub FollowHyperlink(sender As Object)
    
76. 
    
77.        End Sub '暂不支持
    
78. 
    
79.    End Class
    
80. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
81. End Namespace

复制代码