VB中的变量怎样获取excel中单元格的值

set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false　　　　不显示警告
objExcelApp.Application.Visible = false　　　　不显示界面

strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\1111.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)

aa=objExcelSheet.Cells(1,1).Value本回答被网友采纳