参照论坛里http://bbs.kuaibiao.cn/forum.php?mod=viewthread&tid=3750说的。代码编译运行的时候提示：3行 Imports“System.Runtime.InteropServices.Automation”中指定的命名空间或类型不包含任何公共成员，或者找不到该命名空间或类型。要确保定义了该命名空间或类型且其中至少包含一个公共成员；还要确保导入的元素名不使用任何别名。
代码如下：

Imports SpreadsheetGear
Imports System.Windows.forms
Imports System.Runtime.InteropServices.Automation
Namespace ExcelViewVBDotnet
    Public Class StandardInterface '自定义名称
        '预留位置1
        '预留位置2
        Dim AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Forms.WorkbookView)
           Excel.GetLock()
           AW = Excel.ActiveWorkbook
           Range = AW.ActiveWorksheet.Range
           Excel.ReleaseLock()

        End Sub'打开时执行事件

        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeSelectionChangedEventArgs)
            'MessageBox.show("测试")

        End Sub'单元格选择后执行的事件

        Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Forms.RangeChangedEventArgs)

        End Sub'单元格编辑完成后执行事件

        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
                if e.shape.name = "BTEST" then
                          '判断是否OOB模式运行
                          if Application.Current.IsRunningOutOfBrowser = True then
                                 '实例化Word接口
                                 Dim _myWord As object = AutomationFactory.CreateObject("Word.Application")
                                 '添加文档
                                 Dim _myDocument As object = _myWord.Documents.Add()
                                 '激活文档
                 _myDocument.Activate()
                 '在选择位置插入文字
                                 AW.WorkbookSet.GetLock()
                 _myWord.Selection.TypeText(range("F_2753").Text)
                                 AW.WorkbookSet.ReleaseLock()
                                 '显示Word
                             _myWord.Visible = true
                          Else
                             messagebox.show("必须在桌面启动才能使用！")
                          End if
               End if
        End Sub'按钮/标签点击事件

        Public Sub FollowHyperlink(sender As Object)

        End Sub '暂不支持

    End Class
    '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。

End Namespace

客服能指点一下吗？

1. Option Strict Off
   
2. Imports SpreadsheetGear
   
3. Imports KbInterfaces
   
4. Imports System.Windows.Resources
   
5. Imports System.Windows.Threading
   
6. Imports System.Windows
   
7. Imports System.Windows.Co**ols
   
8. Imports Newtonsoft.Json.Linq
   
9. Imports System.Runtime.InteropServices.Automation
   
10. 
    
11. Namespace ExcelViewVBDotnet
    
12. Public Class StandardInterface '自定义名称
    
13. Implements Interfaces.IExcelWorkBook
    
14. Public Property ActiveWorkbook() As IWorkbook Implements Interfaces.IExcelWorkBook.Workbook
    
15. Dim AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
16. Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
    
17. Excel.GetLock()
    
18. AW = Excel.ActiveWorkbook
    
19. Range = AW.ActiveWorksheet.Range
    
20. Excel.ReleaseLock()
    
21. 
    
22. End Sub '打开时执行事件
    
23. 
    
24. Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeSelection
    
25. 
    
26. End Sub '单元格选择后执行的事件
    
27. 
    
28. Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeChanged
    
29. 
    
30. End Sub '单元格编辑完成后执行事件
    
31. 
    
32. Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
    
33. ActiveWorkbook.WorkbookSet.GetLock()
    
34. 
    
35. If e.Shape.Name = "Button 1" Then
    
36. '判断是否OOB模式运行
    
37. If Application.Current.IsRunningOutOfBrowser = True Then
    
38. '实例化Word接口
    
39. Dim _myWord As Object = AutomationFactory.CreateObject("Word.Application")
    
40. 
    
41. With _myWord
    
42. .Visible = True
    
43. .documents.open("D:\word\abc.doc")
    
44. 
    
45. 'If _myWord.ActiveDocument.Bookmarks.Exists("Party_Co") = True Then
    
46. ' MessageBox.Show(123)
    
47. 'End If
    
48. AW.WorkbookSet.GetLock()
    
49. _myWord.ActiveDocument.bookmarks("Party_Co").range.Text = Range("F_4068").Text
    
50. AW.WorkbookSet.ReleaseLock()
    
51. _myWord.ActiveDocument.SaveAs("D:\word" & Range("F_4068").Text)
    
52. _myWord.ActiveDocument.Close()
    
53. 
    
54. _myWord.Quit()
    
55. _myWord = Nothing
    
56. 
    
57. End With
    
58. 
    
59. Else
    
60. MessageBox.Show("必须在桌面启动才能使用！")
    
61. End If
    
62. End If
    
63. ActiveWorkbook.WorkbookSet.ReleaseLock()
    
64. End Sub '按钮/标签点击事件
    
65. 
    
66. Public Sub FollowHyperlink(sender As Object) Implements Interfaces.IExcelWorkBook.FollowHyperlink
    
67. 
    
68. End Sub '暂不支持
    
69. 
    
70. 
    
71. Public Function ReText(ReTextA As IRange)
    
72. ReText = StrReverse(ReTextA.ToString)
    
73. Return (ReText)
    
74. End Function
    
75. 
    
76. Private Function DataTemplate() As String
    
77. Throw New NotImplementedException
    
78. End Function
    
79. 
    
80. Private Function wdGoToBookmark() As Object
    
81. Throw New NotImplementedException
    
82. End Function
    
83. 
    
84. Private Function strBookMark() As Object
    
85. Throw New NotImplementedException
    
86. End Function
    
87. 
    
88. Private Sub SaveAs(p1 As Object)
    
89. Throw New NotImplementedException
    
90. End Sub
    
91. 
    
92. End Class
    
93. '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
94. 
    
95. End Namespace
    

复制代码

你是，要将快表中的报表输出至word 模板吗？

是的。已经搞定了。

客服能指点一下吗？

1. Option Strict Off
   
2. Imports SpreadsheetGear
   
3. Imports KbInterfaces
   
4. Imports System.Windows.Resources
   
5. Imports System.Windows.Threading
   
6. Imports System.Windows
   
7. Imports System.Windows.Co**ols
   
8. Imports Newtonsoft.Json.Linq
   
9. Imports System.Runtime.InteropServices.Automation
   
10. 
    
11. Namespace ExcelViewVBDotnet
    
12. Public Class StandardInterface '自定义名称
    
13. Implements Interfaces.IExcelWorkBook
    
14. Public Property ActiveWorkbook() As IWorkbook Implements Interfaces.IExcelWorkBook.Workbook
    
15. Dim AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
16. Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
    
17. Excel.GetLock()
    
18. AW = Excel.ActiveWorkbook
    
19. Range = AW.ActiveWorksheet.Range
    
20. Excel.ReleaseLock()
    
21. 
    
22. End Sub '打开时执行事件
    
23. 
    
24. Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeSelection
    
25. 
    
26. End Sub '单元格选择后执行的事件
    
27. 
    
28. Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeChanged
    
29. 
    
30. End Sub '单元格编辑完成后执行事件
    
31. 
    
32. Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs) Implements Interfaces.IExcelWorkBook.ButtunClick
    
33. ActiveWorkbook.WorkbookSet.GetLock()
    
34. 
    
35. If e.Shape.Name = "Button 1" Then
    
36. '判断是否OOB模式运行
    
37. If Application.Current.IsRunningOutOfBrowser = True Then
    
38. '实例化Word接口
    
39. Dim _myWord As Object = AutomationFactory.CreateObject("Word.Application")
    
40. 
    
41. With _myWord
    
42. .Visible = True
    
43. .documents.open("D:\word\abc.doc")
    
44. 
    
45. 'If _myWord.ActiveDocument.Bookmarks.Exists("Party_Co") = True Then
    
46. ' MessageBox.Show(123)
    
47. 'End If
    
48. AW.WorkbookSet.GetLock()
    
49. _myWord.ActiveDocument.bookmarks("Party_Co").range.Text = Range("F_4068").Text
    
50. AW.WorkbookSet.ReleaseLock()
    
51. _myWord.ActiveDocument.SaveAs("D:\word" & Range("F_4068").Text)
    
52. _myWord.ActiveDocument.Close()
    
53. 
    
54. _myWord.Quit()
    
55. _myWord = Nothing
    
56. 
    
57. End With
    
58. 
    
59. Else
    
60. MessageBox.Show("必须在桌面启动才能使用！")
    
61. End If
    
62. End If
    
63. ActiveWorkbook.WorkbookSet.ReleaseLock()
    
64. End Sub '按钮/标签点击事件
    
65. 
    
66. Public Sub FollowHyperlink(sender As Object) Implements Interfaces.IExcelWorkBook.FollowHyperlink
    
67. 
    
68. End Sub '暂不支持
    
69. 
    
70. 
    
71. Public Function ReText(ReTextA As IRange)
    
72. ReText = StrReverse(ReTextA.ToString)
    
73. Return (ReText)
    
74. End Function
    
75. 
    
76. Private Function DataTemplate() As String
    
77. Throw New NotImplementedException
    
78. End Function
    
79. 
    
80. Private Function wdGoToBookmark() As Object
    
81. Throw New NotImplementedException
    
82. End Function
    
83. 
    
84. Private Function strBookMark() As Object
    
85. Throw New NotImplementedException
    
86. End Function
    
87. 
    
88. Private Sub SaveAs(p1 As Object)
    
89. Throw New NotImplementedException
    
90. End Sub
    
91. 
    
92. End Class
    
93. '注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
94. 
    
95. End Namespace
    

复制代码

你是，要将快表中的报表输出至word 模板吗？

是的。已经搞定了。