vba运行时错误 '-2147023170 (800706be)'

cy20090503

说清一下背景。因工作需求VBA处理一点东东
1. window 10 TLSC  +  OFFICE 2013
2. 已重装office
3. 在其它电脑运行没有问题，
4.在vb中运行也报一样的错。
因是环境出了问题，注册表中也找不了这错误码信息
运行到此报错，其它电脑运行琐有问题
----------------------------------------------------



Public Sub Readexcelfile()

'声明Excel相关
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook      

Application.DisplayAlerts = False         
    Set xlApp = New Excel.Application
'获取指定excel文件
   Set xlBook = xlApp.Workbooks.Open("D:\123.xls")

    Dim sheet As Excel.Worksheet
'获取指定sheet
    Set sheet = xlBook.Sheets(1)

    Dim ss As String
'获取指定单元格的内容
    ss = sheet.Cells(1, 1)

      xlBook.Close False
      xlApp.Quit

'内容显示
    MsgBox (ss)

End Sub

cy20090503

请各位excel大师，有没有碰到这种问题，请教一下。