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单元格的内容
简单的作字符串比较好了
