学步园

Dim excelApp As New Excel.Application<br /> Dim excelBook As Excel.Workbook<br /> Dim excelSheet As Excel.Worksheet</p> <p>excelBook = excelApp.Workbooks.Open("N:/TestData/Data/test.xls")<br /> excelSheet = excelBook.Worksheets.Item(1)</p> <p>Try</p> <p> MsgBox(CType(excelSheet.Cells.Item(1, 1), Excel.Range).Value)</p> <p>Catch ex As Exception<br /> MsgBox(ex.Message)<br /> End Try

东西不多，只是怎么样打开，怎样读取。