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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024