vb访问Excel2010出错问题没有得到最后解决

[weixin_38059994]

vb2010 访问Excel2010数据 按照安装vsto2010的方法，还是如下的错误。 注册CLSID的方法感觉还是不具体，无法正确使用。希望提供更具体的步骤。
vb2010 访检索 COM 类工厂中 CLSID 为 {00020819-0000-0000-C000-000000000046} 的组件失败，
原因是出现以下错误: 80040154 没有注册类 (异常来自 HRESULT:0x80040154 (REGDB_E_CLASSNOTREG))。访问Excel2010 数据产生错误


Private Sub zhuFrm1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

nCmdBtn1 = -1 : nCmdBtn2 = -1 : nCmdBtn3 = -1 : nCmdBtn4 = -1 nCmdBtn5 = -1 : nCmdBtn6 = -1 : nCmdBtn7 = -1 : nCmdBtn8 = -1 nCmdBtn9 = -1 : nCmdBtn10 = -1 : nCmdBtn11 = -1

On Error GoTo Errorh
Dim xlApp As Excel.Application
Dim xlBook As New Excel.Workbook
'Dim xlChar As New Excel.Chart
'Dim xlSheet As Excel.Worksheet xlApp = CType(CreateObject("Excel.Application"), Application)

xlBook = xlApp.Workbooks.Open("C:\20170705C11X5.xls") ''FileName) '打开已经存在的EXCEL工件簿文件

'xlApp.Visible = False '设置EXCEL对象不可见 'xlSheet = CType(xlBook.Worksheets("Generated"), Excel.Worksheet) 

 '"Generated"设置活动工作表
mTextBox2.Text = CType("123456", String).ToString  'CType(xlSheet.Cells(27984, 1), Excel.Range).Text.ToString

Errorh:
mTextBox2.Text = Err.Description
End Sub
这是源代码