VB中的变量怎样获取excel中单元格的值 5
展开全部
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
