Dim oExcel
Dim oBook
Dim osheet
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open(App.Path & "\Excel.xls")
Set osheet = oBook.Worksheets(1)
For icol = 1 To 7
For irow = 1 To 20
If osheet.cells(irow, icol) = "合计" Then
MsgBox "OK"
End If
Next irow
Next icol
恐怕不行吧，你这个VBA涉及对单元格的引用，VB里好像没有。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024