各位亲怎么解决这个问题 网上很多资料都无法解决  系统我也换回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

看一下这个帖子你对你有帮助
http://bbs.

不知道你安装的VB是什么版本，好像VB60的精简版功能有限，是否能够调用Excel，不清楚。
另外，你的Excel是什么版本，如果高于2003版本的引用的是12.0，不是8.0。

可以加我企鹅号试试

已解决 OFFICE的问题

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

楼主这个问题是怎么解决的，你说是OFFICE问题   到底是OFFICE那个版本的问题  怎么弄的?我相信很多人都想知道。

楼主这个问题是怎么解决的，你说是OFFICE问题   到底是OFFICE那个版本的问题  怎么弄的?我相信很多人都想知道。