原来在WIN7系统下有试过一个EXE文件可以正常访问并能够正常输出结果，但是拿到WIN10下就出现自动化的错误提示如图，WIN10环境下装的是2013版EXCEL64位版本，除了装虚拟机有什么方法可以解决吗?

Private Sub Command4_Click()
Dim xlApp As Excel.Application '声明对象变量
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim OpenExecl As Long
Dim ExcelPath As String
Dim aaA As String
Dim Lane As Integer
Dim P As Integer
Dim HPHR As Integer
Lane = Val(LaneIO(0))  '定义高速框变量
P = Val(HPIO(1))
HPHR = Val(HPHRIO(2))
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("E:\WLR\VB\0913\Book1111.xls")  '打开存在的execl文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet2") '设置活动工作表
xlSheet.Activate '激活工作表
RCOUNT = xlApp.ActiveSheet.UsedRange.Rows.Count
For j = 2 To RCOUNT Step 1
If Cells(j, 2).Value >= Lane And Cells(j, 4).Value >= P And Cells(j, 5).Value >= HPHR Then
aaA = aaA + "   " + xlSheet.Cells(j, 1).Value & vbCrLf
End If
Text1.Text = aaA
Next
End Sub

大神帮忙给看下我调用EXCEL代码的过程，在WIN10里就访问不了

求大神关注的第二天

后来找到原因了，应该是VB6对OFFICE 64位不兼容导致的，后来又补装了32位版本解决了这个不能访问的问题，话说VB6是不是太老了啊