Dim excelApp As New Excel.Application Dim excelBook As Excel.Workbook Dim excelSheet As Excel.Worksheet excelBook = excelApp.Workbooks.Open("N:/TestData/Data/test.xls") excelSheet = excelBook.Worksheets.Item(1) Try MsgBox(CType(excelSheet.Cells.Item(1, 1), Excel.Range).Value) Catch ex As Exception MsgBox(ex.Message) End Try 东西不多,只是怎么样打开,怎样读取。