怎样使用vb编写程序把两个excel内容进行对比

Dim xls_app As New Excel.Application Dim xls_book As New Excel.Workbook Dim xls_sheet As New Excel.Worksheet Set xls_app = CreateObject("Excel.Application") Set xls_book = xls_app.Workbooks.Open(文件名)'文件名包含完整路径！ Set xls_sheet = xls_book.Worksheets(1)'后面的1是指excel的工作表，1为第一张，以此类推 获取单元格内容：xls_app.Range("A1") 即得到A1单元格的内容 简单的作字符串比较好了