各位亲怎么解决这个问题 网上很多资料都无法解决  系统我也换回XP也是无法解决

Private Sub Command1_Click()
Dim i As Long
Dim Sum1, Sum2 As Long
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlssheet As Excel.Worksheet
Set VBExcel = CreateObject("Excel.Application")
CommonDialog1.FileName = ""
CommonDialog1.Filter = "EXCEL文件(*.xlsx)|*.xlsx"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
 Exit Sub
 Else
  Set xlbook = VBExcel.Workbooks.Open(CommonDialog1.FileName)
  Set xlssheet = xlbook.Worksheets(1)
  VBExcel.Visible = True
  For i = 2 To 35535
   If xlssheet.Cells(i, 1) = "" Then
    Exit For
    Else
    If xlssheet.Cells(i, 1) = "张三" Then '检查第i行，第一列数据，自己可以定义
     Sum1 = Sum1 + xlssheet.Cells(i, 2)
     End If
    If xlssheet.Cells(i, 1) = "李四" Then
        Sum2 = Sum2 + xlssheet.Cells(i, 2)
     End If
  
    End If
 Next
End If
Text1.Text = Sum1
Text2.Text = Sum2
xlbook.Close (True)
Set xlssheet = Nothing
Set xlbook = Nothing
Set VBExcel = Nothing
End Sub

已解决 OFFICE的问题

解决了 是OFFICE的问题  但现在有个新的问题   怎么利用SendMessage打开 这类型的控件 ，右边有个像命令按钮的 按键  点击后踏出第二图的窗口